HELP NEEDED ASAP!!!

Private Sub CalendarControl_EventAdded(ByVal EventID As Long)
   
    Dim msg As String
    Dim pEvent As CalendarEvent
   
    Set pEvent = CalendarControl.DataProvider.GetEvent(EventID)
    If Not pEvent Is Nothing Then
        CalendarControl.RedrawControl
        ClientName = pEvent.Subject
        ' call sub to check and see if the client exist in the database or not
        Select Case btnExist
        Case False
            msg = pEvent.Subject & " doese not exist...!"& vbCrLf
            msg = msg & "Add him now to your database ?" & vbCrLf
            If MsgBox(msg, vbYesNo + vbQuestion, Title) = vbYes Then
                'load form to add new client
            Else
                ' delete event
                CalendarControl.DataProvider.DeleteEvent pEvent
            End If
        End Select
    End If
    CalendarControl.Populate
    CalendarControl.DataProvider.ChangeEvent pEvent
    btnExist = False
End Sub

 

now: Private Sub CalendarControl_EventAdded(ByVal EventID As Long) doese not exist anymore.

so how can I fix this problem?

 

can you be a ilittle bit clear in your answer. and like I said, the code was working fine, and no need for 'Action' at all.

thank you,

I have the same problem too, and I did remove the new version and went back to the old version because I was waiting for someone to answer your question, and it seems like no one want to do so.

good luck.

sorry about all that, but the btnExist is a boolean variable that I use to check if the client (pEvent.Subject) if it doese exist in the database. if 'True' then the event will be added, otherwise a message will be displayed to the user telling him/her that the name thet they entered it's not in their database. that is the purpose of btnExist.

thank you,

Note: if you have another suggestion, please let us know