quero fazer um filtro de pesquisa sequencial. mas a ideia e ter uma comparação o e qual a um filtro entre datas
teria que fazer ate mais caixa de combinação.
teria que mostra o intervalo de datas do 25/06/2014 ate o dia 28/06/2014. ex: todos do dia 25/06/2014, 26/06/2014 ,27/06/2014 , 28/06/2014.
teria que mostra o intervalo entre nome do 1 ate o 4. o de data conseguir mas do nome não. EX: 1 ,2, 3, 4.
se alguem poder me ajudar, agradeceria muito. obrigado desde já.
Dim valor_pesq As String
Dim valor_pesq2 As String
Private Sub cbo_dataini_Change()
cbo_dataini.AddItem "23/06/2014"
cbo_dataini.AddItem "28/06/2014"
Filtro1
End Sub
Private Sub cbo_datafin_Change()
cbo_datafin.AddItem "23/06/2014"
cbo_datafin.AddItem "28/06/2014"
Filtro1
End Sub
Private Sub cbo_nome_Change()
valor_pesq = cbo_nome.Text
Filtro1
End Sub
Private Sub cbo_nome2_Change()
valor_pesq2 = cbo_nome2.Text
Filtro1
End Sub
Private Sub Filtro1()
Dim ComandoSQL As String
ComandoSQL = "select * from tabela_balancim where Data Between #" & Format(Me!txt_dataini, "mm/dd/yyyy") & "# AND #" & Format(Me!txt_datafin, "mm/dd/yyyy") & "# and Operador between #" & valor_pesq & " # and # " & valor_pesq2 & "#"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
On Error Resume Next
ListView1.ListItems.Clear
While Not consulta.EOF
Set List = ListView1.ListItems.Add(Text:=consulta(0)) 'id
List.SubItems(1) = consulta(1)
List.SubItems(2) = consulta(2)
List.SubItems(3) = consulta(3)
List.SubItems(4) = consulta(4)
List.SubItems(5) = consulta(5)
List.SubItems(6) = consulta(6)
consulta.MoveNext
Wend
teria que fazer ate mais caixa de combinação.
teria que mostra o intervalo de datas do 25/06/2014 ate o dia 28/06/2014. ex: todos do dia 25/06/2014, 26/06/2014 ,27/06/2014 , 28/06/2014.
teria que mostra o intervalo entre nome do 1 ate o 4. o de data conseguir mas do nome não. EX: 1 ,2, 3, 4.
se alguem poder me ajudar, agradeceria muito. obrigado desde já.
Dim valor_pesq As String
Dim valor_pesq2 As String
Private Sub cbo_dataini_Change()
cbo_dataini.AddItem "23/06/2014"
cbo_dataini.AddItem "28/06/2014"
Filtro1
End Sub
Private Sub cbo_datafin_Change()
cbo_datafin.AddItem "23/06/2014"
cbo_datafin.AddItem "28/06/2014"
Filtro1
End Sub
Private Sub cbo_nome_Change()
valor_pesq = cbo_nome.Text
Filtro1
End Sub
Private Sub cbo_nome2_Change()
valor_pesq2 = cbo_nome2.Text
Filtro1
End Sub
Private Sub Filtro1()
Dim ComandoSQL As String
ComandoSQL = "select * from tabela_balancim where Data Between #" & Format(Me!txt_dataini, "mm/dd/yyyy") & "# AND #" & Format(Me!txt_datafin, "mm/dd/yyyy") & "# and Operador between #" & valor_pesq & " # and # " & valor_pesq2 & "#"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
On Error Resume Next
ListView1.ListItems.Clear
While Not consulta.EOF
Set List = ListView1.ListItems.Add(Text:=consulta(0)) 'id
List.SubItems(1) = consulta(1)
List.SubItems(2) = consulta(2)
List.SubItems(3) = consulta(3)
List.SubItems(4) = consulta(4)
List.SubItems(5) = consulta(5)
List.SubItems(6) = consulta(6)
consulta.MoveNext
Wend