executing Button Code from Text Box

[CarlEOgden]

Hi,

 

I've got the following code in the KeyPressed function of a Text Box:-

 

Dim KeyAscii As Integer

 

KeyAscii = Asc(e.KeyChar)

 

If KeyAscii = Asc(ControlChars.Cr) Then

Button1.Focus()

e.Handled = True

Me.Button1_Click()

Exit Sub

End If

 

Me.Button1_Click() does work! What do I need so that when I press enter after entering some text to then execute the code in button1.

 

Thanks for any and all help given.

Carl.

[dynamic_sysop]

Button1.PerformClick()

[CarlEOgden]

Hi,

 

Thanks for that, it's a bit ovbious! I'll try to open my eyes and read the drop down boxes better or read my book!

 

Cheers,

Carl.