Navigation Buttons size control

[bee55]

Hi every body
the default navigation buttons on access form is greatest and it has an effective search record field , but there is a bit of problem that is the size of navigation buttons is too small , is there any way to control its size ??
if no !! is there any code to make it as event on textchange property??
so i can make my own navigation button
great thanks

 

[namliam]

You can make your own navigation buttons using the default designer, it even adds the code for you.

Simply create a button and walk thru the steps.

 

[bee55]

You can make your own navigation buttons using the default designer, it even adds the code for you.

Simply create a button and walk thru the steps.

yes it is simple when i'm going to create next,previous,find next
but i need the functionality of search button located on the bottom right of navigation button, when you type a char it will search whole fields and match any part in a very high response , it work on text change
i try this code but it didn't work :

Private Sub cmdFind_Click()
    On Error GoTo HandleError
    Dim strFindWhat As String: strFindWhat =
    DoCmd.FindRecord FindWhat:=strFindWhat, Match:=acEntire, MatchCase:=False, _
                    Search:=acSearchAll, SearchAsFormatted:=False, _
                    OnlyCurrentField:=acCurrent, FindFirst:=True
    
HandleExit:
    Exit Sub
HandleError:
    MsgBox Err.Description
    Resume HandleExit
End Sub

it produce error

 

[namliam]

"strFindWhat ="
= to ????

 

[bee55]

"strFindWhat ="
= to ????

i put insteed of this, the exepression :
"ID =" & Me.ID

 

[namliam]

and ? that did what?

 

[bee55]

Sorry i paste the help code by mistake
this is the code i put :

Private Sub cmdFind_Click()
On Error GoTo HandleError
Dim strFindWhat As String:
DoCmd.FindRecord 22, acEntire, False, acSearchAll, False, acCurrent, True

HandleExit:
Exit Sub
HandleError:
MsgBox Err.Description
Resume HandleExit
End Sub

this is the error :
A macro set to one of the current fields properties faild because of an error in a findRecord action argument