[RESOLVED] messagebox always pop up

[matrik02]

I have problem here.. I want to query. When the textbox is null then I got the messagebox twice. Why?

Private Sub Text2_Change()
On Error GoTo error
databasepetatable 'connect record table peta menggunakan modul syskod
tablesys.Close
tablesys.Open "Select * from peta where Kod =  '" & Text2.Text & "'", consys, adOpenDynamic, adLockOptimistic
   If Not tablesys.BOF And Not tablesys.EOF Then
   Text10.Text = tablesys.Fields("Peta").Value
   Else
   MsgBox ("Tiada Rekod dijumpai")
   Text2.Text = ""
   Text10.Text = ""
   End If
error:
End Sub

[LaVolpe]

Because you are setting the textbox value again.
1. Text2 = something
2. It isn't in your database and you get msgbox
3. Now you change Text2="" and the Text2_Change event fires again and msgbox happens again.

[matrik02]

Because you are setting the textbox value again.
1. Text2 = something
2. It isn't in your database and you get msgbox
3. Now you change Text2="" and the Text2_Change event fires again and msgbox happens again.

When Text2="" this not in the database. So how to avoid the message box again

[LaVolpe]

Many times when I want to change a control value but not have it execute the code, I'll set its tag to something and check for that value when the event fires. Something like this:

Private Sub Text2_Change()
If Text2.Tag = "ignore" Then Exit Sub ' < added IF statement
On Error GoTo error
databasepetatable 'connect record table peta menggunakan modul syskod
tablesys.Close
tablesys.Open "Select * from peta where Kod =  '" & Text2.Text & "'", consys, adOpenDynamic, adLockOptimistic
   If Not tablesys.BOF And Not tablesys.EOF Then
   Text10.Text = tablesys.Fields("Peta").Value
   Else
   MsgBox ("Tiada Rekod dijumpai")
   Text2.Tag = "ignore" ' < added Tag value
   Text2.Text = ""
   Text2.Tag = vbNullString ' < added Tag value
   Text10.Text = ""
   End If
error:
End Sub