过滤访问中的子表单

Question

我在第 4 行 (Me.ConstructQuery) 上不断收到运行时错误 2465。我有一个嵌入了选项卡控件的表单；每个选项卡都将包含一个子表单。我希望能够从每个选项卡中的多个组合框查询每个子表单。

Option Compare Database

Public Sub cboLastName_AfterUpdate()
    Me.ConstructQuery
End Sub

Function ConstructQuery()
    Dim sFilter As String

    If Nz(Me.qryHardware.Form.cboUserID, "") <> "" Then
        sFilter = "UserID=" & Me.qryHardware.Form.cboUserID
    End If

    If Nz(Me.qryHardware.Form.cboLastName, "") <> "" Then
        sFilter = "LastName=" & Me.qryHardware.Form.cboLastName
    End If

    Me.qryHardware.Form.Filter = sFilter
    Me.qryHardware.Form.FilterOn = True


End Function

Private Sub cboBranch_Change()
    Dim strSQL As String

'populate userID comboBox
Me.cboUserID.ColumnCount = 2
Me.cboUserID.ColumnWidths = "0, 2cm"
strSQL = "SELECT ID, UserID  FROM Users WHERE BranchID=" &    Me.cboBranch.Value
Me.cboUserID.RowSource = strSQL

'populate last name comboBox
Me.cboLastName.ColumnCount = 1
Me.cboLastName.ColumnWidths = "2cm"
strSQL = "SELECT LastName FROM Users WHERE BranchID=" & Me.cboBranch.Value
Me.cboLastName.RowSource = strSQL

'poplulate first name comboBox
Me.cboFirstName.ColumnCount = 2
Me.cboFirstName.ColumnWidths = "0, 2cm"
strSQL = "SELECT ID, FirstName FROM Users WHERE BranchID=" & Me.cboBranch.Value
Me.cboFirstName.RowSource = strSQL

'populate account Status comboBox
Me.cboAccountStatus.ColumnCount = 2
Me.cboAccountStatus.ColumnWidths = "0, 2cm"
strSQL = "SELECT ID, AccountStatus FROM Users WHERE BranchID=" & Me.cboBranch.Value
Me.cboAccountStatus.RowSource = strSQL

End Sub

再次报告的抛出异常的行是 Me.ConstructQuery

非常感谢任何意见或建议。

提前致谢。

Answer 1

直说：

Public Sub cboLastName_AfterUpdate()
    ConstructQuery
End Sub

Answer 2

谢谢，解决了！我还必须将字符串值包含在 ' ' 中，以便它正确搜索子表单。