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

    [Resolvido]Botão Relatório

    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty [Resolvido]Botão Relatório

    Mensagem  viny 9/9/2014, 16:32

    Bom dia,

    Estou com a seguinte duvida.
    Tenho um formulário de pesquisa onde o mesmo executa uma consulta SQL ao clicar em um botão.
    Após gerar o resultado da pesquisa em uma Caixa de Listagem (LstResultadoPesquisa) do formulário, gostaria que esse mesmo resultado
    foce reportado para um relatório.

    Tentei varias formas de fazer essa captura, há mais próxima que consegui foi essa:

    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    strDocName = "RltPesquisa"
    strFilter = "LstResultadoPesquisa= Forms!Pesquisa!LstResultadoPesquisa"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter

    Porém quanto click no botão "Relatório" que esta dentro do meu formulário, ele abre o relatório em branco sem nenhum dado da pesquisa que realizei no formulário.

    Estou a dias tentando encontrar uma solução, se alguém puder me ajudar eu agradeço muito!

    Obrigado...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 9/9/2014, 16:41

    Ola;

    As caixas de listagem têm o mesmo comportamento das combobox`s.
    Ou seja, funcionam por colunas, começando sempre pela coluna zero (0).

    O seu problema poderá estar ae;

    Me.LstResultadoPesquisa.Column(0) ou (1) ou (2), independentemente onde se situa o campo para o filtro.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  viny 9/9/2014, 16:59

    Olá Paulo, Boa tarde !

    Desculpe, mas se eu entendi bem eu tenho q acrescentar essa linha ( Me.LstResultadoPesquisa.Column(0) ) e ir testando os valores 1,2,3...
    até aparecer o valor no relatório. é isso ?

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 9/9/2014, 17:10

    Para filtrar o relatório, você já sabe qual o campo.

    Por exemplo;

    Na sua Listbox tem na origem assim;

    SELECT ID, CLIENTE, MORADA

    Então você tem 3 colunas, sendo elas a Column(0), Column(1) e Column(2)

    Se pretender filtrar o seu relatorio pelo campo CLIENTE da Lista, então será;

    Me.LstResultadoPesquisa.Column(1)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 9/9/2014, 17:15

    Mais simples ainda;

    'Se o campo for texto
    Dim strDocName As String
    strDocName = "RltPesquisa"
    DoCmd.OpenReport stDocName, acPreview, , "SeuCampoNoRelatorio='" & Me.Me.LstResultadoPesquisa.Column(1) & "'"

    'Se o campo for numerico
    Dim strDocName As String
    strDocName = "RltPesquisa"
    DoCmd.OpenReport stDocName, acPreview, , "SeuCampoNoRelatorio=" & Me.Me.LstResultadoPesquisa.Column(1)




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 9/9/2014, 17:16

    No Limite, alimente o seu relatorio com o mesmo SQL do formulario.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  viny 9/9/2014, 18:26

    Paulo,

    Fiz as alterações conforme indicou, mas o relatório continua em branco. Não traz as informações do formulário !

    O que pode ser ?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 10/9/2014, 09:54

    Meu amigo a minha bola de cristal já se partiu, quer anexar parte do seu banco para vermos isso ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  viny 10/9/2014, 11:43

    Segue o banco...
    Anexos
    [Resolvido]Botão Relatório AttachmentPesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (187 Kb) Baixado 2 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 10/9/2014, 12:52

    Ola;

    Mude o nome da sua listbox do relatorio para "rptLstResultadoPesquisa", para não ser igual à do form.

    No evento ao abrir do seu relatorio, cole isto;

    Código:
    Private Sub Report_Open(Cancel As Integer)

        If CurrentProject.AllForms("Pesquisa").IsLoaded = True Then
            Me.rptLstResultadoPesquisa.RowSource = Forms!Pesquisa!LstResultadoPesquisa.RowSource
        Else
        MsgBox "O formulário Pesquisa não está aberto...", vbCritical
        Cancel = True
        Exit Sub
        End If
        
    End Sub

    No botão do form para abrir o seu relatorio;

    Código:

    Private Sub CmdRelatorio_Click()
    Dim strDocName As String
        strDocName = "RltPesquisa"
        DoCmd.OpenReport strDocName, acPreview
    End Sub
    Anexos
    [Resolvido]Botão Relatório AttachmentPesquisa_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (202 Kb) Baixado 28 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  viny 10/9/2014, 13:30

    Paulo, sem palavras para agradecer !

    Funcionou perfeitamente !!!

    Não querendo abusar, mas eu gostaria de entender o código que você criou, pois ficou meio confuso para mim:

    Private Sub Report_Open(Cancel As Integer)

    If CurrentProject.AllForms("Pesquisa").IsLoaded = True Then
    Me.rptLstResultadoPesquisa.RowSource = Forms!Pesquisa!LstResultadoPesquisa.RowSource
    Else
    MsgBox "O formulário Pesquisa não está aberto...", vbCritical
    Cancel = True
    Exit Sub
    End If

    End Sub

    Novamente obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  JPaulo 10/9/2014, 14:07

    Código comentado;

    Código:
    Private Sub Report_Open(Cancel As Integer)
    'só abre o relatório se o form Pesquisa estiver aberto, caso contrario não abre
        If CurrentProject.AllForms("Pesquisa").IsLoaded = True Then
    'ao abrir o relatório, altera o SQL da Listbox, para igual ao SQL já filtrado da listbox do form Pesquisa
            Me.rptLstResultadoPesquisa.RowSource = Forms!Pesquisa!LstResultadoPesquisa.RowSource
        Else
        MsgBox "O formulário Pesquisa não está aberto...", vbCritical
        Cancel = True
        Exit Sub
        End If
    End Sub

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    viny
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 04/09/2014

    [Resolvido]Botão Relatório Empty Re: [Resolvido]Botão Relatório

    Mensagem  viny 10/9/2014, 14:50

    Perfeito Paulo ! Entendido com certeza !!!

    Abraço.

      Data/hora atual: 13/4/2021, 13:58