Execute Code

Hi all,

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

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

Any ideas? Thanks!

move the code inside the command button routine into a general module (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 if ascii=10 to call docmd

Hope this helps
regards,

Originally Posted by gti_jobert

Hi all,

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

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

Any ideas? Thanks!

See amanded code

HTH
--
AP

"gti_jobert" <gti_jobert.241crz_1141291802.1799@excelforum-nospam.com> a
écrit dans le message de
news:gti_jobert.241crz_1141291802.1799@excelforum-nospam.com...
>
> 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
cmdSearch
> End If
> End Sub
>
> --------------------
>
>
> Any ideas? Thanks!
>
>
> --
> gti_jobert
> ------------------------------------------------------------------------
> gti_jobert's Profile:
http://www.excelforum.com/member.php...o&userid=30634
> View this thread: http://www.excelforum.com/showthread...hreadid=518152
>