Problem mit dem Focus setzen

12/06/2008 - 19:52 von pewi | Report spam
Hallo

Meine Fragen nehmen kein Ende :-)

also, ich habe ein Endlosform, im Fußbereich sind ein Memofeld und eine
UFO (Endlosform). Ich möchte, dass Leerfelder einschl. Neuer Datensàtze
angemahnt werden. Sowohl im HFO als auch im UFO. Allerdings nur, wenn
aus dem endsprechenden Bereich gewechselt wird. (Vom Detailbereich in
den Fußbereich oder ins UFO und vom Ufo aus in den Fuß - bez. Detail
oder Kopfbereich).

Die abfragen habe ich so gelöst: (Gerüst)

Vom HFO:


Private Sub Text11_LostFocus ()

Dim tz as String

tz = NZ(Me.Text11)

if tz = "" Then

MsgBox "Leer"

End If



Vom UFO aus: (Gerüst)

Private Sub Untergeordnet_23_Exit (Cancel As Integer)

If Trim(Nz(Me!Name, "")) = "" Then MsgBox "Das Textfeld ist leer"

End Sub

Ich schaffe es einfach nicht, den Focus bei leerem Feld und Klick in
einen anderen Bereich auf das letzte Leerfeld zurückzusetzen :-(
(Me.SetFocus wird einfach nicht akzeptiert!)


Wer kann mir helfen?

Besten Dank


Hans-Peter Wilker
 

Lesen sie die antworten

#1 Thomas Möller
12/06/2008 - 20:34 | Warnen spam
Hallo Hans-Peter,

pewi schrieb:
also, ich habe ein Endlosform, im Fußbereich sind ein Memofeld und eine
UFO (Endlosform). Ich möchte, dass Leerfelder einschl. Neuer Datensàtze
angemahnt werden. Sowohl im HFO als auch im UFO. Allerdings nur, wenn
aus dem endsprechenden Bereich gewechselt wird. (Vom Detailbereich in
den Fußbereich oder ins UFO und vom Ufo aus in den Fuß - bez. Detail
oder Kopfbereich).

Die abfragen habe ich so gelöst: (Gerüst)

Vom HFO:

Private Sub Text11_LostFocus ()

Dim tz as String

tz = NZ(Me.Text11)

if tz = "" Then

MsgBox "Leer"

End If

Vom UFO aus: (Gerüst)

Private Sub Untergeordnet_23_Exit (Cancel As Integer)

If Trim(Nz(Me!Name, "")) = "" Then MsgBox "Das Textfeld ist leer"

End Sub

Ich schaffe es einfach nicht, den Focus bei leerem Feld und Klick in
einen anderen Bereich auf das letzte Leerfeld zurückzusetzen :-(
(Me.SetFocus wird einfach nicht akzeptiert!)



probier mal ob es reicht, wenn Du

Cancel = True

einfügst.

HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen