PDA

Vollständige Version anzeigen : Mit Schaltfläche aktuelle Zeit in ein Formularfeld einfügen


MikRed
23.03.2004, 08:47
Hallo,
ich möchte gerne beim ANKLICKEN einer Schaltfläche die aktuelle Zeit
in ein Formularfeld einfügen! undzwar in das, was gerade aktive ist.
Hat jemand eine Idee und kann mir Helfen?
Danke
MikeRed

strausto
23.03.2004, 09:07
Private Sub Command2_Click()
Screen.PreviousControl.SetFocus
Screen.ActiveControl = Now
End Sub

kaosqlco
23.03.2004, 09:13
Hallo MikeRed,

das Problem ist, dass beim Anklicken der Schaltfläche die Schaltfläche den Focus bekommt.
Folgender Code sollte aber funktionieren.
Option Compare Database
Option Explicit

Public ctl As Control

Private Sub cmd_Zeit_Click()
For Each ctl In Me.Controls
If ctl.Tag = "Fokus" Then
Me.ctl.Value = Format(Time, "hh:nn:ss")
End If
Next
End Sub

Private Sub Text0_LostFocus()
For Each ctl In Me.Controls
ctl.Tag = ""
Next
Text0.Tag = "Fokus"
End Sub

Private Sub Text2_LostFocus()
For Each ctl In Me.Controls
ctl.Tag = ""
Next
Text2.Tag = "Fokus"
End Sub


Hier wird die .tag-Eigenschaft (marke) ausgewertet. - Immer das Textfeld, dass vor dem Klick auf den Button den Fokus hatte, bekommt als .tag das Wort "Fokus" zugewiesen, alle anderen tags werden geleert. Beim Klicken wird dann in das Feld die aktuelle Zeit eingetragen.

Gruß Jan


@strausto
Ich habe wiedermal viel zu kompliziert gedacht. :D