PESQUISA COM INTERVALO INTERVALO DATAS
Olá Ana
Bom, vou modificar seu codigo.
Vamos fazer de uma forma mais simples para ver se funciona e depois partimos para o complicado.
Primeiramente, vamos colocar um DTPicker1 e DTPicker2 para selecionarmos à data.
dim data_inicial as string
dim data_final as String
data_inicial = format(DTPicker1.value, [Ô]MM/DD/YYYY[Ô])
data_final = format(DTPicker2.value, [Ô]MM/DD/YYYY[Ô])
SQL = [Ô]SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda >= [ô][Ô]+ data_inicial +[Ô][ô] and Venda.Data_venda <=[ô][Ô] + data_final +[Ô][ô] ORDER BY data_venda[Ô]
Tenta Ai.
Bom, vou modificar seu codigo.
Vamos fazer de uma forma mais simples para ver se funciona e depois partimos para o complicado.
Primeiramente, vamos colocar um DTPicker1 e DTPicker2 para selecionarmos à data.
dim data_inicial as string
dim data_final as String
data_inicial = format(DTPicker1.value, [Ô]MM/DD/YYYY[Ô])
data_final = format(DTPicker2.value, [Ô]MM/DD/YYYY[Ô])
SQL = [Ô]SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda >= [ô][Ô]+ data_inicial +[Ô][ô] and Venda.Data_venda <=[ô][Ô] + data_final +[Ô][ô] ORDER BY data_venda[Ô]
Tenta Ai.
olha o prblema está em seu maskedit
para teste coloque um botao e nele coloque o seguinte
msgbox txtinicial
veja o que aparece
para teste coloque um botao e nele coloque o seguinte
msgbox txtinicial
veja o que aparece
Olá CARLOSBINO, boa tarde, segui a sua sugestão, e ele não da nenhum erro, aparece um form com nada escrito
e um botão OK ai qndo aperta o botão OK, volta para o mesmo erro de critério....
GUIMORAES123 boa tarde, muito obrigada pela dica, mais infelismente tbm deu erro só q dessa
vez deu um erro diferente deu: tipo de dados incompativel na expressão do critério...
Marcelo: tentei fazer oque me sugeriu, ele não me retorna nada apenas um form sem nada escrito com um botão OK e qndo clico nele
volta o mesmo erro de data na expressão de consulta...
e um botão OK ai qndo aperta o botão OK, volta para o mesmo erro de critério....
GUIMORAES123 boa tarde, muito obrigada pela dica, mais infelismente tbm deu erro só q dessa
vez deu um erro diferente deu: tipo de dados incompativel na expressão do critério...
Marcelo: tentei fazer oque me sugeriu, ele não me retorna nada apenas um form sem nada escrito com um botão OK e qndo clico nele
volta o mesmo erro de data na expressão de consulta...
então vamos lá usando o dtpicker
Criterio = [Ô]#[Ô] & Format(DTPicker1.value, [Ô]mm/dd/yyy[Ô]) & [Ô]# And #[Ô] & Format(DTPicker2.value, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
SQL = [Ô]SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda Between [Ô] & Criterio & [Ô] ORDER BY data_venda[Ô]
GUIMORAES123, fiz algumas mudanças no seu codigo :
Troquei:
Por:
ai deu certo... quer dizer em partes... pq como os DTPickers estão com a Data de hoje ele so me mostra o registro de hoje....
e agora como faço para poder selecionar as data?
Troquei:
Citação:[Ô]SQL = [Ô]SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda >= [ô][Ô]+ data_inicial +[Ô][ô] and Venda.Data_venda <=[ô][Ô] + data_final +[Ô][ô] ORDER BY data_venda
Por:
Citação:SQL = [Ô]SELECT data_venda, descrição, totalpreço FROM venda WHERE venda.data_venda >= #[Ô] + data_inicial + [Ô]# and Venda.Data_venda <=#[Ô] + data_final + [Ô]# ORDER BY data_venda[Ô]
ai deu certo... quer dizer em partes... pq como os DTPickers estão com a Data de hoje ele so me mostra o registro de hoje....
e agora como faço para poder selecionar as data?
Bom, quando estiver em execução, vá até o DTPicker e Selecione o periodo desejado.
Deverá Filtrar todos os dados respectivamente neste periodo selecionado
Nota: você deve selecionar no DTPicker1 a data inicial e DTPicker2 a Data final(maior que a data inicial).
Caso você queira que o DTPickers fiquem com a data do dia é so colocar no evento load do form o seguinte.
Private Sub Form_Load()
DTPicker1.value = Date
DTPicker2.value = Date
End Sub
Deverá Filtrar todos os dados respectivamente neste periodo selecionado
Nota: você deve selecionar no DTPicker1 a data inicial e DTPicker2 a Data final(maior que a data inicial).
Caso você queira que o DTPickers fiquem com a data do dia é so colocar no evento load do form o seguinte.
Private Sub Form_Load()
DTPicker1.value = Date
DTPicker2.value = Date
End Sub
Muito obrigada amigos em fin deu certo... com a solução do nosso amigo GUIMORAES123......
Obrigada a todos
Obrigada a todos
Tópico encerrado , respostas não são mais permitidas