[Resolvido]Cancelar evento ao Sair

Senhores boa tarde,
tenho um form no access que ao fechar ele deveria fazer o seguinte teste:

se algum campo estiver preenchido
ele cancela o evento e não fecha o formulário
esta ação esta no evento (Ao Sair).

porem não estou conseguido.

estou fazendo da seguinte forma

If (Me.Usuário)>0 Or (Me.Login)>0 Or (Me.txtSenha)>0 Or (Me.Confirmação)>0 Or (Me.Nivel)>0 Then

If MsgBox ("Existem campos preenchidos, deseja realmente sair?", vbYesNo)= vbYes Then

DoCmd.Close

Else

DoCmd.CancelEvent

End If

tente assim:

If not isnull(me.Usuario) or not isnull(me.login) or not isnull(me.txtsenha) or not isnull(me.confirmacao) or not isnull(me.nivel) then

If MsgBox ("Existem campos preenchidos, deseja realmente sair?", vbYesNo)= vbYes Then
doCmd.close
else
DoCmd.CancelEvent

End If
End if

Dica: Em programação não se colocam acentuações como por exemplo: Me.Confirmação, pode dar problemas.

O evento apropriado para isso é o "Ao descarregar" pois ele tem o "cancel"

Código:


Private Sub Form_Unload(Cancel As Integer)
If not isnull(me.Usuario) or not isnull(me.login) or not isnull(me.txtsenha) or not isnull(me.confirmacao) or not isnull(me.nivel) then
  If MsgBox ("Existem campos preenchidos, deseja realmente sair?", vbYesNo)= vbno Then cancel = true
End if
End Sub

Sucesso!

realmente quem sabe, sabe...

Senhores muito obrigado Resolvido!

Só faltou clicar no botão Resolvido. Dessa vez, eu o faço.