queria fazer um Filtro de pesquisa entre DATAS dentro de Listbox. data_inicio data_fim
mas o codigo so mas traz as datas se o windows estiver no formato de data americano
tentei colocar o Format mas nao deu muito certo.
se alguem poder me ajudar, agradeceria muito. obrigado desde já.
o meu codigo seria este:
Dim data_inicio As String
Dim data_fim As String
Private Sub cbo_dataini_Change()
cbo_dataini.AddItem "23/06/2014"
cbo_dataini.AddItem "28/06/2014"
End Sub
Private Sub cbo_datafin_Change()
cbo_datafin.AddItem "23/06/2014"
cbo_datafin.AddItem "28/06/2014"
data_inicio = cbo_dataini.Text
data_fim = cbo_datafin.Text
Filtro1
End Sub
Private Sub Filtro1()
Dim ComandoSQL As String
ComandoSQL = "SELECT * FROM tabela_balancim WHERE Data Between #" & data_inicio & "# AND #" & data_fim & "#"
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) 'nome
List.SubItems(2) = consulta(2) 'Data
List.SubItems(3) = consulta(3) 'tipo de bojo
List.SubItems(4) = consulta(4) 'Tamanho
List.SubItems(5) = consulta(5) 'cor
List.SubItems(6) = consulta(6) 'Quantidade
consulta.MoveNext
Wend
mas o codigo so mas traz as datas se o windows estiver no formato de data americano
tentei colocar o Format mas nao deu muito certo.
se alguem poder me ajudar, agradeceria muito. obrigado desde já.
o meu codigo seria este:
Dim data_inicio As String
Dim data_fim As String
Private Sub cbo_dataini_Change()
cbo_dataini.AddItem "23/06/2014"
cbo_dataini.AddItem "28/06/2014"
End Sub
Private Sub cbo_datafin_Change()
cbo_datafin.AddItem "23/06/2014"
cbo_datafin.AddItem "28/06/2014"
data_inicio = cbo_dataini.Text
data_fim = cbo_datafin.Text
Filtro1
End Sub
Private Sub Filtro1()
Dim ComandoSQL As String
ComandoSQL = "SELECT * FROM tabela_balancim WHERE Data Between #" & data_inicio & "# AND #" & data_fim & "#"
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) 'nome
List.SubItems(2) = consulta(2) 'Data
List.SubItems(3) = consulta(3) 'tipo de bojo
List.SubItems(4) = consulta(4) 'Tamanho
List.SubItems(5) = consulta(5) 'cor
List.SubItems(6) = consulta(6) 'Quantidade
consulta.MoveNext
Wend