问题描述
我正在尝试创建一个搜索框,其作用类似于访问页面底部的导航搜索功能。这样一来,我数据库的用户就可以更轻松地浏览数据库。
我的代码当前为
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
即使我正在使用已知存在于数据库中的项目进行测试时,即使将此代码应用于搜索功能,也会返回“ No Match”消息框。我的最终目标是拥有一个搜索功能,该功能将搜索后端表中的多个字段。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)