Gruppe
Dialog
Bereich
Calendar
Thema
UserForm mit Kalendersteuerelement immer mit aktuellem Datum
Problem
Das Kalendersteuerelement soll immer mit dem aktuellen Datum starten. Falls das Steuerelement nicht istalliert ist, nehmen Sie die Installation über Access vor.
Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmCal
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Calendar1.Year = Year(Date)
Calendar1.Month = Month(Date)
Calendar1.Day = Day(Date)
End Sub
StandardModule: Modul1
Sub Aufruf()
frmCal.Show
End Sub