Ok I've amended the code. I just can't figure out why I am getting a boolean result returning.
Here it is:
Private Sub OpenCalRep(date1 As Date, subformname As String)
If IsNull(date1) Then
DoCmd.OpenForm "maintenance1", , , , acFormAdd
Else
DoCmd.OpenReport "calendarreport", acViewPreview, ...