Return Key Presses My Button - How?

[Maillme]

Hi there,

I have a search form, with 3 fields....i would like it so that if my user enters anything into these three fields, and hits enter - it will "click" my search button on the form.

How is this acheived?

many thanks again for all your help,

Neil

 

[PHV]

and hits enter
Make your search button the default one.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

Command buttons have a property called "DEFAULT" set it to "Yes". will do the trick.

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[Maillme]

Thats great - BUT, my form has a tab control, with 2 different search options, and...............well.............2 different search buttons - so this default only works for one of these...........any ideas how i can make sure this works for both my search buttons?

thanks,

Neil

 

[Remou]

How about setting the focus to the appropriate command button in the After Update Event of the textbox and using the On Got Focus event to run the search? This way, any method of exiting an updated textbox will cause the search to run.

 

[Maillme]

I dont think that would really work (if my understanding is correct - which it may not be!), as the 3 txt boxes are for different data:

first Name
Surname
location

But it could be any one of these that is used, or even a combination of both......

So, the user could enter "Cath" in first name field, but the above method wouldnt work unless they were moving onto the nxt field - i woudl like it so if they pressed tner it woudl run the search.

thanks,

Neil

 

[PHV]

Why 2 search buttons ?
Can't you merge the two Click event procedures into one ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

How about something like this?

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        'Do something here
        MsgBox "enter button"
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[Maillme]

I'm sure i possibly could merge the 2, but it took me the best part of yesterday, and alot of help from coleagues and this site to get this one working!

It searches 2 different tables, using different criteria.......

Neil

 

[Maillme]

is ther not a way to do this on the "keypress event" of the txt box's? Or would this effect the other button, on the other tab......

many thanks,

Neil

 

[PHV]

So next time ask more precisely.
You clearly asked for ONE button.

 

[ZmrAbdulla]

No.. as far as I know..
KeyPress recognize KeyAscii code. You will not get many of the keys recognized by the KeyPress Event.
see

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox KeyCode
End Sub

Private Sub Text0_KeyPress(KeyAscii As Integer)
   MsgBox KeyAscii
End Sub

You can call any command from the event. I have wriiten "Do Something here" in the first sample. sample below
[tt]
Call Command1_Click
[/tt]

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[Maillme]

geez......sorry.......

Neil

 

[Maillme]

Thanks ZmrAbdulla .....


Neil

 

[ZmrAbdulla]

Now I will ask why button at all?
delete the command buttons , keep the code there and call the respective code from the KeyDown event.

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[Maillme]

oh....i am totally confused now

OK, sorry for me rambling on, im just a bit confused now - but ZmrAbdulla, i think i know what you are meaning.

I have a form, with 2 tabs on it (i can email you a screen grab if it would help).


Each tab has it's own search function, and button - i would like to be able to add code, so that depending on what tab you are on, and when you press enter, i would like it to do the same, as if you had clicked the search button on that tab.

I think taking the button away all together seems like a good idea, but only if i was the one using the database, but i'm not - and i suspect this could confuse a few people (who dont know to hit the enter button).

thank you very much for everyone's help,

Neil

 

[ZmrAbdulla]

OK simple logic place 2 textboxes and 2 command buttons on the form
name them like below and try the code
Textbox 1=Text1
Textbox 2=Text1
Command Button1 =cmdSearch1
Command Button2 =cmdSearch2

Private Sub cmdSearch1_Click()
    MsgBox "You pressed Command Search 1"
End Sub
[COLOR=green]'=============================================[/color]
Private Sub cmdSearch2_Click()
    MsgBox "You pressed Command Search 2"
End Sub
[COLOR=green]'=============================================[/color]
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call cmdSearch1_Click
    End If
End Sub
[COLOR=green]'=============================================[/color]
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call cmdSearch2_Click
    End If
End Sub

Remember!! Buttons on the tabcontrol is not the collection of tabcontrol but of form.

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[ZmrAbdulla]

Here is another solution with one command button, one tabcontrol, and 2 text boxes. Textboxes are on each page of the tabcontrol.

Private Sub Command1_Click()
    Select Case Me.TabCtl0.Value
    Case 0
        MsgBox "You are at page1"
    Case 1
        MsgBox "You are at page2"
    End Select
End Sub
[COLOR=green]'================================[/color]
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
[b]'DO SOMETHING HERE[/b]
        Call Command1_Click
    End If
End Sub
[COLOR=green]'================================[/color]
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
[b]'DO SOMETHING HERE[/b]
        Call Command1_Click
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
You may be the boss' pet; but you are still an animal

 

[Maillme]

got it working - thank you very much for all your help,

Neil