[Resolvido]Criar relatorio só com os dados de uma caixa de listagem

Boa tarde Amigos

No exemplo que anexo, depois de clikar em cima a esquerda em " Pesquisa / Conta " abre um formulario que tem uma caixa de listagem com vários dados.
Na parte mais abaixo tem 4 campos "Data", "Movimento", "Rubrica", "Entidade", que se forem digitados dados iguais aos que estão na caixa de listagem, esta caixa de listagem vai sendo filtrada.

Por exemplo se na caixa data digitar sem aspas " 01/06 " na caixa de listagem ficarão 2 movimentos.

A partir daqui eu queria que sempre que clikar no Botão da impressora para abrir o relatório, neste relatório só apareciam os registos que estiverem na caixa de listagem, o que no caso de digitar na data " 01/06 " só imprimia 2 Movimentos.

PS - O exemplo que anexo a maior parte é da autoria do Mestre Avelino Sampaio.

Obrigado

Boa tarde Assis, não consegui visualizar seu banco pois meu access é 2007 de

qualquer forma tente adaptar esse codigo que uso para abrir os itens selecionados na listbox

Código:

Option Compare Database
Option Explicit

Private Sub Comando2_Click()

Dim frm As Form, ctl As ListBox, var As Variant
Dim strCriteria As String, temp As String

Set frm = Forms!frm_exemplo
Set ctl = frm!Lista0

If ctl.ItemsSelected.Count = 0 Then
    MsgBox "Selecione primeiro um nome"
    Exit Sub
Else
    For Each var In ctl.ItemsSelected
        temp = "[Nome] = " & Chr(39) & ctl.ItemData(var) & Chr(39) & " Or "
        strCriteria = strCriteria & temp
    Next var
End If

strCriteria = Left$(strCriteria, Len(strCriteria) - 4)

DoCmd.OpenReport "Rlt_exemplo", acViewPreview, , strCriteria
DoCmd.Close acForm, "frm_exemplo"

Set ctl = Nothing
Set frm = Nothing

End Sub

Fernando
O exemplo é 2007

Não consegui abrir, impossivel localizar o projeto ou biblioteca, deixo anexo o

exemplo com o codigo que passei acima talvez te ajude.

Realmente Assis,é como o Fernando falou não abre.
E me aproveitando um pouquinho Fernando, Assis por acaso não teriam algum exemplo de controle de aluguel de qualquer coisa, assim eu adaptaria a minha necessidade, abri um tópico sobre isso.

Abraços.

Fernando e Kaynan

Teste agora com o shieft pressionado, e abrir o Form "Menu"
Download na Msg Nº 1

O meu Office é 2007 com service pack 3

Obrigado

Ainda não deu Assis, marquei a referencia ausente mas a mensagem persiste.

Fernando

Qual é a Msg ?

Obrigado

impossivel localizar o projeto ou biblioteca

Boa tarde amigos
Alguém com office 2007 e service pack 3 conseguiu abrir ?

Boa noite aos colegas...

Ele pede uma referencia chamada..PDFXCViewAx.Dll ao ser aberto, apenas desabilitei a mesma para lhe ajudar.

Estou dando uma olhada nele...

Silvio
Obrigado

Posta aqui no forum com as alterações, para ver de o amigo Fernando consegue abrir.

Obrigado

Estranho...seleciono a conta GCD ou Banif.....clico em Pesquisa/Contas, mas não está a me trazer os resultados.

A primeira vez, funcionou...mas agora não funciona mais.

Já compactei e reparei o mesmo umas 3 vezes....


Estranho, muito estranho.

E neste

Se selecionar CGD tem que no quadro da esquerda selecionar "TUDO"

Assis, coloquei o código do Fernando, mas não sei ao certo, qual campo você deseja filtrar...

Agora é contigo.  Não posso continuar pois tenho compromisso agora as sete e meia da noite ( hora local ).

Por volta de dez e meia ( hora local ) creio que eu esteja de volta.

Abraços

veja Assis

https://dl.dropboxusercontent.com/u/90217826/ContasAssis.rar

Kaynan

Quando eu digito " 01/06 " no campo data, na caixa de listagem ficam só com 2 registos.

E são só estes dois registos que eu quero que apareçam no relatório quando cliko no botão de imprimir:

se no dia " 01/06 " tiver 100 "cem" registos seriam esses "100" que eu queria

Obrigado

Up

Assis boa noite, tentei com o codigo que te passei mais ainda não consegui nada,

vou tentar outra forma qualquer coisa dou um retorno ok.

Bom dia amigos

Up

Olá a todos,

Caro Assis,

No formulário Pesquisa tem a origem de dados no ListBox Lista que é desvinculada.

A origem de dados do relatório é com base na consulta tmp_tblMovimento.

No meu entender uma solução seria alterar a consulta tmp_tblMovimento incluindo critérios, por exemplo no campo dataMovimento:


IIf(Len([Form]![Pesquisa]![Tx2])>0;[Form]![Pesquisa]![Tx2])

Possivelmente terá que ter a data completa em Tx2

Bom dia

Resolvido

Obrigado

Bom dia Assis, que bom..

Agradeço o retorno em nome do forum!