Termin per VBA anzeigen

Zum Anzeigen eines Termins im Meeting-Formular kannst Du die folgende Prozedur nutzen. Diese fügst Du einem Standardmodul hinzu:

Public Sub ShowMeeting(lngID As Long)
    Dim strSql As String
    strSql = "SELECT * FROM TBL_CAL_MEETING WHERE TID=" & lngID
    'Achtung: Hier 3 angeben, da Termin angezeigt werden soll
    CAL_OpenForm "FRM_CAL_MEETING", , , , , , 3 & "~" & strSql & "~" & lngID
End Sub

Der Aufruf lautet beispielsweise:

Public Sub Test_ShowMeeting()
    Call ShowMeeting(8)
End Sub

Als Parameter übergibst Du die ID des Meetings aus der Tabelle TBL_CAL_MEETING.