enter key in a user form macro

[patupatu]

I want my userform to do "somthing" when the user hits the enter key. for example, the user enters a code and when he hits enter my program (privet sub) goes and finds a record in agiven worksheet and then show the content in the user form. A typical inquiry. NOT via a command button

 

[VoG]

Maybe like this in the userform's code module

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then MsgBox "Enter pressed"
End Sub

 

[patupatu]

Thank you very much. The thing is that I don't know where to put it. Below is a simplify code of my userform Where should I insert you code and how does it work? I thought it will br like an event something like "on enter eky DO..."

I'd appreciate your time and help.

CU

Private Sub CmdConsultar_Click()
' ultimafila = Cells(Rows.Count, 1).End(xlUp).Row


If TxtCodigo = "" Then
MsgBox ("empty code")
ConsultadeServicios.Hide
Exit Sub
Else
TxtDescripcion = Application.WorksheetFunction. _
VLookup(TxtCodigo.Text, Worksheets("Sheet1").Range("a2:b20"), 2, False)
If TxtDescripcion = "" Then
MsgBox ("Code does not exists")
End If
End If



End Sub

Maybe like this in the userform's code module

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then MsgBox "Enter pressed"
End Sub

 

[VoG]

If you put the code in the userform's code module, it will run whenever Enter is pressed

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
    '
    'your code here
    '
End If
End Sub

 

[patupatu]

Thank you. However, for every key I stroke my SUB is called, except when I hit "Intro". ???

I hope you can help me Thank you

Here is my code:
_______________________________________________

Private Sub TxtCodigo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 13 Then
Call CmdConsultar_Click

End If

End Sub
_____________________________________________________
Private Sub CmdConsultar_Click()
' ultimafila = Cells(Rows.Count, 1).End(xlUp).Row

If TxtCodigo = "" Then
MsgBox ("empty code")
ConsultadeServicios.Hide
Exit Sub

Else

TxtDescripcion = Application.WorksheetFunction. _
VLookup(TxtCodigo.Text, Worksheets("Sheet1").Range("a2:b20"), 2, False)
If TxtDescripcion = "" Then
MsgBox ("Code does not exists")
End If
End If

End Sub
___________________________________________________

If you put the code in the userform's code module, it will run whenever Enter is pressed

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
    '
    'your code here
    '
End If
End Sub

 

[patupatu]

Hello again. I just checked and ..._keypress recognizes ANSI characters only or what it's called "typeables", therefore "intro" key doesn't invoke txtfield_KeyPress

Any ideas?

Thank you

Thank you. However, for every key I stroke my SUB is called, except when I hit "Intro". ???

I hope you can help me Thank you

Here is my code:
_______________________________________________

Private Sub TxtCodigo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 13 Then
Call CmdConsultar_Click

End If

End Sub
_____________________________________________________
Private Sub CmdConsultar_Click()
' ultimafila = Cells(Rows.Count, 1).End(xlUp).Row

If TxtCodigo = "" Then
MsgBox ("empty code")
ConsultadeServicios.Hide
Exit Sub

Else

TxtDescripcion = Application.WorksheetFunction. _
VLookup(TxtCodigo.Text, Worksheets("Sheet1").Range("a2:b20"), 2, False)
If TxtDescripcion = "" Then
MsgBox ("Code does not exists")
End If
End If

End Sub
___________________________________________________

 

[Jaafar Tribak]

Try this :

Private Sub TxtCodigo_KeyDown _
(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 13 Then Call CmdConsultar_Click

End Sub