Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(Me.[supervisor approval],"") = "" Then
MsgBox "The Supervisor Approval Field Must Not Be Left Blank!"
Cancel = True
[supervisor approval].SetFocus
Exit Sub
End If
End Sub
replacing supervisor approval with the actual name of your Control.