Option Explicit
Private m_blnReturn As Boolean
Private Sub cmdSuche_Click()
'...
End Sub
Private Sub txtSucheKdNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = m_blnReturn
m_blnReturn = False
End Sub
Private Sub txtSucheKdNr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
m_blnReturn = True
'Call cmdSuche_Click
End If
End Sub
Wenn du die Property Default deiner Schaltfläche cmdSuche auf True setzt, kannst du dir das Aufrufen des Click-Events auch einsparen (deshalb auskommentiert). Ob man das verwendet, hängt von der UserForm / vom Design ab.
|