エラータイプの不一致エラーメッセージ

Question

私はAccessのアプリケーションで作業していますが、もう一度コードの同じ行を見ていてもう一度、エラーは見つかりませんでした（エラーはタイプの不一致です私が欲しいものAT =定義行）、サブがこのようで、日付値を提示するコンボボックスで、サブフォームのデータシートをフィルタリングすることである。

Private Sub cbSelectDate_AfterUpdate() 

    Dim AT As Date 

    If Me.cbSelectDate = "" Then 
    MsgBox ("First you need to fill the employee field") 
    End If 

    'On Error Resume Next 

    AT = "select * from subform where ([AppointDate] = #" & Me.cbSelectDate & "#)" 

    Me.subform.Form.RecordSource = AT 

    Me.subform.Form.Requery 
    End Sub 

Answer 1

あなたは、日付に文字列を渡している、文字列

に変更します