[Resolvido]Regra de validação e ESC

Olá Mestres

Estou com a seguinte dificuldade.

Criei um formulário, cujo campo na tabela tem uma regra de validação e uma mensagem de validação "código incorreto"

Mas o usuário só consegue fechar o formulário se apertar ESC para limpar o campo antes

Gostaria de um botão [CANCELAR] que limpasse o campo e fechasse o formulário.

Já fiz algumas tentativas, mas eu não consigo nem clicar no botão sem que a mensagem de erro apareça

Obrigado pessoal

abraço

Boa tarde
Teste assim
Ao clicar no botão cancelar

?? atenção aos nomes a mudar

'--------------------------------------------
Me.NomedoCamoQueQuerLimpar = Null ' Mude o nome do campo para o seu

DoCmd.Close acForm, "NomeFormulárioQue QuerFechar" ' Mude o nome para o nome do seu formulário

Obrigado pelo retorno Assis

Infelizmente não deu certo... acho q a regra de validação não permite liberar o campo
ou o preenchimento não ocupa a variável até que seja validada ... por isso o NULL não resolve

segue em anexo o BD

Assis ??????

Serve assim?

Teste

Aguardo

Olá,

Consta no seu perfil o nome Assis, estou enganado? rs
Desculpe

A função que você criou funcionou perfeitamente! muito obrigado!

Mas quando eu fecho e abro o documento... a variável não mantem o número do Serial salvo...

Gostaria de manter o número salvo sempre q abrir o BD


Obrigado

Olá

O perfil está certo ..... rsrsrs

A qual formulário se está a referir ?

A tabela " SERIAL DE ATIVACAO " não devia ter só um registo ?

Aguardo

Assis, o Número de Serial precisa ficar salvo em uma variável no Módulo

Public varserial As String

Dessa forma, posso adicionar o Número do Serial em todas as tabelas do meu banco de dados através de uma função no formulário

Private Sub Form_Current()
Me.campo_varserial = varserial
End Sub

Na tabela, o campo de varserial tem um critério de validação muito específico que verifica se o Serial está correto e permite salvar o registro.

O problema é que quando eu fecho o arquivo e abro novamente... a VARSERIAL do módulo fica vazia ... não salva o serial

Como vc sugere resover isso?

Agradeço a atenção

Assis

Isto não está a funcionar e o problema está no Módulo 1, e eu não sei consertar isso

Private Sub Form_Current()
Me.campo_varserial = varserial
End Sub


Mude no formulário

Boa tarde,

As variáveis em módulos só possuem valores em tempo de execução. Caso o sistema seja reiniciado, os valores serão perdidos. Caso queira gravar o valor para usar sempre voce pode fazer de duas formas:

1º Grava o valor em uma tabela (mesmo que local) e na abertura do sistema faça com que a variável varserial tenha o valor gravado na tabela.

2º Crie uma CONSTANTE em um módulo. O problema desse caso é que voce nao poderá alterá-la em tempo de execução, caso queira, terá que fazer isso direto no código.

Se entendi bem o que ta acontecendo, é isso.

Abraço.

Excelente!

Gostaria de agradecer ao Mestre Assis por me ajudar com a solução do tópico sobre o comando ESC que segue:


Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do access.
MsgBox "ESTE SERIAL NÃO É VÁLIDO!", vbInformation, "Aviso"
ActiveControl.Undo 'Este comando funciona como a tecla ESC, ele tira o foco do campo VAL

Exit Sub
Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub

End Sub



E também aproveito para agradecer ao Mestre Cassio Fabre pelo esclarecimento sobre a permanência do valor da variável após fechar o documento (Perda de Estado de Variáveis)


Fico muito feliz em ver este Fórum tão ativo! Vlww pessoa!