Access SubForm选择取决于组合框

Question

我想过滤我的子表单基于我的组合框过滤器。我收到了代码错误。我需要帮忙处理这个。

更新之后，我编写了一个事件：

Private Sub cboSelected_AfterUpdate()
Dim MyName As String
MyName = " select * from [ITP_Checklist Log] where ([ITP_Checklist Log].[Name] = " & Me.cboSelected & " )"

Me.ITP_Checklist_Log_subform.Form.RecordSource = MyName

Me.ITP_Checklist_Log_subform.Form.Requery

End Sub

错误：

Run-time error '3464'
Data Type Mismatch in Criteria expression.

​

​

​

​

Answer 1

对字符串值使用引号-只有在不更改记录源的情况下才需要重新查询：

Private Sub cboSelected_AfterUpdate()

    Dim MyName As String

    MyName = "select * from [ITP_Checklist Log] where ([ITP_Checklist Log].[Name] = '" & Me!cboSelected.Value & "')"

    Debug.Print MyName

    If Me!ITP_Checklist_Log_subform.Form.RecordSource = MyName Then
        Me!ITP_Checklist_Log_subform.Form.Requery
    Else
        Me!ITP_Checklist_Log_subform.Form.RecordSource = MyName
    End If

End Sub