DATA REPORTS
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
Como faço para exibir no relatorio somente esse filtro ou seja so os produtos vendidos no dia ?
como na imagem acima
tenho varias datas e quero filtrar somente as de um dia ..entedeu
Esta gravado em uma tabela ?
sim esta gravado numa tabela access chamada [Ô]Vendidos[Ô]
isso e bem simple crie um txt onde vc possa colacar o criterio pra consulta... e faça sua consulta baseada nele...
eu quero preciso fazer o filtro no relatorio e não no datagrid ( nele eu ja fiz )
alguem sabe como faz ??????
tenho varias datas e quero filtrar somente as de um dia ..entedeu
??
??
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
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
eu quero preciso fazer o filtro no relatorio e não no datagrid ( nele eu ja fiz )
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
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
Tópico encerrado , respostas não são mais permitidas