This is the end result of my code ...
Code:
Private Sub SearchFor_AfterUpdate()
On Error GoTo Err_SearchFor_AfterUpdate
Dim MySQL As String
MySQL = "SELECT KeyNumber, KeyCode, KeyName "
MySQL = MySQL & "FROM tKey "
If InStr(1, Me.SearchFor) Then
MsgBox "Do not use quotes"
Leave a comment: