MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Tratamento de erros - Personalizado

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10599
    Registrado : 04/11/2009

    Tratamento de erros - Personalizado Empty Tratamento de erros - Personalizado

    Mensagem  JPaulo em 10/4/2012, 11:16

    Tratamento de erros personalizado, explorando todos os recursos do Ms Access.

    Funciona no Ms Access 2000, 2003, 2007 e 2010.


    Private Sub SeuBotão_Click()
    'declara as variaveis dinamicas em texto
    Dim Msg As String
    'se existir erro, salta para o 1
    On Error GoTo 1

    'Seu codigo aqui...


    Exit_1:
    'coloca o cursor normal
       DoCmd.Hourglass False
    'ativa os avisos
       DoCmd.Echo True
       Exit Sub

    1:
    'coloca o cursor normal
       DoCmd.Hourglass False
    'ativa os avisos
       DoCmd.Echo True
    'mostra na mensagem o numero do erro, onde e a descrição
       Msg = "Erro # " & str(Err.Number) & " gerado na " & Err.Source _
           & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
           & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
       MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
    'salta para o exit
       Resume Exit_1
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Tratamento de erros - Personalizado Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Tratamento de erros - Personalizado Folder_announce_new 102 Códigos VBA Gratuitos...
    Tratamento de erros - Personalizado Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidad
    Convidado

    Tratamento de erros - Personalizado Empty Re: Tratamento de erros - Personalizado

    Mensagem  Convidad em 10/4/2012, 14:27


    Olá!

    Ando na lida com este assunto.
    Até postei dúvidas e soluções, para chamar a atenção do pessoal sobre a importância do tratamento de erro.

    Ótimo código, mestre!

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4608
    Registrado : 20/04/2011

    Tratamento de erros - Personalizado Empty Re: Tratamento de erros - Personalizado

    Mensagem  Silvio em 10/4/2012, 15:49

    Jpaulo......boa tarde.....

    Matou a pau, parabéns, já estou a implementar esse código no projeto atual. Facilitou muito a minha vida.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    tonistorres
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/06/2011

    Tratamento de erros - Personalizado Empty JPaulo

    Mensagem  tonistorres em 17/5/2017, 23:38

    Esse João Paulo não é gente não kkk
    avatar
    ManuelQuim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 48
    Registrado : 29/10/2015

    Tratamento de erros - Personalizado Empty Para melhor Compreensão...

    Mensagem  ManuelQuim em 19/10/2017, 18:23

    Caríssimo JPaulo, poderia por favor comentar o código que criou para Tratamento de erros no Access. Para Novatos como eu Entendermos cada línha de Códgo.

      Data/hora atual: 26/9/2020, 22:57