access2003 あいまい検索について
どなたかアドバイスを頂ければ幸いです。
内容なんですが
Access2003にて勤務表を作成中です。
勤務表テーブルにはユーザー名、日付、出社（出社時間を
記録する）、出社属性（直行などの状態を記録する）、退社、
退社属性、作業時間、作業内容のフィールドがあります。
フォームには複数のテキストボックスやコマンドボタンなどの
コントロールがあり、その中でシステム時間を表示する
テキストボックスがあります。
コマンドボタンのイベントでテキストボックスの値を
Format関数でyyyy/mmの形式に変換し、その値を用いて
勤務表テーブルの日付フィールドの値を月毎に取得し結果を
フォーム内のリストボックスに表示させたいのです。
例えば、システム時間が2008/6/23 18:20:56の場合2008/06を取得し
勤務表の日付フィールドで2008/06月分のデータをすべて検索
したいです。
（日付フィールドには2008/06/19の形式でデータが入っており、
もちろん2008/06以降のデータもあります。）
下記のコードにて試しているのですが、コンパイルエラーが
でるわけではないのですが、何も起こりません。
Private Sub コマンド58_Click()
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim ct As New ADODB.Connection
Set ct = CurrentProject.Connection
Dim hiduke
hiduke = "[日付] Like '*" & Format(テキス50, "yyyy/mm")& "*'"
rs.Open "勤務表", ct, adOpenDynamic, adLockOptimistic
rs.Find hiduke, 0, adSearchForward
Do Until rs.EOF
If rs.EOF = True Then
MsgBox "該当レコードが見つかりません。"
Else
リスト42.RowSourceType = "Table/Query"
リスト42.RowSource = "SELECT ユーザー名,日付,出社,出社
属性,退社,退社属性,作業時間,作業内容 " & _
"FROM 勤務表 Where ユーザー名 = コンボ56 and hiduke"
rs.Find hiduke, adSearchForward
End If
Loop
rs.Close
Set rs = Nothing
ct.Close
Set ct = Nothing
End Sub
以上よろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
