0

VBAを使用してmySQLデータベースのデータを挿入、更新、および削除するこのコードがあります。番号を入力して一致するレコードがあると、プログラムは「レコードが見つかりました」と表示します。しかし、数値を入力するたびにプログラムがエラーになり、一致するデータがありません。私の質問は、一致するデータがない場合に「レコードが見つかりません」というエラー メッセージを返すにはどうすればよいかということです。私は初心者として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
4

1 に答える 1