Execute Code

[gti_jobert]

Hi all,

I want to execute all the code in a cmdButton on a userform when a
keypress is registerd.


Code:
--------------------

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 10Then
'goto cmdSearch (execute the cmdSearch Code)
End If
End Sub

 

[Ardus Petus]

See amanded code

HTH
--
AP

"gti_jobert" <[email protected]> a
écrit dans le message de
news:[email protected]...

 

[tony h]

move the code inside the command button routine into a general modul
(create the module using insert...module and call it as a public sub

eg
public sub doCMD

end sub


then change the cmdbutton code to call doCMD and the keypress i
ascii=10 to call docmd

Hope this helps
regards,