Tratamento de erro

Olá pessoal, boa tarde!

Eu tô com um aplicativo com vários formulários que contém um campo código do produto tipo texto onde eu
insiro o código de barras. Eu gostaria de um tratamento de erro nesse seguinte caso:
No campo código de barras, se eu por acaso inserir o apóstrofo (') ele dá um erro em tempo de execução "3075" conduzindo o usuário para a estrutura dos códigos sujeito a qualquer alteração.
Eu gostaria de saber se tem como desenvolver uma função para tratamento desse erro para valer em todo o aplicativo toda vez
que deparar com esse erro. É possível? Não achei aqui no fórum algo do tipo.

Olá dori,

1- A sua função precisa ser do tipo Public para alcançar todos os formulários.
2- O seu erro precisa ser especificado na função segundo a tabela da Microsoft.
3- Sua função precisa estar em um módulo.

Tente esta função em um módulo:

Código:

Public Function ReparaErros()
Dim db As Database, doc As Document, ctl As Control

Set db = CurrentDb

On Error GoTo TrataErro
For Each doc In db.Containers("Forms").Documents
DoCmd.OpenForm doc.Name, acDesign,,,,acHidden
   For Each ctl In Forms(doc.Name)
     If TypeOf ctl Is acTextBox Then
       MsgBox "Procurando erros...",vbInformation,"Tratando erros"
     End If

Next
Exit Function
TrataErro:
If Err.Number = 3075 Then
MsgBox "Erro na expressão de sua consulta",vbCritical,"Verifique a sintaxe de sua expressão na consulta"
End If
End Function


Chame esta função de um botão no formulário principal. Não testei esta função. É só uma dica.

Olá good guy

Infelizmente não consegui fazer funcionar.
Na verdade eu gostaria de evitar esse erro em tempo de execução ao digitar esse sinal ( ' ), pois se o usuário entrar nos códigos ele causará uma desgraceira.

segue esse tópico que não tem erro!

https://www.maximoaccess.com/t3051-tratamento-de-erros-no-m-access

Olá dori,

Posta o seu aplicativo para eu ver claramente de que se trata o seu problema e como ele aparece.

Beleza,
Vou extrair o que interessa e vou postar.

Boa tarde Good guy

Tô postando parte do aplicativo pra você verificar.
Como disse anteriormente meu problema tá no caracter ( ' )
Se eu inserir esse caracter ele da erro em tempo de execução.
        Grato pela a atenção!

Olá meu amigo,

Posta em um formato da versão 2007 para baixo. Não deu pra abrir porque está em uma versão acima.

Boa tarde Dori!

Em anexo

Saludos

Olá franklin

funcionou certinho, mas como faço esse código valer em todo o aplicativo através de uma função pública?
Pois tenho vários formulários para inserir o código do produto.

Grato!

Good guy,

Tentei salvar numa versão anterior mas dá erro dizendo que não é possível salvar num formato anterior devido aos novos recursos do access.
Mas essa que eu postei é versão 2007 ao 2016.

Olá dori,

Para mim que é Access 2007 instalado dá formato desconhecido para esse arquivo.

Boa tarde Dori!

Esta tarde vou ver a solução

Saludos

Boa tarde franklin

Eu cliquei no botão thanks
mas ainda não resolvi, espero que consiga me ajudar nessa dúvida