Hallo zusammen
habe in einem Formularfeld ein ein Feld, in dem eine Auftragsnummer eingetragen werden soll. Ist eine Nummer enthalten, geht das Programm durch, falls nicht, kommt eine Warnung. Habe das Makro wie folgt:
If txtAuftragsnr "" Then
Select Case KeyAscii
Case vbKey48 To vbKey57 'vbKey1 To vbKey9
Case Else
MsgBox ("Auftragsnummer: Es können nur Zahlen eingegeben werden!")
KeyAscii = 0
End Select
txtAuftragsnr = ""
txtAuftragsnr.SetFocus
Exit Sub
Else
MsgBox ("Bitte Auftragsnummer eintragen")
End If
Aber es funktioniert leider nicht!
Kann mir jemand von Euch bitte nen Verbesserungsvorschlag machen!
Danke im Voraus!
LG Chris