[Resolvido]Não sair do campo sem dados

Bom Dia Jpaulo,

que agradecer pelas dicas mais infeslimente estou com duvidas e não consegui incluir esse complemento com exito. podemria esclarecer melho?

No codigo,

If IsNull(txtreferencia) Or Me.txtreferencia = "" Then
MsgBox "Esse Campo é de Preenchimento obrigatório!", , "Atenção!!!"
DoCmd.CancelEvent
End If

Esse mais abaixo como ficaria no codigo acima para evitar ero ao fechar frm sem dados?

If (IsNull(Me.txtreferencia) And Me.Dirty) Or (Me.txtreferencia = "" And Me.Dirty) Then


abraços,

Desabilite o botão de fechar no formulário e em um botão aplique:

If (IsNull(Me.Campo1) And Me.Dirty = False) Or (Me.Campo1 = "" And Me.Dirty = False) Then
MsgBox "Em branco"
Else
DoCmd.Close
End If

Cumprimentos.

Boa Noite a todos
Em anexo Projeto pilo mensagem indevida ao fechar.

Código com interferencia ao executar ação de saída.

abraços

Não entendi,.. De mais detalhes disso?
Havia postado um exemplo?
se postou não veio.

Cumprimentos.

Boa Noite!

coloque o anexo na opção enviar consulta, se não for essa utilizada para anexar o bd, solicito auxilio. conforme regrasdo forum o mesmo está o Irrar.

é que tem uma mensagem ocorrndo quando fecho o formulário e queria auxilio para eliminar atraves de uma correção no vba.

grato.

abraços,

Tem de anexar em .zip

Se o seu campo é mesmo para estar preenchido, tem assim ao saír do campo;

Private Sub SeuCampo_Exit(Cancel As Integer)
   If IsNull(Me.ActiveControl) Then
   DoCmd.CancelEvent
   End If
End Sub

Boa Tarde!

JPaulo, essa dica me ajudou de mais.

Problema resolvido,

muito obrigado a todos pelo apoio

O Fórum agradece o Retorno.