Возврат сообщения об ошибке при вводе неправильного написания в поле ввода

Question

У меня есть этот код, который я использовал VBA для вставки, обновления и удаления данных в базе данных mySQL. У меня есть поле ввода для поиска определенных данных в таблице SQL, используя их число, когда я набираю номер, и когда есть соответствующая запись, программа говорит «Запись найдена». но ошибки программы каждый раз, когда я набираю номер и не имеет согласованных данных. Мой вопрос в том, что, как я могу вернуть сообщение об ошибке, которое говорит «Нет записи найдено», когда нет согласованных данных ?. Я изучаю vba как новичок, и некоторые используемые коды не были мне действительно знакомы .. Спасибо.

Dim rs As New ADODB.Recordset 
myConn 
Dim holdstr As String 
holdstr = InputBox("Enter name") 
If holdstr = "" Then 
MsgBox "Please fill up the requirements", vbInformation, "Message" 
conn.Close 
Exit Sub 
End If 
rs.Open "SELECT * FROM lemployees where ENumber = '" & holdstr & "'", conn 

MsgBox "Record found!", vbInformation, "Message" 

UserForm2.TextBox2.Text = rs!ELName 

Answer 1

Что вы хотите сделать, это проверить свойство Recordset RecordCount после того, как вы его открыли.

Dim rcCount As Integer 
rs.Open "SELECT * FROM lemployees where ENumber = '" & holdstr & "'", conn 
rcCount = rs.RecordCount 
If rcRecordCount = 0 Then 
    MsgBox "No Record found", vbInformation, "Message" 
Else 
    MsgBox "Record found!", vbInformation, "Message" 
    UserForm2.TextBox2.Text = rs!ELName 
End If