PDA

Vollständige Version anzeigen : .SetFocus


ehei
01.10.2002, 14:28
Hallo,

Sub FalscherWert(frm As Form, ctl As Control)
Select Case ctl.ControlName
Case "Tag"
With ctl
If a <> b Then
MsgBox "Falscher Wert!"
ctl.SetFocus
Exit Sub
End If
End With
End Select
End Sub

... will mit obiger Prozedur, bei Eingabe eines falschen Wertes, den Fokus wieder auf das angegebene (aktuelle) Steuerelement setzen.

Die Folge: der Fokus wird an eine andere Stelle gesetzt.
Warum???????????????????

Bitte um Nachricht, danke Elfi

Karlheinz
01.10.2002, 15:26
Hallo Elfi,

wenn sich die Prozedur im Klassenmodul des Formulars befindet

ganz einfach

Sub FalscherWert()

If a <> b Then
Screen.ActiveControl.SetFocus
End If
End Sub

Gruß Karlheinz