Hello everyone. I found a appointment calendar I am trying to get working. When I open the appointment form I get an :Invalid use of null" error but the form opens anyway after I close the error window. When I click new appointment I get the error again and it high lights the line
vDateTime = CDate(OpenArgs)
I do not understand this error. I have included the code.
Code:
Public Sub EnableFields()
'Reset input fields to default values and disable'
Dim vDateTime As Date
Me.cboStartTime.Enabled = True
Me.cboEndTime.Enabled = True
Me.txtStartDate.Enabled = True
Me.txtEndDate.Enabled = True
Me.txtSubject.Enabled = True
Me.txtLocation.Enabled = True
Me.txtNotes.Enabled = True
Me.cmdStartDate.Enabled = True
Me.cmdEndDate.Enabled = True
vDateTime = CDate(OpenArgs) 'fetch appointment date from OpenArgs
Me.txtStartDate = DateValue(vDateTime) 'show default appt start date
Me.txtEndDate = DateValue(vDateTime) 'show default appt end date
Me.cboStartTime = TimeValue(vDateTime) 'and default Start Time
Me.cboEndTime = DateAdd("n", conPeriod, Me.cboStartTime) 'and default End Time
Me.txtSubject = ""
Me.txtLocation = ""
Me.txtNotes = ""
Me.chkExported = False
End Sub
Thank-you
Cheeco