#ms-access #search #vba
#ms-access #Поиск #vba
Вопрос:
У меня есть функция поиска, реализованная в моей форме доступа. Пользователь может выполнить поиск, чтобы узнать, существует ли существующая запись. Я хочу сделать так, чтобы отображалось «Совпадение не найдено», если пользователь выполняет поиск и не имеет существующей записи.
Ниже приведен мой код VBA на данный момент:
Private Sub Command49_Click()
Dim strsearch As String
Dim strtext As String
strtext = Me.txtSearch.Value
strsearch = "SELECT * from ID_Theft_Log where (ID like strtext)"
Me.RecordSource = strsearch
End Sub
Что мне нужно добавить в мой код, чтобы отобразить этот текст?
Комментарии:
1. вы могли бы использовать if dcount ….. = 0, тогда не беспокойтесь о настройке SQL или посмотрите на записи, возвращенные из него.
Ответ №1:
IF strsearch.value = VbNullString Then
MsgBox "Not Found"
End if