SOLVED: Event ID

I am doing very similar in my app. Data is stored in the Events table in an mdb file. I wanted to use the RECORD_ID from the mdb file and make it the same for the Calendar event.

I set up as a custom provider in my Form open event:

Me.CalendarControl0.SetDataProvider "Provider=Custom"
Me.CalendarControl0.DataProvider.Open

and then responded to the DoRetrieveDayEvents event as follows:

Private Sub CalendarControl0_DoRetrieveDayEvents(ByVal dtDay As Date, ByVal Events As Object)

Dim oEvent As CalendarEvent
Dim sQuery As String
Dim db As Database, SourceSet As Recordset

    
    sQuery = "SELECT * FROM Events WHERE EVENT_DATE = #" & dtDay & "#);"

    Set db = CurrentDb
    Set SourceSet = db.OpenRecordset(sQuery, DB_OPEN_DYNASET)
   
    ' no events found
    If SourceSet.BOF Then
        SourceSet.Close
        Exit Sub
    End If
       
    SourceSet.MoveFirst
       
    Do
   
        Set oEvent = Me.CalendarControl0.DataProvider.CreateEventEx(SourceSet("RECORD_ID"))
       
        oEvent.StartTime = SourceSet!EVENT_START
        oEvent.EndTime = SourceSet!EVENT_END
        oEvent.Location = SourceSet!FACILITY_NAME
        oEvent.Label = SourceSet!COLOR_INDEX
       'etc
       
        Events.Add oEvent
               
        SourceSet.MoveNext

    Loop While Not SourceSet.EOF
       
   
    SourceSet.Close

End Sub


The CreateEventEx(ID) function will return you a new event object with your desired ID as the Event ID. You can then use the code:

Dim oDP As CalendarDataProvider
Set oDP = Me.CalendarControl0.DataProvider
' find event or create it
Set oEvent = oDP.GetEvent(lFindThisID)
       
        If oEvent Is Nothing Then
            Set oEvent = oDP.CreateEventEx(lFindThisID)
        End If

       ' use oEvent......
      

In my app, I never let the user alter the Calendar info directly, so I don't have to worry about moving data from the Calendar to the data file. Only from the data file to the Calendar. I do this by intercepting the mouse clicks and bringing up my own forms which are interacting directly with the database. After that is done I update the Calendar event accordingly. Some pared down code:

Private Sub CalendarControl0_DblClick()
Dim HitTest As CalendarHitTestInfo
Dim bRet As Boolean
Dim vDate As Date
Dim lID as Long
    
    Set HitTest = Me.CalendarControl0.ActiveView.HitTest

    If HitTest.ViewEvent Is Nothing Then ' clicked on day rather than event...
        vDate = Format(HitTest.HitDateTime, "m/d/yy")
    ' check for valid date and make sure user wasn't clicking outside of calendar, etc
        ' show my own event form in add mode and get back a new ID from mdb
    lID =  ShowAddEventForm(vDate) 'show event form in add mode
    If lID <> 0 Then
        AddItemToCalendar(lID) ' calls CreateEventEx(lID) and fills in event details
    End If
       
    Else
        ' user clicked on event, show my form
        ShowMyEventForm(HitTest.ViewEvent.Event.ID)
    ' copy changes to calendar event
        bRet = CopyItemToCalendarEvent(HitTest.ViewEvent.Event.ID, HitTest.ViewEvent.Event)
        If bRet = True Then
        'it was altered and should be updated   
            Me.CalendarControl0.DataProvider.ChangeEvent HitTest.ViewEvent.Event
        Else
        ' it was deleted and should be removed   
            Me.CalendarControl0.DataProvider.DeleteEvent HitTest.ViewEvent.Event
        End If
       
    End If

    Me.CalendarControl0.Populate

End Sub

Hope this helps.

It should work fine with the built in dialogs. The only thing you need to do is add a new record to your db so you can get back your desired ID (or at least find out what the new ID will be, in case the user backs out in adding it to the calendar) before you create the new Event in the calendar. Something like this should work:

Private Sub CalendarControl0_DblClick()
Dim dp As CalendarDataProvider
Dim dlg As CalendarDialogs
Dim HitTest As CalendarHitTestInfo
Dim oEvent As CalendarEvent
Dim bRet As Boolean
Dim lID As Long
   
    Set dp = CalendarControl0.DataProvider
    Set HitTest = Me.CalendarControl0.ActiveView.HitTest
    Set dlg = New CalendarDialogs
    dlg.ParentHWND = Me.hWnd
    dlg.Calendar = CalendarControl0
   
    If HitTest.ViewEvent Is Nothing Then ' clicked on day rather than event
        lID = FindNextID() ' Get your desired ID from your db by adding a new record or determining what the id will be...
        If lID <> 0 Then
            Set oEvent = dp.CreateEventEx(lID) ' Create a new event with your id
            oEvent.StartTime = HitTest.HitDateTime
            oEvent.EndTime = DateAdd("h", 1, HitTest.HitDateTime)
           
            bRet = dlg.ShowNewEvent2(oEvent)
            If bRet = True Then
                MsgBox "Item added"
                ' update your db using oEvent values or add it if you didn't before
            Else
                ' user backed out, kill event in db
            End If
        End If
      
    Else
       ' user clicked on existing event
        bRet = dlg.ShowEditEvent(HitTest.ViewEvent.Event)
        If bRet = True Then
            MsgBox "Item Edited"
            ' update your db with new info from HitTest.ViewEvent.Event
        End If
              
    End If

End Sub

Sounds good! Don't forget to delete the blank event in the DB if dlg.ShowNewEvent2(oEvent) returns False, ie the user hit the cancel button.

All the best.