Docmd.Findrecord在文本框中找到

时间:2018-09-13 00:28:49

标签: ms-access access-vba

我正在使用docmd.Findrecord根据用户在文本框中输入的值来查找记录。问题在于,Findrecord将文本框视为一个字段,而只是继续在该字段中查找字符串,而不是在表中的记录。我欺骗了该命令,方法是在搜索之前删除文本框中的字符串,然后在搜索之后将其替换回来。没有这个额外的技巧,如何解决这个问题?这是我使用的代码:

Private Sub SearchRecord_Click()
Dim strwhat2find As String
If SearchTxt.Value = "" Then

Else
    strwhat2find = SearchTxt.Value
    SearchTxt.Value = ""
    DoCmd.FindRecord strwhat2find, acAnywhere, False, acSearchAll, True, acAll, True
    SearchTxt.Value = strwhat2find
End If
End Sub

End Sub

0 个答案:

没有答案