Function OpenCalendar (strForm als Schnur, strCtrl als Schnur) als Datum
DoCmd.OpenForm „frmCalendar“
Formen! frmCalendar.Caption = „vorwählen“ u. strCtrl u.
Formen! frmCalendar! FormName = strForm
Formen! frmCalendar! ControlName = strCtrl
Enden-Funktion
VorSetDate ()
Schwaches strForm
Schwaches strCtrl
Schwaches wd als Datum
wd = Formen! frmCalendar! Calendar3.Value
strForm = Formen! frmCalendar! FormName
strCtrl = Formen! frmCalendar! ControlName
Formen (strForm) (strCtrl). Wert = wd
Bildet (strForm) (strCtrl,) .SetFocus
Formen (strForm). Requery
'Formen! frmCalendar.Visible = falsch
DoCmd.Close acForm, „frmCalendar“
Enden-Unterseeboot
|