MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Tratamento de erro

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Tratamento de erro

    Mensagem  dori em 22/11/2019, 18:35

    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.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1287
    Registrado : 05/02/2010

    Tratamento de erro Empty Tratamento de erro

    Mensagem  good guy em 22/11/2019, 20:12

    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.
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 22/11/2019, 23:32

    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.
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 07/02/2018

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  alozs em 23/11/2019, 00:26

    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1287
    Registrado : 05/02/2010

    Tratamento de erro Empty Tratamento de erro

    Mensagem  good guy em 25/11/2019, 16:21

    Olá dori,

    Posta o seu aplicativo para eu ver claramente de que se trata o seu problema e como ele aparece.
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 25/11/2019, 21:42

    Beleza,
    Vou extrair o que interessa e vou postar.
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 1/12/2019, 21:19

    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!
    Anexos
    Tratamento de erro AttachmentM M Bandeirantes implemCupom.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (732 Kb) Baixado 6 vez(es)
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1287
    Registrado : 05/02/2010

    Tratamento de erro Empty Tratamento de erro

    Mensagem  good guy em 2/12/2019, 16:17

    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.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 312
    Registrado : 25/02/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  FranklinJSP em 2/12/2019, 19:11

    Boa tarde Dori!

    Em anexo

    Saludos
    Anexos
    Tratamento de erro AttachmentM M Bandeirantes (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (154 Kb) Baixado 9 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 2/12/2019, 19:46

    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!

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 2/12/2019, 20:07

    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.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1287
    Registrado : 05/02/2010

    Tratamento de erro Empty Tratamento de erro

    Mensagem  good guy em 2/12/2019, 21:37

    Olá dori,

    Para mim que é Access 2007 instalado dá formato desconhecido para esse arquivo.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 312
    Registrado : 25/02/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  FranklinJSP em 3/12/2019, 17:11

    Boa tarde Dori!

    Esta tarde vou ver a solução

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 22/04/2016

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  dori em 7/12/2019, 17:42

    Boa tarde franklin

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

    Conteúdo patrocinado

    Tratamento de erro Empty Re: Tratamento de erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 07:09