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

2 participantes

    [Resolvido]Como tirar msg de erro de execução.

    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 28/01/2019

    [Resolvido]Como tirar msg de erro de execução. Empty [Resolvido]Como tirar msg de erro de execução.

    Mensagem  motavg 28/4/2019, 17:05

    Bom dia, amigos.

    Tenho algumas dúvidas, que talvez sejam bobas.

    Exemplo, eu tenho relatório que já mando direto para imprimir em pdf. Aí ele abre a caixa de dialogo do windows perguntando qual local quero salvar.
    Se eu cancelar o mesmo, ele dá erro de execução, tem como retirar "erro". Pois o usuário pode querer cancelar e iria abrir essa msg do visual basic para depurar sem necessidade o mesmo podendo fazer alguma besteira nos códigos.

    [Resolvido]Como tirar msg de erro de execução. Erro_d10
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2909
    Registrado : 22/11/2016

    [Resolvido]Como tirar msg de erro de execução. Empty Re: [Resolvido]Como tirar msg de erro de execução.

    Mensagem  DamascenoJr. 28/4/2019, 21:05

    Basta fazer o tratamento do erro. Coloque aqui o código usado no seu botão imprimir para fazermos o ajuste.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 28/01/2019

    [Resolvido]Como tirar msg de erro de execução. Empty como tirar msg de erro de execução

    Mensagem  motavg 28/4/2019, 22:04

    Antes era assim que estava:

    Código:
    Private Sub btnRelLucroMes_Click()
    DoCmd.OpenReport "RelLucro"
    End sub


    Coloquei dessa forma. Seria assim?

    Código:
    Private Sub btnRelLucroMes_Click()
    On Error GoTo btnRelLucroMes_Click_Err

    [b]DoCmd.OpenReport "RelLucro"[/b]

    btnRelLucroMes_Click_Exit:
        Exit Sub

    btnRelLucroMes_Click_Err:
        MsgBox Error$
        Resume btnRelLucroMes_Click_Exit
    End Sub


    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2909
    Registrado : 22/11/2016

    [Resolvido]Como tirar msg de erro de execução. Empty Re: [Resolvido]Como tirar msg de erro de execução.

    Mensagem  DamascenoJr. 28/4/2019, 23:18

    Código:
    Private Sub btnRelLucroMes_Click()
    On Error GoTo btnRelLucroMes_Click_Err

    DoCmd.OpenReport "RelLucro"

    btnRelLucroMes_Click_Exit:
        Exit Sub

    btnRelLucroMes_Click_Err:
        If Err.Number <> 2212 then MsgBox Error$
        Resume btnRelLucroMes_Click_Exit
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 28/01/2019

    [Resolvido]Como tirar msg de erro de execução. Empty Como tirar msg de erro de execução.

    Mensagem  motavg 1/5/2019, 03:55

    Muito obrigado!!!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2909
    Registrado : 22/11/2016

    [Resolvido]Como tirar msg de erro de execução. Empty Re: [Resolvido]Como tirar msg de erro de execução.

    Mensagem  DamascenoJr. 1/5/2019, 14:50

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/8/2021, 12:22