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]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 : 36
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3570
    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 : 36
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3570
    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 : 36
    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3570
    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 : 36
    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!!!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3570
    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: Qua 23 Ago 2017, 03:18