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]imprimir Relatório dentro de um Formulário com Sub-Formulário

    avatar
    FabianaOli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianaOli 27/10/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 27/10/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    FabianaOli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianaOli 27/10/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 27/10/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    FabianaOli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianaOli 27/10/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 27/10/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    FabianaOli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianaOli 27/10/2013, 14:36

    Obrigada. Deu certo!!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 27/10/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:28