Anzeigen des Kalenders in verschiedenen Ansichten

Wenn Du den Kalender in einer bestimmten Ansicht anzeigen möchtest, kannst Du die folgenden Aktionen durchführen.

Wenn die Ansicht geändert werden soll und der Kalender bereits geöffnet ist, diesen immer zuerst schließen:

DoCmd.Close acForm, "FRM_CAL_MAIN"

Zu aktuellem Datum wechseln

C_APP_START_DATE = Date    
DoCmd.OpenForm "FRM_CAL_MAIN"

Tagesansicht aktivieren

C_APP_START_VIEW = 1    
DoCmd.OpenForm "FRM_CAL_MAIN"

Arbeitswoche aktivieren

C_APP_START_VIEW = 2
DoCmd.OpenForm "FRM_CAL_MAIN"

Wochenansicht mit sieben Tagen aktivieren

C_APP_START_VIEW = 3
DoCmd.OpenForm "FRM_CAL_MAIN"

Monatsansicht aktivieren

C_APP_START_VIEW = 4
DoCmd.OpenForm "FRM_CAL_MAIN"

Sidebar einblenden

C_APP_START_SLIDER = 2
DoCmd.OpenForm "FRM_CAL_MAIN"

Sidebar ausblenden

C_APP_START_SLIDER = 1
DoCmd.OpenForm "FRM_CAL_MAIN"

Kalender schließen

DoCmd.Close acForm, "FRM_CAL_MAIN"

Neuen Termin anlegen

Statt Subject, Body und Location die gewünschten Daten angeben. Danach folgen die Startzeit und die Endzeit.

Es erscheint der Dialog mit den angegebenen Daten.

CreateNewMeeting "Subject", "Body", "Location", Now, Now + 1 / 48