[Resolvido] Escolher relatórios através da data

Boa-tarde

vou tentar expressar-me direitinho:


o meu programa é de gestão de stocks, o utilizador tem acesso a um formulário, onde contém uma list box com todas referencias na BD, ao fazer duplo clique na referencia, abre outro formulário a pedir para inserir a quantidade vendida. Ou seja, form_vendas, ao confirmar a venda é automaticamente guardado na tabela (vendas) a hora&data em que registo foi guardado, através deste código:

strSQL = "INSERT INTO nome_tabela (LogData) Values(Now())"

Ficando assim na tabela : "18-05-2011 17:54:21"

Pronto, criei um Relatório, que mostra todas as vendas feitas, mas pediram-me para fazer algo diferente, que vou explicar:

Criei um formulário:



Nessa combobox deveria conter todos os dias, se todos os dias num intervalo entre 10 de maio e 20 de maio tivessem sido efectuadas vendas, nessa combobox deveria aparecer 10-05-2011,11-05-2011,... para o utilizador poder escolher o dia pretendido (vamos supor dia 15-05-2011), e após o utilizador carregar na tecla imprimir, automaticamente corria um código que ia buscar só as vendas efectuadas no tal dia 15, ou seja, ia criar um relatório com todas as vendas desde as 00:00 até as 23:59 de 15-05-2011.

Espero que me tenha feito entender.

Agradeço muito a ajuda que me possam vir a dar desde ja,
Miguel Freitas Smile

rapaz faça a combo ir buscar só as datas na tabela de vendas

no criterio da query que alimenta o relatório difite lá a referência a essa combo

no botão mande apenas imprimir o dito relatório

é simples não ?

mas é que a data inclui data e hora, dá à mesma ?

penso que terá de formatar para data

cdate([campo])

Não é assim tão fácil como você diz, pois, nesta combobox deveriam aparecer todas as datas que existem, que depois ao carregar no botão imprimir, imprimi-se um relatório com todas as vendas efectuadas nesse dia.

Amigo, como os procedimentos que precisa serão feitos em um formulário, imagino ser essa a sala mais apropriada, a sala de formulários. Estou movendo o tópico agora, ok?

Você já tentou colocar o critério ao abrir o relatório assim?

DoCmd.OpenReport "NomeRelatório", acViewReport, , "Data=#" & Me.NomeCombo.Column(0) & "#"

Se a coluna data for outra, mude o 0 para a coluna certa.

O mal agora é que na combo-box não aparece a data, nem nada.

Experimentei assim:

DoCmd.OpenReport "vendas", acViewPreview, , "datahora=data"

Mas no entant,o a função Now() insere a data e a hora ou seja, fica assim : "19-05-2011 18:58:12".

existe alguma maneira que a função Now() insira só a data ? Assim, "19-05-2011".

Se sim, era muito mais fácil...

Aguardo a resposta, Obrigado

Uma outra possibilidade: crie uma consulta, caso ainda não a tenha criado. Na frente dos campos já existente, crie outro para formatar a data assim:

DataFormatada: Format([NomeCampoDataHora];"dd-mm-yyyy")

Crie a listbox à partir desse campo da consulta e use o código que passei anteriormente para filtrar ao abrir o relatório.

Criquio vê se este exemplo serve ao colega


http://dl.dropbox.com/u/8157744/Relat%C3%B3rio.rar

Vieirão, é mais ou menos isso, mas pelo que entendi o amigo está com dificuldades para realizar o processo porque o campos está com data e hora na tabela e ele quer filtrar apenas pela data. Por isso sugeri criar uma consulta e nessa consulta criar um campo para pegar apenas a data.

Bom dia a todos;

Pode ter essa caixa de combinação mesmo com data/hora sem problema algum.

O relatório pode estar vinculado direto na tabela, sem problema algum.

Altere o nome dessa combobox para cboData

No evento VBA ao presionar do seu botão, faça deste jeito.


Private Sub SeuBotãoAbreRelatório_Click()
'By JPaulo ® Maximo Access
Dim rpt As Report
Dim sSQL As String
'monta o SQL para o filtro
sSQL = "SELECT * FROM SuaTabelaVendas WHERE DateValue([CampoDataHora])=Forms!SeuFormulário!cboData"
'abre o relatorio em modo oculto
DoCmd.OpenReport "vendas", acViewDesign, , , acHidden
Set rpt = Application.Reports("vendas")
'aplica o SQL à linha de origem
rpt.RecordSource = sSQL
'fecha o report com a nova origem já com o filtro
DoCmd.Close acReport, "vendas", acSaveYes
'abre o report filtrado pela data
DoCmd.OpenReport "vendas", acViewPreview
Set rpt = Nothing
End Sub

Exemplo:
Download

Espectáculo, deu certo...

MiguelSantos, criquio, vieirasoft e JPaulo, mais uma vez, este fórum é inigualável, vocês todos 0são simplesmente fantásticos..

Muito obrigado mais uma vez, pela vossa preciosa ajuda, do fundo do meu coração, Miguel Freitas.