Brauch noch ne Info SetFocus!
05.05.2005 11:50:27
walter
habe folgendes Makro:
If Walter.CheckBox21.Value = False And Walter.CheckBox22.Value = False And Walter.CheckBox23.Value = False And Walter.CheckBox24.Value = False Then
MsgBox "Sie müssen die Zahlungs -Abwicklung regeln !" & Chr(13) & Chr(13) & _
"Es geht sonst nicht weiter ..." _
& Chr(13) & Chr(13) & _
"Also auswählen:" & Chr(13) & Chr(13) & _
" Bar, Scheck, Finanzierung oder Leasing ! " _
, vbInformation, " Hinweis !"
Exit Sub
TextBox18.SetFocus
With TextBox18
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
leider wird der SetFocus in die Textbox18 nach bestätigen der Meldung nicht
gesetzt. Die Textbox steh in einem Frame.
Wieso?
Gruß Walter