Pflichtfelder
12.01.2004 14:51:32
Slimfast
ich habe da wohl ein kleines Problem.
Mochte eine Pflicht-Abfrage im Userform einer TextBox abfragen.
Die MSg-Meldung soll erst erfolgen wenn die Tab oder Return-Taste betätigt wird
kann mir da Jemand helfen ?
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox3) = 0 Then
Application.Run "VBAProject.Modul1.Pflichtfeld"
End If
End Sub
Public Sub Pflichtfeld()
Pflicht = MsgBox("Dieses Feld ist ein PFLICHTFELD!", vbOKOnly + vbInformation, "Meldung")
End Sub
Gruß Slimfast