[Resolvido]Exigir preenchimento do campo

Bom dia, nas pesquisas que fiz aqui e na internet, cheguei nas sintaxes abaixo para impedir que passe para um novo registro sem que o campo valor esteja preenchido. Bom de fato esta impedindo, no entanto a mensagem avisando o porque esta impedindo, não esta sendo exibida, alguem poderia me dizer o que esta errado?
No form tem um campo cmpFerias que deve estar preenchido para que avance.
As sintaxes estao no botao para adicionar novo registro
Segue abaixo

Private Sub btNovo_Click()
If [CmpFerias] = "" Then
MsgBox "Campo Obrigatório...", vbCritical
End If
If [CmpFerias] <> "" Then
On Error Resume Next
Dim msgResult As VbMsgBoxResult
msgResult = MsgBox("Deseja realmente criar novo registro?", vbQuestion + vbYesNo, "Confirmação")
End If
If msgResult = vbYes Then
DoCmd.GoToRecord , , acNewRec 'cria novo registro
Me!CmpNumeroSequencial = Nz(DMax("NumeroAp", "TabAp")) + 1
Me.CmpClasse.visible = False
End If
End Sub

ola. careca2014 bom dia tente assim



If isnull (me.CmpFerias)Then
MsgBox "Campo Obrigatório...", vbCritical
exit sub
else

'aqui vai caso estiver preenchido
DoCmd.GoToRecord , , acNewRec 'cria novo registro
Me!CmpNumeroSequencial = Nz(DMax("NumeroAp", "TabAp")) + 1
Me.CmpClasse.visible = False
End If

Bom dia Marcelo e obrigado pela dica, funcionou perfeitamente!
Valeu!

Desculpem esqueci de dar como resolvido.

obrigado pelo retorno o fórum agradece