CONSULTA POR DATAS

USUARIO.EXCLUIDOS 03/09/2007 13:42:16
#233869
Boa tarde amigos!

Estou ocm um probleminha e gostaria da ajuda de vcs.
Seguinte, tenho uma tela onde preciso filtrar todas os registros de um determinado mês.

Uso da seguinte forma para filtrar os registros de um determinado dia:
Data1.RecordSource = "SELECT * FROM tarefas WHERE data ='" & Txtdata.Text & "'"
Data1.Refresh
If Data1.Recordset.EOF = True Then
Data1.RecordSource = "SELECT * FROM Tarefas"
Data1.Refresh
MsgBox ("Nenhum registro foi encontrado!"), vbInformation, "Informação"
Txtdata.Text = ""
End If


Pergunto: como faço para filtrar os registros de um determinado mês ?
Por exemplo:

Gostaria de filtrar os registros do mês de agosto.

Obrigado e agradeço a atenção de todos.
USUARIO.EXCLUIDOS 03/09/2007 13:46:31
#233871 Resposta escolhida
Tente assim:


    Data1.RecordSource = "SELECT * FROM tarefas WHERE Month(data) = 8 and Year(data) = 2007"
    Data1.Refresh



Filtrará os registros do mes agosto(8) e ano 2007.
USUARIO.EXCLUIDOS 03/09/2007 13:52:51
#233877
Dim DataInicial As String
Dim DataFinal As String

DataInicial = Format(DTDataInicial, "mm/dd/yyyy")
DataFinal = Format(DTDataFinal, "mm/dd/yyyy")
Data1.RecordSource = "Select * From TblVendas where Vendedor like '" & txtCodigo.Text & "*' and DataVenda BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# "
Data1.Refresh
ROBIU 03/09/2007 14:05:48
#233881 
Data1.RecordSource = "SELECT * FROM tarefas WHERE Format(Month(data),'MM')='" & ComboMes.Text & "'"
    Data1.Refresh

Então você cria um ComboBox e coloca os meses na list com o formato "MM". Isso porque usamos a função format no sql.
USUARIO.EXCLUIDOS 03/09/2007 14:48:16
#233893
Caros amigos, eu agradeço a ajuda de todos, porem gostaria de efetuar a consulta selecionando o mes(CmbMes.Text) e o ano(CmbAno.Text);

Como devo proceder?

Obrigado.
ROBIU 03/09/2007 14:53:31
#233895
Data1.RecordSource = "SELECT * FROM tarefas WHERE Format(Month(data),'MM')='" & ComboMes.Text & "' and format(Year(data),'yyyy')='" & comboAno.Texto & "'"
Data1.Refresh
USUARIO.EXCLUIDOS 03/09/2007 15:32:47
#233902
Robiu... vlw mesmo... mas tem um outro probleminha....
gostaria de acrescentar nessa consulta o ID do usuario... ou seja, pegar as tarefas de um determinado usuario em um determinado mes e ano.

Vlw pela ajuda.
USUARIO.EXCLUIDOS 03/09/2007 15:44:46
#233905
Data1.RecordSource = "SELECT * FROM tarefas WHERE id = '" & txtId.texto & '" Format(Month(data),'MM')='" & ComboMes.Text & "' and format(Year(data),'yyyy')='" & comboAno.Texto & "'"
Data1.Refresh

tenta isso...
Tópico encerrado , respostas não são mais permitidas
Voltar