[Resolvido]Tratamento de erros

Olá pessoal já vi diversos tópicos sobre o assunto mas tenho muitas duvidas

Como aplico o tratamento de erro numa cxtexto por exemplo que é numerada se entrar com letra como fica este tratamento?
Onde ,qual evento aplico este tratamento?

Se for possível um exemplo simples de tratamento de um caixa texto .

Agravina

Coloque o código abaixo no evento Ao Sair ou ao Alterar da textBox, fica a teu critéiro:

If Not IsNumeric(Me.txtbox) Then
DoCmd.CancelEvent
Me.txtbox= ""

End If


Abraços

Noob

Não funcionou

Agravina

Erro meu !

Para não deixar um código errado no tópico, eu editei o meu post anterior

Veja la.

Noob

Não funciona ,aparece só mensagem do próprio access.

Agravina

Qual é a mensagem?

Pode me explicar onde está usando?

Mas só poderei responder amanhã.

Boa Noite

Noob

Mensagem de erro do próprio access
no evento ao sair

Vou perguntar novamente


QUAL é a mensagem de erro?  
Você já tinha dito que era do Access.

Porque aqui, está "funfando" legal nos dois eventos que mencionei.

Noob

veja

Agravina

Acredito que o campo seja o Valor de débito ou o nº de venda.

Mas vejo que está relutante em dar mais detalhes.

Assim fica difícil ajudar.

Boa sorte

Abraços

Noob

Conforme mostra a imagem no campo valordebito está inserido letras no qual gerou o erro que aparece a msg do acess
o qual eu quero substituir por uma msg personalizada.

Experimente colocar o código no evento Antes de Atualizar da textbox.

Caso não "funfe", verifique o tipo de dados se está igual ao da tabela.

outro teste:

deixe ele desvinculado e teste o código que te passei, se "funfar" , algo está errado entre a textbox e a tabela.


Noob

Preciso estudar o questão tratamento de erros já alguns exemplos mas ficaram duvidas.
Alguém teria um exemplo simplificado ?
De como ,onde coloco os códigos ou alguns exemplos de erros comuns?

Agravina

Não confunda tratamento de erros com consistência de dados, embora se tenha um resultado parecido.

Abaixo um código de um botão de comando para fechar um formulário, com tratamento de erros:

Private Sub Comando8_Click()
1)On Error GoTo Err_Comando8_Click ' Se houver erros vá pra Err_Comando_click


   DoCmd.Close

3)Exit_Comando8_Click:
   Exit Sub

2)Err_Comando8_Click: ' executa o código  abaixo
   MsgBox Err.Description
   Resume Exit_Comando8_Click
   
End Sub

O código que te passei, é para verificar a consistência dos dados em relação ao tipo de campo.

Abraços

Noob

Valeu a dica Nobezinho
Obrigado!

Ótimo

Precisando, "tamos" aí    


Boa sorte


Noob