AJUDA COM FILTRAGEM DE DADOS
Dim db_file As String
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim a1 As String
Dim Data1 As Date
Dim Data2 As Date
Data1 = DTPicker1
Data2 = DTPicker2
[ô]RSProdutos.Open
Dim renovacao As String
renovacao = [Ô]FABRICIO COUTO[Ô]
tenho ki adicionar aki um campo com nome do vendedor que vai pesquisar oqui ele vendeu entra as data1 e data2
[ô]a1 = [Ô]Select * from osentra where (renovacao) BETWEEN #[Ô] & Format(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And renovacao <> [ô][Ô] & [Ô][Ô] & [Ô][ô] order by vendedor[Ô]
a1 = [Ô]SELECT * From osentra where DATAENTR BetWeen #[Ô] & Format$(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
On Error GoTo ERRO
If MsgBox([Ô]Confirma a impressão do relatório?[Ô], vbQuestion + vbYesNo + vbDefaultButton2, [Ô]TeclaOS[Ô]) = vbNo Then Exit Sub
[ô] Get the data.
db_file = App.Path
If Right$(db_file, 1) <> [Ô]\[Ô] Then db_file = db_file & [Ô]\[Ô]
db_file = db_file & [Ô]\dados\dados.mdb[Ô]
[ô] Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
[ô] Open the Recordset.
[ô]Set rs = conn.Execute([Ô]SELECT * FROM osentra[Ô], , adCmdText)
Set RS = conn.Execute(a1, , adCmdText)
[ô] Connect the Recordset to the DataReport.
Set vend.DataSource = RS
vend.WindowState = vbMaximized
vend.Show vbModal
RS.Close
conn.Close
Unload Me
Exit Sub
ERRO:
[txt-color=#e80000] [/txt-color]
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim a1 As String
Dim Data1 As Date
Dim Data2 As Date
Data1 = DTPicker1
Data2 = DTPicker2
[ô]RSProdutos.Open
Dim renovacao As String
renovacao = [Ô]FABRICIO COUTO[Ô]
tenho ki adicionar aki um campo com nome do vendedor que vai pesquisar oqui ele vendeu entra as data1 e data2
[ô]a1 = [Ô]Select * from osentra where (renovacao) BETWEEN #[Ô] & Format(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And renovacao <> [ô][Ô] & [Ô][Ô] & [Ô][ô] order by vendedor[Ô]
a1 = [Ô]SELECT * From osentra where DATAENTR BetWeen #[Ô] & Format$(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
On Error GoTo ERRO
If MsgBox([Ô]Confirma a impressão do relatório?[Ô], vbQuestion + vbYesNo + vbDefaultButton2, [Ô]TeclaOS[Ô]) = vbNo Then Exit Sub
[ô] Get the data.
db_file = App.Path
If Right$(db_file, 1) <> [Ô]\[Ô] Then db_file = db_file & [Ô]\[Ô]
db_file = db_file & [Ô]\dados\dados.mdb[Ô]
[ô] Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
[ô] Open the Recordset.
[ô]Set rs = conn.Execute([Ô]SELECT * FROM osentra[Ô], , adCmdText)
Set RS = conn.Execute(a1, , adCmdText)
[ô] Connect the Recordset to the DataReport.
Set vend.DataSource = RS
vend.WindowState = vbMaximized
vend.Show vbModal
RS.Close
conn.Close
Unload Me
Exit Sub
ERRO:
[txt-color=#e80000] [/txt-color]
E o que você quer?
Amigo, você vai pesquisar o nome ou o código do vendedor, se for código é mais fácil
OU
testa ai ve se funfa
a1 = [Ô]SELECT * From osentra where COD_VENDEDOR = [Ô]& CODIGO_TXTNOMEVENDEDOR &[Ô] AND DATAENTR BetWeen #[Ô] & Format$(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô] OU
a1 = [Ô]SELECT * From osentra where (((NOME_DO_VENDEDOR) Like [ô]%[Ô] & TXTNOMEVENDEDOR & [Ô]%[ô])) AND DATAENTR BetWeen #[Ô] & Format$(Data1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(Data2, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô] testa ai ve se funfa
deu certinho amigo valeu mesmo
mais e se eu usar uma data1 record set
tentei mais nao eu certo
Data1.RecordSource = [Ô]SELECT * From osentra where (((VENDEDOR) Like [ô]%[Ô] & Text1.Text & [Ô]%[ô])) AND DATAENTR BetWeen #[Ô] & Format$(DataA, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(DataB, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
tentei mais nao eu certo
Data1.RecordSource = [Ô]SELECT * From osentra where (((VENDEDOR) Like [ô]%[Ô] & Text1.Text & [Ô]%[ô])) AND DATAENTR BetWeen #[Ô] & Format$(DataA, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format$(DataB, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
Tópico encerrado , respostas não são mais permitidas