[Resolvido]Variações de MsgBox

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.

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!

{ }'s

Balem

Funcionou perfeitamente, muito obrigado!

Perfeito!

Boa sorte!

Balem