I'm trying to use this script someone posted:
Private Sub Command4_Click()

Dim ctrlObject As Control

On Error GoTo ErrorHandler

For Each ctrlObject In frmObject

If (TypeOf ctrlObject Is TextBox) AND IsNull(Me![ctrlObject.Name]) then

If MsgBox(ctrlObject.Name & " must contain a value." & Chr(13) & Chr(10) & _
"Press 'OK' to return and enter a value." & Chr(13) & Chr(10) & _
"Press 'Cancel'to abort the record.", _
vbOKCancel, "A required filed is Null") = vbCancel Then
DoCmd.Close
Else
Me![CtrlObject.name].SetFocus
End If
Else
DoCmd.Close
End If

Next ctrlObject

end sub

What other types of ctrl object are there? My Form as the following required fields.

Active Issue ----- Y/N
Division ---------- Text
System ---------- Text
Level ------------- Text
Shoteside ------- Text
Failure ----------- Date/time
Note ------------- Text
Employee ------- Text
Referrefnextlevel - Y/N
Update ---------- Text
Updatetime ----- Date/time
Active Issue ----- Y/N
Division ---------- Text
System ---------- Text
Level ------------- Text
Shoteside ------- Text
Failure ----------- Date/time
Note ------------- Text
Employee ------- Text
Referrefnextlevel - Y/N
Update ---------- Text
Updatetime ----- Date/time