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

您正在将字符串传递给日期，将其更改为String

错误类型不匹配错误消息

1 个答案: