Type Mismatch Error

[jhspoon]

Hi - I have an exit form macro that has a query and maco in it. When I run them separately, everything runs fine. When I run the exit form macro, I get a Type Mismatch error. Any thoughts on fixing it?

Here is the code:

Private Sub Command69_Click()
On Error GoTo Command69_Click_Err
 
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 1 ENTERED INTO SYSTEM UPON RECEIVING REQUEST YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 1 DEFECT REASON] Is Null")) Then
        Beep
        MsgBox "You must enter a defect reason code for 1.1", vbOKOnly, ""
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 1 ENTERED INTO SYSTEM UPON RECEIVING REQUEST  YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 1 DEFECT REASON] Is Null")) Then
        End
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 2 COMPLETED FIELDS ACCORDING TO P AND P YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 2 DEFECT REASON] Is Null")) Then
        Beep
        MsgBox "You must enter a defect reason code for 1.2", vbOKOnly, ""
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 2 COMPLETED FIELDS ACCORDING TO P AND P YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 2 DEFECT REASON] Is Null")) Then
        End
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 3 UPDATED ISSUE AND SUB-ISSUE STATUS YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 3 DEFECT REASON] Is Null")) Then
        Beep
        MsgBox "You must enter a defect reason code for 1.3", vbOKOnly, ""
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 3 UPDATED ISSUE AND SUB-ISSUE STATUS YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 3 DEFECT REASON] Is Null")) Then
        End
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 4 DOCUMENTED RESOLUTION YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 4 DEFECT REASON] Is Null")) Then
        Beep
        MsgBox "You must enter a defect reason code for 1.4", vbOKOnly, ""
    End If
    If (Eval("[Forms]![CHILD_DOCUMENTATION]![1 4 DOCUMENTED RESOLUTION YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTATION]![1 4 DEFECT REASON] Is Null")) Then
        End
    End If
    DoCmd.RunMacro "UPDATE TOTALS", , ""
    DoCmd.Close acForm, "CHILD DOCUMENTATION"
 
 
Command69_Click_Exit:
    Exit Sub
 
Command69_Click_Err:
    MsgBox Error$
    Resume Command69_Click_Exit
 
End Sub
 

Any help would be appreciated.