Zwischen arbeitet nicht in VBA, versuchen dieses anstatt
Wenn Stunde (jetzt ()) >= 1 und Stunde (jetzt ()) <� 9="" Then="">DoCmd.OpenQuery „qryUpdate1“
ElseIf Stunde (jetzt ()) >= 13 und Stunde (jetzt ()) <� 21="" Then="">DoCmd.OpenQuery „qryUpdate2“
Beenden wenn