フォームの従業員番号と日付から該当レコードを

質問

フォームの従業員番号と日付から該当レコードを検索したいのですができません。
おそらくFilterの文法が間違えているのではと思いましたが、色々試した結果
自力ではダメでした。何卒よろしくお願いします
Private Sub テスト()

Dim CN As ADODB.Connection: Set CN = CurrentProject.Connection
Dim RS As ADODB.Recordset: Set RS = New ADODB.Recordset
RS.Open "勤怠表", CN, adOpenKeyset, adLockOptimistic

RS.Filter = "従業員番号 = " & Me.TB_StaffID & " and 日付 = #" & Format(Me.TB_Date, "yyyy/mm/dd") & "#"

If RS.RecordCount = 0 Then
Debug.Print "ありません"
Else
Do Until RS.EOF
Debug.Print RS!勤怠番号
RS.MoveNext
Loop
End If

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

回答No.1

NotFound404 · ベストアンサー

・・・
Dim RS As ADODB.Recordset: Set RS = New ADODB.Recordset
rs.cursorlocation=aduseclient
RS.Open "勤怠表", CN, adOpenKeyset, adLockOptimistic
・・・
にしたらどうなりますか？
解決しない場合、
debug.print rs.filter
でイミディエイトウィンドウでの確認が必要かも。

お礼

素早く的確なご回答感謝いたします
ご教授頂いた方法ですぐに解決に至りました。本当にありがとうございました。