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:
[CODE=VB]
Private Sub Command69_Click ()
On Error GoTo Command69_Click _Err

If (Eval("[Forms]![CHILD_DOCUMENTA TION]![1 1 ENTERED INTO SYSTEM UPON RECEIVING REQUEST YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![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_DOCUMENTA TION]![1 1 ENTERED INTO SYSTEM UPON RECEIVING REQUEST YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![1 1 DEFECT REASON] Is Null")) Then
End
End If
If (Eval("[Forms]![CHILD_DOCUMENTA TION]![1 2 COMPLETED FIELDS ACCORDING TO P AND P YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![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_DOCUMENTA TION]![1 2 COMPLETED FIELDS ACCORDING TO P AND P YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![1 2 DEFECT REASON] Is Null")) Then
End
End If
If (Eval("[Forms]![CHILD_DOCUMENTA TION]![1 3 UPDATED ISSUE AND SUB-ISSUE STATUS YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![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_DOCUMENTA TION]![1 3 UPDATED ISSUE AND SUB-ISSUE STATUS YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![1 3 DEFECT REASON] Is Null")) Then
End
End If
If (Eval("[Forms]![CHILD_DOCUMENTA TION]![1 4 DOCUMENTED RESOLUTION YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![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_DOCUMENTA TION]![1 4 DOCUMENTED RESOLUTION YES OR NO OR NA]=""no"" And [Forms]![CHILD_DOCUMENTA TION]![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
[/CODE]

Any help would be appreciated.