DATA REPORTS

GESSINGER 02/03/2010 14:24:59
#335786
ola, tenho um datagrid onde faço um filtro dos produtos comprados no DIA.
Como faço para exibir no relatorio somente esse filtro ou seja so os produtos vendidos no dia ?
como na imagem acima
GESSINGER 02/03/2010 15:53:03
#335800
tenho varias datas e quero filtrar somente as de um dia ..entedeu
LEANDRO 02/03/2010 15:56:28
#335801
Esta gravado em uma tabela ?
GESSINGER 02/03/2010 19:43:25
#335827
sim esta gravado numa tabela access chamada [Ô]Vendidos[Ô]
DAVERSON 03/03/2010 08:33:36
#335877
isso e bem simple crie um txt onde vc possa colacar o criterio pra consulta... e faça sua consulta baseada nele...

GESSINGER 03/03/2010 11:13:19
#335900
eu quero preciso fazer o filtro no relatorio e não no datagrid ( nele eu ja fiz )
GESSINGER 03/03/2010 23:02:17
#335980
alguem sabe como faz ??????
GESSINGER 04/03/2010 19:52:15
#336095
tenho varias datas e quero filtrar somente as de um dia ..entedeu
??
NEREU1301 04/03/2010 20:53:06
#336104
Resposta escolhida
Boa noite

eu faço assim e dá certo

Private Sub cmdData_Click() [ô]filtra por data

If TxtData.Text <> [Ô][Ô] Then
Call Preenche_dgVendServ
rsComissoes.Open ([Ô]select * from Cons_Comissoes where Data LIKE [ô][Ô] & TxtDataInicial.Text & [Ô][ô] order by Nome[Ô])
Call RelatVendServ
Else
MsgBox [Ô]Informe uma Data válida[Ô], vbInformation
TxtData.SetFocus
End If
Exit Sub
TxtData = [Ô][Ô]
End Sub


Espero que ajude

Nereu
GESSINGER 04/03/2010 21:09:29
#336113



eu quero preciso fazer o filtro no relatorio e não no datagrid ( nele eu ja fiz )
NEREU1301 04/03/2010 21:13:53
#336115
Aqui vai chamar o relatório só da data que voce quer

Call RelatVendServ

Private Sub RelatAnoMes() [ô]relatório de por Ano/mês das vendas e serviço
Dim i As Integer
On Erro GoTo errRelatAnoMes
With rptdinamicoCom2
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = rsConsComissoes.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.item(i).DataMember = [Ô][Ô]
.item(i).DataField = rsConsComissoes.Fields(i - 1).Name
End If
Next i
End With
.Show
End With
txtFunc.SetFocus
Call limpar
errRelatAnoMes:
With Err
If .Number <> 0 Then
MsgBox [Ô]Ocorreu um Erro! Refaça o processo.[Ô], vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
.Number = 0
End If
End With
End Sub


Achei que você já tivesse algum relatótio

desculpe
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas