How do you bypass the Null value in VB

[anoble1]

I have a form that has multiple fields. It has 4 fields. One of them happens to be a comment field. Sometimes there is a comment and sometimes there is not. When there is not a comment I get an error. When I debug it stops here where I have it underlined: .body = Me.Comments

How do I make it save not matter whats in the box?

Private Sub cmdAddToCalendar_Click()
    On Error GoTo Add_Err
 
    'Save record first to be sure required fields are filled.
    DoCmd.RunCommand acCmdSaveRecord
 
    Dim objOutlook As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem
    Dim objRecurPattern As Outlook.RecurrencePattern
 
    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppt = objOutlook.CreateItem(olAppointmentItem)
 
    With objAppt
        .Start = DateAdd("d", 90, LastEmploymentDate.Value) '& " " & Me!ApptTime
        .Duration = 1440
        .Subject = "Notify " & Me.NotifyName & " about " & Me.EmployeeName
        .ReminderMinutesBeforeStart = 15
        .ReminderSet = True
        .Body = Me.Comments
        .Save
        .Close (olSave)
    End With
    'Release the AppointmentItem object variable.
    Set objAppt = Nothing
 
    'Release the Outlook object variable.
    Set objOutlook = Nothing
 
    MsgBox "Appointment Added!"
 
    Exit Sub
 
Add_Err:
    MsgBox "Error " & Err.Number & vbCrLf & Err.Description
    Exit Sub
End Sub

[Delerna]

Try this
additions and changes are bolded

Private Sub cmdAddToCalendar_Click() 
    On Error GoTo Add_Err 
 
    'Save record first to be sure required fields are filled. 
    DoCmd.RunCommand acCmdSaveRecord 
    Dim strBdy as string
    Dim objOutlook As Outlook.Application 
    Dim objAppt As Outlook.AppointmentItem 
    Dim objRecurPattern As Outlook.RecurrencePattern 
 
    Set objOutlook = CreateObject("Outlook.Application") 
    Set objAppt = objOutlook.CreateItem(olAppointmentItem) 
     strBdy=Me.Comments 
    If isnull(strBdy) then strBdy ="" 
    With objAppt 
        .Start = DateAdd("d", 90, LastEmploymentDate.Value) '& " " & Me!ApptTime 
        .Duration = 1440 
        .Subject = "Notify " & Me.NotifyName & " about " & Me.EmployeeName 
        .ReminderMinutesBeforeStart = 15 
        .ReminderSet = True 
        .Body = strBdy
        .Save 
        .Close (olSave) 
    End With 
    'Release the AppointmentItem object variable. 
    Set objAppt = Nothing 
 
    'Release the Outlook object variable. 
    Set objOutlook = Nothing 
 
    MsgBox "Appointment Added!" 
 
    Exit Sub 
 
Add_Err: 
    MsgBox "Error " & Err.Number & vbCrLf & Err.Description 
    Exit Sub 
End Sub 
 

EDIT
oops, did a typo
Dim strBody
....
and then used it as Bdy instead of strBdy

Thanks OldBirdman

[Delerna]

That's a quick and dirty fix.
There are other things you can do to ensure that null is eliminated as a problem in the first place. Like setting default values for the fields in your table

[anoble1]

That worked GREAT! Thanks!