Here is a simple search box

[lee123]

i have asked this before 'how to make a search box to find a customer without scrolling through the records!" now i have made one so i hope there are people out there who can use this.

Private Sub Text63_AfterUpdate()
 
     Dim mydata As String
 
     mydata = Text63  'WHAT YOU WANT TO USE EXAMPLE: TEXTBOX, INPUTBOX
     If mydata = "" Or IsNull(mydata) Then Exit Sub
     DoCmd.GoToControl "customername"  ' OR WHAT ARE YOU SEARCHING FOR
     DoCmd.FindRecord mydata, acAnywhere, False, acSearchAll, , acCurrent, True
End Sub

i used in this example a textbox but you can use a input box for this as well.
this searchbox example you just have to enter the first two or three letters of the customer and press enter.

this should be on your customer form.
by the way if you have account number to search for you can put that in the code as well just change the:

docmd.gotocontrol  "accountnumber"

or what ever you searching for.

please let me know how it works.

thanks lee123

[130975]

Hi lee123,

Great Job. Its working perfectly. Looking for some more useful VBA coding.

Thanks and regards
130975