时间戳

首页 > 解决方案 > Microsoft Access 搜索框未显示结果

vba - Microsoft Access 搜索框未显示结果

问题描述

我正在尝试创建一个搜索框，其作用类似于访问页面底部的导航搜索功能。这样我的数据库的用户可以更轻松地浏览数据库。

我的代码目前是

Private Sub cmdSearch_Click()
Dim bkmk As Variant
Dim strField As String

Me.RecordsetClone.MoveFirst
'Find the first record that matches what
'is in the search text box.
Me.RecordsetClone.FindFirst "B3 Like " _
    & Chr(34) & Me.txtsearch & "*" & Chr(34) _
    & "OR Item Like" _
    & Chr(34) & Me.txtsearch & "*" & Chr(34) _


If Me.RecordsetClone.NoMatch Then
    MsgBox "No Match"
Else
    bkmk = Me.RecordsetClone.Bookmark
    Me.Recordset.Bookmark = bkmk
End If
End Sub

当我将此代码应用于我的搜索功能时，即使我正在使用已知在数据库中的项目进行测试，它也会返回“不匹配”消息框。我的最终目标是拥有一个搜索功能，可以搜索后端表中的多个字段。

标签： vbams-access

解决方案

推荐阅读