MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Compartilhe

    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 33
    Registrado : 09/09/2013

    imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  FabianaOli em Dom 27 Out 2013, 04:28

    Obrigada pela atenção, novamente. Gostaria de ajuda para solucionar problema com código abaixo. Possui um Formulário com Sub-Formulário que filtra os dados pelo Código funcionando corretamente. Para imprimir o respectivo relatório, criei um relatório com subrelatório: consCadCorresp.
    Já coloquei no botão imprimir, o código abaixo, porém, ao clicar o sistema não mostra os dados sozinho, ou seja, solicita o código para então filtrar.

    Private Sub cmdImprimir_Click()

    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "consCadCorresp"
    strFilter = "CodCorresp= Forms!consTramitLocal!CodigoCorresp"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter

    End Sub

    Legenda:
    consCadCorresp = nome do Relatório
    CodCorresp - ID do Formulário Principal
    consTramitLocal = nome da Consulta do Sub-Formulário
    CodigoCorresp = ID que liga o Sub ao Formulário Principal.

    Obrigada

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  Silvio em Dom 27 Out 2013, 11:26

    Bom dia...

    No modo design do teu relatório, folha de propriedades, aba dados ..veja se está habilitado o campo Filtro, se não estiver, coloque-o


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 33
    Registrado : 09/09/2013

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  FabianaOli em Dom 27 Out 2013, 11:41

    Obrigada pela atenção. O Filtro está como:

    CodCorresp= Forms!consTramitLocal!CodigoCorresp

    Não está funcionando. O botão para a impressão está no Formulário Principal com a configuração abaixo. Quando clico no botão, aparece a mensagem de Inserir valor do parâmetro: Formulários!consTramitLocal!CodigoCorresp

    Private Sub cmdImprimir_Click()

    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "consCadCorresp"

    strFilter = "CodCorresp= Forms!consTramitLocal!CodigoCorresp"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter

    End Sub

    Obrigada

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  Silvio em Dom 27 Out 2013, 12:04

    eu escreveu:No modo design do teu relatório, folha de propriedades, aba dados ..veja se está habilitado o campo Filtro, se não estiver, coloque-o cmo sim.
    Fabiana........releia a minha mensagem anterior.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 33
    Registrado : 09/09/2013

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  FabianaOli em Dom 27 Out 2013, 14:00

    Desculpe, mas ainda não estou conseguindo corrigir o problema da mensagem no botão imprimir do Formulário. Os campos filtrar ao Carregar,Ordenar ao Carregar e Permitir Filtro, estão como Sim, no Relatório.
    Já alterei o campo filtro de: CodCorresp= Forms!consTramitLocal!CodigoCorresp para: Sim e também não funcionou.

    Obrigada.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  Silvio em Dom 27 Out 2013, 14:14

    Ok, vamos por partes então..


    no botão de impressão, eis o código:

    Código:
    Private Sub bt_imprimir_Click()
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "rptoservico" ' nome do relatorio
    strFilter = "IDOservico=forms!ordservico!IDOservico" 'filtro aplicado no relatorio
    'onde= idoserviço é a chave primária da tabela onde esta criado o formulário
    'onde = forms!ordeservico = é o formulário em questão.
    DoCmd.OpenReport strDocName, acViewNormal, , strFilter

    Após isso, na estrutura do relatório, no modo desing, folha de propriedades, aba dados:

    filtro: IDOservico=forms!ordservico!IDOservico
    filtrar ao carregar: sim


    Mude os campos na instrução acima para os teus.

    Qualquer coisa, de um grito !!

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 33
    Registrado : 09/09/2013

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  FabianaOli em Dom 27 Out 2013, 14:36

    Obrigada. Deu certo!!!

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

    Mensagem  Silvio em Dom 27 Out 2013, 14:54

    O fórum agradece o retorno. Bom fim de semana.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 06:49