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]Ajuda com botão Exportar e salvar PDF

    avatar
    JefDAssis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/06/2018

    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty [Resolvido]Ajuda com botão Exportar e salvar PDF

    Mensagem  JefDAssis 15/6/2018, 22:20

    Boa noite,

    Venho pedir ajuda para resolver o seguinte problema...

    Erro ao clicar no botão para imprimir relatório:

    O comando ou ação 'Saída para' não está disponível agora.

    O script que estou usando no botão é esse:

    Private Sub cmdCartão_Click()
    On Error GoTo Err_cmdCartão_Click

    Dim stDocName As String

    Select Case Moldura3 'Criar Retângulo com as ChckBox dentro
    Case 1 'Referente a CheckBox
    If IsNull(Me.txtd1) Or IsNull(Me.txtd2) Then
    MsgBox "É preciso determinar o período do Cartão Fidelidade!", vbOKOnly, "Atenção!"
    Else
    Me.Visible = True
    DoCmd.Close acForm, Me.Name
    'Abre o relatório, filtrado pelo número exclusivo do cliente
    Dim StrCliente As String

    ' Call our convert function
    ' Please note the last param signals whether to perform
    ' font embedding or not. I have turned font embedding ON for this example.
    StrCliente = DLookup("NomeCliente", "tbl_Clientes", "CodClientes")
    Dim strCaminho$
    strCaminho = "C:\MelkFinanc\Relatórios\Cartão Fidelidade_ " & StrCliente & " " & Format(Now(), "dd-mmmm-yyyy")
    DoCmd.OutputTo acOutputReport, "Rel_CartãoFidel", acFormatPDF, strCaminho & ".pdf", True
    DoCmd.Maximize
    End If

    End Select

    Exit_cmdCartão_Click:
    Exit Sub

    Err_cmdCartão_Click:
    MsgBox Err.Description
    Resume Exit_cmdCartão_Click
    End Sub

    Onde estou errando? Tem hora que funciona e executa certinho... Mas tem hora que não vai...

    Desde já agradeço a quem me ajudar...

    Abraços,
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty Re: [Resolvido]Ajuda com botão Exportar e salvar PDF

    Mensagem  Alexandre Neves 16/6/2018, 13:57

    Boa tarde,
    Será nesta instrução: DoCmd.Close acForm, Me.Name
    Não pode fechar o formulário enquanto executa código


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    JefDAssis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/06/2018

    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty Ajuda com botão Exportar e salvar PDF

    Mensagem  JefDAssis 16/6/2018, 14:22

    Bom dia Alexandre,

    Deu certo agora... Mais uma que aprendo... Obrigado.

    Por favor me tire só mais uma dúvida...

    Na parte do código abaixo, gostaria de o cartão fidelidade por cliente. No relatório Rel_CartãoFidel, quando emito mostra todos...

    StrCliente = DLookup("NomeCliente", "tbl_Clientes", "CodClientes")
    Dim strCaminho$
    strCaminho = "C:\MelkFinanc\Relatórios\Cartão Fidelidade_ " & StrCliente & " " & Format(Now(), "dd-mmmm-yyyy")
    DoCmd.OutputTo acOutputReport, "Rel_CartãoFidel", acFormatPDF, strCaminho & ".pdf", True

    Tentei acrescentar na linha:
    StrCliente = DLookup("NomeCliente", "tbl_Clientes", "CodClientes=" & Me.CodCliente)

    Queria visualizar e salvar só o cartão do registro atual... Mas exibe todos...

    Desde já agradeço pela ajuda...

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty Re: [Resolvido]Ajuda com botão Exportar e salvar PDF

    Mensagem  Alexandre Neves 16/6/2018, 15:16

    Tem de fazer a filtragem no relatório e não na impressão


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    JefDAssis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/06/2018

    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty Ajuda com botão Exportar e salvar PDF

    Mensagem  JefDAssis 16/6/2018, 16:03

    Ok, entendi... Fiz através de uma consulta e deu certo

    Obrigado mais uma vez...

    Resolvido.

    Conteúdo patrocinado


    [Resolvido]Ajuda com botão Exportar e salvar PDF Empty Re: [Resolvido]Ajuda com botão Exportar e salvar PDF

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:44