Auswahl CalendarBox in Textbox
30.08.2006 16:22:17
Frank68
ich rufe von einer möchte mittels calendar in einem UF eine Datumsauwahl in ein Label eingeben:
Private Sub Calendar1_Click()
Dim dat As Date
Calendar1.Value = dat
With UF_Projekt_neu.Label14 'Das ist das UF, auf welchem Label14 platziert
'ist
.Caption = "Erfassung des Projekts am " & dat
End With
End Sub
Nach dem Anklicken des neuen Datums zeigt Label14 allerdings 00:00:00 an. Was mach ich falsch?
Dank!
Anzeige