PDA

Vollständige Version anzeigen : Auf Tastendruck Datum einfügen


KKOPP
24.09.2001, 19:29
Hallo,
ich habe die Taste F5 mit dem aktuellen Datum belegt.
In einem Memofeld wird der Inhalt gelöscht und das aktuelle Datum eingefügt.

Kann man hinter dem Inhalt des Feldes das Datum per Tastendruck einfügen ohne den Inhalt zu löschen?

KKopp

WalterS
24.09.2001, 19:39
Hallo KKOPP!

Ich verwende in meinen Formularen die F) Taste um in Datumsfelder das aktuelle Datum einzufügen. Hierzu muss notwendiger Weise die Tastenvorschau für das Formular auf JA gestellt sein.

Hier der Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim hstr As String
If KeyCode = 120 Then 'F9-Taste
hstr = Screen.ActiveControl.ControlSource
If Me.RecordsetClone.Fields(hstr).Type = dbDate Then ' Ist das aktuelle Feld ein "Datumsfeld"???
Screen.ActiveControl.Value = Date
End If
End If
End Sub

für F5 ist der Keycode 116 und es müsste für das Anfügen ans MEMO_feld so lauten

if Keycode =115 then
Keycode = 0 '~~~~~~löscht den Tastendruck
me.Memofeld = me.Memofeld & " " & Date
endif