Fokus setzen

Forumthread: Fokus setzen

Fokus setzen

24.04.2007 20:49:00

Universal

Guten Abend,
ich habe eine Userform mit mehreren Textfeldern. Bei einigen habe ich eine Prüfung (After Update) eingefügt, ob der Wert numerisch ist. Wenn nein, kommt eine Fehlermeldung. Anschließend möchte ich, dass das Textfeld wieder markiert wird. Dies funktioniert aber nicht. :(.


If Not IsNumeric(txtLfNummer.Value) Then
MsgBox "Bitte geben Sie einen numerischen Wert ein.", vbCritical, "fehlerhafte Eingabe"
txtLfNummer.SetFocus
cbReSuchen.Enabled = False
End If

Kann mir jemand helfen?
Vielen Dank und viele Grüße
Uni

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fokus setzen

24.04.2007 20:55:11

Harald
AW: Fokus setzen

24.04.2007 22:05:00

Universal
AW: Fokus setzen

24.04.2007 20:55:00

Spezial
AW: Fokus setzen

24.04.2007 22:09:26

Universal
AW: Fokus setzen

24.04.2007 22:50:00

Horst
AW: Fokus setzen

25.04.2007 18:21:00

Universal
AW: Fokus setzen

25.04.2007 18:43:09

Horst

AW: Fokus setzen

24.04.2007 20:55:11

Harald

txtLfNummer.setfocus
txtLfNummer.selstart = 0
txtLfNummer.sellenght = txtLfnummer.textlenght

AW: Fokus setzen

24.04.2007 22:05:00

Universal

Danke - dass funktioniert teilweise. Hier zum Beispiel nicht.


If Not IsDate(txtEingabedatum) Then
MsgBox "Keine Eingabe oder kein gültiges Datum!", _
vbOKOnly + vbCritical, "Eingabe prüfen"
txtEingabedatum.SetFocus
txtEingabedatum.SelStart = 0
txtEingabedatum.SelLength = txtEingabedatum.TextLength
cbReSuchen.Enabled = False
Else
date1 = Date
date2 = txtEingabedatum
Delta = DateDiff("d", date1, date2)
cbReSuchen.Enabled = True
End If
If Delta > 0 Then
MsgBox "Datum kann nicht in der Zukunft liegen!", _
vbOKOnly + vbCritical, "Unplausible Eingabe"
txtEingabedatum.SetFocus
txtEingabedatum.SelStart = 0
txtEingabedatum.SelLength = txtEingabedatum.TextLength
cbReSuchen.Enabled = False
Else
cbReSuchen.Enabled = True
End If

AW: Fokus setzen

24.04.2007 20:55:00

Spezial

Hallo,
Cancel=true
Gruß
Spezi

AW: Fokus setzen

24.04.2007 22:09:26

Universal

Wie meinst du das Spezi? Bei den Objekt-Eigenschaften gibt es diese Eigenschaft nicht für das Textfeld. Und den kann ich auch nicht setzen "txtLfNummer.Cancel = True".
Trotzdem Danke! :)

AW: Fokus setzen

24.04.2007 22:50:00

Horst

Hi,
kein Control, es sei denn, es verfügt über die Eigenschaft "TakeFocusOnClick", kann den Focus
auf sich selbst setzen, denk mal darüber nach.
mfg Horst

AW: Fokus setzen

25.04.2007 18:21:00

Universal

Hallolo,
dass klappt auch nicht. :( Hat noch jemand eine Idee?
Gruß
Uni

AW: Fokus setzen

25.04.2007 18:43:09

Horst

Hi,
logisch, eine textbox hat ja auch keine Eigeschaft TakeFocusOnClick.
Du musst den Focus bei einem anderen Ereignis setzen.
mfg Horst

Beliebteste Forumthreads (12 Monate)

Forumthread: Fokus setzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread