Private Sub NewButton_Click()
  Dim EverythingsOK As Boolean
  EverythingsOK = False
  
  If ((Len(EventTimeBox.Value) =  0 ) And (Len(EventTimeField.Value) =  0 )) Then
    MsgBox  "Please select time for the event." 
  ElseIf Len(SubjectField.Value) =  0  Then
    MsgBox  "Please type the event subject." 
  ElseIf Len(RepeatCombo.Value) =  0  Then
    MsgBox  "Please select event repeat." 
  Else
    EverythingsOK = True
  End If
  
  If EverythingsOK = True Then
    Dim EventDateString As String
    EventDateString = ActiveXCalendar.Day &  "/"  & ActiveXCalendar.Month &  "/"  & ActiveXCalendar.Year
    Dim EventTimeString As String
    If Len(EventTimeField.Value) <>  0  Then
      EventTimeString = EventTimeField.Value
    ElseIf Len(EventTimeBox.Value) <>  0  Then
      EventTimeString = EventTimeBox.Value
    End If
    DoCmd.RunSQL ( "INSERT INTO Events (event_date, event_time, event_subject, event_comments, event_location, carrier_id, repeat_id) VALUES (#"  & EventDateString &  "#, #"  & EventTimeString &  "#, '" & SubjectField & "', '" & CommentsField & "', '" & LocationField & "', "  & CarrierCombo &  ", "  & RepeatCombo &  ")" )
    MsgBox  "Event added." 
  End If
End Sub