Gruppe
Dialog
Problem
Das Kalendersteuerelement soll immer mit dem aktuellen Datum starten. Falls das Steuerelement nicht istalliert ist, nehmen Sie die Installation über Access vor.
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