MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    [Resolvido]Variações de MsgBox

    avatar
    Caio Porto
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/12/2017

    [Resolvido]Variações de MsgBox Empty [Resolvido]Variações de MsgBox

    Mensagem  Caio Porto 3/4/2021, 13:40

    Oi pessoal, estou precisando de ajuda novamente.

    Estou precisando de algumas variações do MsgBox, mas isso nunca foi meu forte. Eis minha necessidade, vamos supor que eu esteja executando várias consultas via VBA, então algumas delas presenta algum erro, gostaria que aparecesse um aviso me indicando qual consulta teve erro e que a execução dos códigos continuassem mesmo com a caixa de mensagem na tela. Outra coisa, também seria possível nessas variáveis inserir uma pausa de alguns segundos sempre que a MsgBox aparecer ?

    Bom, é isso. Espero que seja possível, mas caso não seja o que podem me sugerir ?

    Estou usando Access 2016/2019 32bits.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Variações de MsgBox Empty Re: [Resolvido]Variações de MsgBox

    Mensagem  Noobezinho 3/4/2021, 18:01

    Olá Caio

    Eu uso uma função de tratamento de erro, e para chamar essa função,
    coloca-se a chamada dentro do código que está usando.

    Veja no exemplo abaixo, que no código de um botão de comando, a primeira linha diz se tiver algum erro ir para cmdTestar_Err que
    por sua vez chama a função InformaErro() que irá exibir os detalhes do erro numa msgbox()

    Código:

    Sub cmdTestar_Click()
    On Error GoTo cmdTestar_Err
       'Aqui nesse espaço vai o teu código

    cmdTestar_Sai:
        
        Exit Function

    cmdTestar_Err:
        ' Algum erro não previsto no sub.
        Call InformaErro("Teste de senha")
        Resume cmdTestar_Sai

    End Sub


    Código:

    Function InformaErro(procName As String)
        MsgBox "Erro nº " & Err.Number &  vbCrLf & Err.Description, _
            vbExclamation, "Procedimento: " & procName
    End Function

    O fato da caixa de mensagem ser exibida, já evita a continuação do código.

    Esse exemplo de código pode ser usado  em todo o vba.

    Agora, você pede para exibir erros nas consultas VBA.

    Dentro do VBA usa-se Docmd.RunSQL (), DoCmd.OpenQuery e  db.execute()

    Mas não tem como tratar o erro delas, tem que testar no braço, ou seja testar até ter certeza que esta "funfando" legal.
    E se houver erros, o Access para executar o código e grita! Razz

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Caio Porto gosta desta mensagem

    avatar
    Caio Porto
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/12/2017

    [Resolvido]Variações de MsgBox Empty Re: [Resolvido]Variações de MsgBox

    Mensagem  Caio Porto 3/4/2021, 21:07

    Funcionou perfeitamente, muito obrigado!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Variações de MsgBox Empty Re: [Resolvido]Variações de MsgBox

    Mensagem  Noobezinho 3/4/2021, 22:28

    Perfeito!

    Boa sorte!

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 13/6/2021, 01:28