[Resolvido]Dúvidas com campo Obrigatório

Boa tarde
Usando essa rotina para campo obrigatório

............

On Error GoTo Form_Err

' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If

Form_Exit:
Exit Sub

Form_Err:
MsgBox Error$
Resume Form_Exit

...........
identifica a necessidade.
Todavia se uso logo após para:
1) Abrir um form:
Private Sub BtEctoscopia_Click()  
On Error GoTo Form_Err

' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If

Form_Exit:
Exit Sub

Form_Err:
MsgBox Error$
Resume Form_Exit


DoCmd.OpenForm "Frm_AntebracoEctoscopiaD"


End Sub

Ele identifica, preencho o campo e não abre o form desejado.

2) Salvar registro:


Private Sub BtSalvar_Click()
On Error GoTo Form_Err

' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If

Form_Exit:
Exit Sub

Form_Err:
MsgBox Error$
Resume Form_Exit

'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
'   DoCmd.RunCommand acCmdSave
   MsgBox "Registro Salvo", vbInformation, "Aviso"
'DoCmd.Close

End Sub


Ele identifica, preencho o campo e não salva.

3) Fechar e salvar um form:

Private Sub BtSair_Click()
On Error GoTo Form_Err

' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If

Form_Exit:
Exit Sub

Form_Err:
MsgBox Error$
Resume Form_Exit

'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
   MsgBox "Registro Salvo", vbInformation, "Aviso"
DoCmd.Close

End Sub


Ele identifica, preencho o campo e não salva e nem fecha.


Como poderia resolver.
Obrigado

Como diz J paulo em...
https://www.maximoaccess.com/t1683-resolvidocampo-nao-pode-ficar-vazio

Existem mil maneiras de fazer nestum!

Essa resolveu.
As vezes menos é mais!!

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
MsgBox "Campo Obrigatório...", vbCritical
End If
End Sub