Expand|Select|Wrap|Line Numbers
- 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
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:
Expand|Select|Wrap|Line Numbers
- docmd.gotocontrol "accountnumber"
please let me know how it works.
thanks lee123