Focus bestimmen
09.09.2006 12:59:17
Peter
ich schlage mich schon lange damit herum den Focus eines Objectes (Textbox)nach einer Fehleingabe zu bestimmen.
Ich möchte gerne, wenn in die KundenNr-Textbox eine falsche Kunden-Nr. oder garkeine KundenNr. eingegeben wird nach der Fehlermeldungsanzeige der MSGBOX den Focus in der KundenNr-Textbox behalten. Bis jetzt springt der Courser immer zur nächsten Textbox. Wer kann mir da helfen ?
So hatte ich gedacht funktioniert es - falsch, geht nicht :-( !:
Userform1_______________________________________________________________________
Private Sub TextBox1_KD_Nr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox1_KD_Nr.Value = "" Then
Call Modul3.Fehlermeldung_KDNr2
Exit Sub
End If
Call Modul1.kunden_suchen
End If
End Sub
Modul3________________________________________________________________________
Sub Fehlermeldung_KDNr2()
MsgBox "Bitte geben Sie eine Kunden-Nr ein !", vbCritical, "Eingabefehler"
Userform1.TextBox1_KD_Nr.SetFocus
End Sub
für eine Idee bedanke ich mich im Voraus
Mit freundlichen Grüßen Peter Malze