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


    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Assis em 21/3/2020, 13:03

    Boa tarde Amigos

    Tenho o código abaixo num Botão para imprimir um relatório, e de seguida criar um PDF do mesmo relatório.

    Mas acontece o seguinte:
    Se o relatório não tiver dados, ele  não abre, mas continua a pergunta para a 2ª Msgbox "Criar Documento em PDF ".
    Como impedir (2ª MsgBox) criar PDF se o relatório não tem dados ?  


    If MsgBox("Deseja Imprimir ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
      DoCmd.OpenReport "Requisicaoforn", acPreview
              If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
                   Dim Caminho As String
                      Caminho = BackEndPath & "\PDF\"
                          Dim strArquivo As String
                          Dim strLocal As String
                                strArquivo = "Produtos Requisitados " & "" & Fornecedor & "" & " - " & Format$(Date, "dd-mm-yyyy")
                                         strLocal = Caminho & strArquivo & ".pdf"

    If err = 2501 Then
    err.Clear
    DoCmd.Close
    Me.Foco.SetFocus
    End If
    End If
    Else
    Me.Foco.SetFocus
    End If


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  DamascenoJr. em 21/3/2020, 13:35

    Você está usando o "On error resume next"?


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Assis em 21/3/2020, 13:48

    Boa tarde Damasceno

    Neste codigo ... Não.


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  DamascenoJr. em 21/3/2020, 14:02

    Assis escreveu:Se o relatório não tiver dados, ele não abre...
    Qual código você utiliza para impedir a abertura do relatório?


    Se for no evento "Se nenhum dado" do relatório cancelando a abertura então deveria dar um erro. Ou nesse evento do relatório você deve estar usando o "on error resume next".

    Se estiver usando isso no relatório, retire e trate o erro no código do seu botão.


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Assis em 21/3/2020, 14:21

    A propriedade do relatório " Se nenhum dado".


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  DamascenoJr. em 21/3/2020, 14:43

    DamascenoJr. escreveu:Se for no evento "Se nenhum dado" do relatório cancelando a abertura então deveria dar um erro. Ou nesse evento do relatório você deve estar usando o "on error resume next".

    Se estiver usando isso no relatório, retire e trate o erro no código do seu botão.


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Assis em 21/3/2020, 15:17

    Certo
    No acontecimento do relatório uso o On Error resume next.
    Vou testar e retorno.
    Obrigado Damasceno


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Assis em 21/3/2020, 16:04

    Obrigado Damasceno


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  DamascenoJr. em 21/3/2020, 16:09

    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.

    Conteúdo patrocinado

    [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando Empty Re: [Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/4/2020, 04:45