Private Sub Form_Load() Me!FormantKalendarz.Value = DateUwaga: Pamiętaj, żeby przypisanie'oczywiście możesz wpisać dowolną datęEnd Sub
Me!FormantKalendarz.Value = Date
zrobić w procedurze Form_Load()
, a nie w Form_Open()
, bo metoda nie zadziała.
2 sposób podał Krystian (Mr. Christie):
Private Sub Form_Load() Me.o_Calendar.Year = Year(Now) Me.o_Calendar.Month = Month(Now) Me.o_Calendar.Day = Day(Now) End Sub