[Resolvido]Variavel global limpa qdo gera erro na inclusao

Boa tarde povo,
É o seguinte:
Tenho uma variável global

Global Var_Uama As Variant

Ela funciona bem no sistema, porém, quando vou incluir dados no formulário, e se da erro em algum campo, essa variável
é limpa e perco o conteúdo armazenado nela, eis uma parte do código:

If IsNull(TxtContato) Then
   MsgBox ("Campo obrigatório")
   TxtContato.SetFocus
   DoCmd.CancelEvent
   End
End If.

Não dando erro, a inclusão é feita normalmente.

Será o "DoCmd.CancelEvent" que ta limpando a variável?
Ressalto que o problema acontece em qualquer campo que tem esse teste.

Alguém me ajude.

Olá Iberlucio

Sempre que citar um erro, diga qual é, certo?

Sempre que exibir um código, poste ele todo.

Onde está esse código?

Mostre o código todo e o código ou como a variável recebe

o valor.

A principio, a variável deve manter o dado até que o mesmo

seja mudado pelo usuário.

Aguardamos...

Não existe código de erro do ACCESS, pois é um erro de execução, realmente a variavel não deveria ser alterada, porém tá limpado qdo quando
um dos "If" for verdadeiro.

O código é o seguinte:

Private Sub BtnSalvar_Click()
TxtUamaAdm = Var_Uama
TxtSituacaoUsuAdm = "USUARIO"

If IsNull(txtUsuario) Then
   MsgBox ("Campo obrigatório")
   txtUsuario.SetFocus
   DoCmd.CancelEvent
   End
End If
If IsNull(TxtSenha) Then
   MsgBox ("Campo obrigatório")
   TxtSenha.SetFocus
   DoCmd.CancelEvent
   End
End If
If IsNull(TxtConfSenha) Then
   MsgBox ("Campo obrigatório")
   TxtConfSenha.SetFocus
   DoCmd.CancelEvent
   End
End If
If IsNull(TxtCpf) Then
   MsgBox ("Campo obrigatório")
   TxtCpf.SetFocus
   DoCmd.CancelEvent
   End
End If
If IsNull(TxtContato) Then
   MsgBox ("Campo obrigatório")
   TxtContato.SetFocus
   DoCmd.CancelEvent
   End
End If
If IsNull(Var_Uama) Then
   MsgBox ("Dados da UAMA não repassado")
   TxtUamaAdm.SetFocus
   DoCmd.CancelEvent
   End
End If

If TxtSenha = TxtConfSenha Then
   Me.Requery
Else
   MsgBox ("Senha NÃO CONFERE - Redigite")
   TxtSenha = ""
   TxtConfSenha = ""
   TxtSenha.SetFocus
End If

End Sub

A verificação da senha, deve ser a primeira a ser

realizada, assim evita a verificação de cada caixa de texto.

Aqui tem um EXEMPLO de como forçar o preenchimento dos controles.

[ ]'S

Peraê povo,
iniciei os testes agora, já ja, respondo.

Problema solucionado,

Brigaduuuu, daqui ha pouco tem mais. rsrsrsrs.

Que bom que deu certo

Valeu pelo retorno

Boa Sorte!