如何使用组合框搜索记录？

Question

我在表单上有一个组合框，用于搜索基于[WorkDate] 的记录，它工作正常。我遇到的问题是组合框有 3 列，但它只根据第一列进行查找。组合框下拉列表中的列是WorkDate | WorkType | Comment

这是我的代码：

`Private Sub ctlSearch_AfterUpdate()
    On Error GoTo myError
    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.FindFirst "[WorkDate] = " & "#" & Format(Me.ctlSearch.Column(0), "yyyy/mm/dd") & "#" And "[WorkType] = '" & Me.ctlSearch.Column(1) & "'"
    Me.Bookmark = rst.Bookmark
leave:
    Me!ctlSearch = Null
    If Not rst Is Nothing Then Set rst = Nothing
    Exit Sub
myError:
    MsgBox "Record Not Found"
    Resume leave
End Sub`

我已将问题缩小到代码中的这一行：

rst.FindFirst "[WorkDate] = " & "#" & Format(Me.ctlSearch.Column(0), "yyyy/mm/dd") & "#" And "[WorkType] = '" & Me.ctlSearch.Column(1) & "'"

每当我用

替换上面的代码行时

rst.FindFirst "[WorkDate] = " & "#" & Format(Me.ctlSearch.Column(0), "yyyy/mm/dd") & "#" 

或

rst.FindFirst "[WorkType] = '" & Me.ctlSearch.Column(1) & "'"

它完美地工作，但对于我的生活，我无法让查找一起工作。我花了几天的时间试图让它发挥作用。任何帮助将不胜感激。

Answer 1

您的行中有错字。当您尝试合并这些语句时，您似乎在 AND 部分周围添加了一些额外的引号。

rst.FindFirst "[WorkDate] = " & "#" & Format(Me.ctlSearch.Column(0), "yyyy/mm/dd") & "#" And "[WorkType] = '" & Me.ctlSearch.Column(1) & "'"

rst.FindFirst "[WorkDate] = #" & Format(Me.ctlSearch.Column(0), "yyyy/mm/dd") & "# And [WorkType] = '" & Me.ctlSearch.Column(1) & "'"

在 VBA 中编写查询语句时，需要像这样包含在引号中的字符串。

rst.FindFirst "Field1 = #01/02/2014#"

如果您想将日期更改为某种变量，您需要像上面那样将其附加到字符串中。

rst.FindFirst "Field1 = #" & dateField & "#"

我写的和你写的不同之处在于你不需要把字符串分开并在每个部分加上引号。引号只需要把不是变量的部分括起来。