PDA

Vollständige Version anzeigen : Bezeichnungsfeld nur für 5 Sekunden anzeigen


LupoTirol
24.10.2003, 07:22
Hallo, eine Frage! (A2K)

Im Formular teste ich mit "GotFocus()" ob das vorherige Textfeld leer ist.
Ist dies der Fall so springt der Focus wieder in das vorherige leere Textfeld.

Sollte dies der Fall sein so möchte ich gerne ein Bezeichnungsfeld für 5 Sekunden mit "Visible=True" einblenden.

Wie muss ich das machen, habe damit leider überhaupt keine Erfahrung.

Bitte - Danke
Lupo

WMS
24.10.2003, 08:15
in dem Textfeld schreibst du 'Bei Focuserhalt'

Me.TimerInterval = 5000
MeinBild.visible = True


Im Formular 'Bei Zeitgeber'

MeinBild.visible = False

:confused:

LupoTirol
24.10.2003, 09:04
das war's .. wenn man weis wie echt einfach.
Noch einmal danke du hast mich gerette - echt ein starkes Forum.

Lupo

WMS
24.10.2003, 09:46
Hi Lupo

eins habe ich doch noch vergessen

Im Formular 'Bei Zeitgeber'

MeinBild.visible = False

sollte auch stehen

Me.TimerInterval = 0

sonst bleibt der Timer immer aktiv und kann in besonderen Fällen zu Problemen führen. :bawling:

LupoTirol
24.10.2003, 10:26
Danke werde ich noch einfügen.
Grüße aus dem verschneiten Tirol.
:winner:
Lupo

Gast
24.10.2003, 10:43
Hallo Lupo,
diesen VBA-Code solltest Du in das vorherige "Textfeld" unter
"Beim Verlassen" (Focus) einbinden.
so wird das "Textfeld" erst garnicht verlassen.
mfg
Gert Seler

LupoTirol
24.10.2003, 12:07
Hallo Gert

ich glaube ich muss das so machen da ich den Focus dem leeren Textfeld
wieder zuweisen will, und "SetFocus" kann nicht auf das aktive Textfeld also auf sich selber verweisen.
Indem ich das Textfeld erst im nächsten Textfeld kontrolliere, kann ich
mit "SetFocus" wieder auf das vorherige Feld springen. So muss etwas eingetragen werden.

Oder gibt es dafür ein andere Lösung?

Lupo

WMS
24.10.2003, 12:28
... die Variante von Gert funktioniert, wenn du den Focus kurzweilig auf ein anderes Textfeld stellst
und dann wieder den Focus auf dein Textfeld stellst.

beim Verlassen des zu prüfenden Feldes:

If IsNull(Text0) Then
Text2.SetFocus
Text0.SetFocus
End If


hat den Nachteil, das du das Feld nur verlassen kannst, wenn ein Eintrag erfolgt. :bawling: :confused:

LupoTirol
24.10.2003, 14:30
Den erwähnten "Nachteil" wollte ich ja unbedingt haben, und dank eurer Hilfe
gehts jetz super!
Herzlichen Dank.

Chau
Lupo