Estou tentando criar uma consulta para retornar todos os registros de uma determinada tabela de um Db cuja campo data da tabela seja igual a data atual considerendo apenas dia e mês.

 

A formula q criei foi a seguinte:

 

"SELECT * From TblAdressBook WHERE " & DatePart("d", " & DATA & ") & " = " & DatePart("d", Now) & " AND " & DatePart("m", " & DATA & ") & " = " & DatePart("m", Now) & ""

 

Está dando erro creio que esta consulta esteja errada, mas ~b sei como fazer outra. Alguem pode me ajudar?

Ok, funcionou! Mais ainda tenho uma dúvida:

 

Para conectar a base uso:

 

Public Sub ConectarDb()
'On Error Resume Next
    Set Db = New ADODB.Connection
    With Db
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = App.Path & "BaseDbAdressBook.mdb"
        .Open
    End With

    Set Rs = New ADODB.Recordset
End Sub

 

Public Sub ConectarDb()
'On Error Resume Next
    Set Db = OpenDatabase(App.Path & "BaseDbAdressBook.mdb")
End Sub

 

strSql = "SELECT * From TblAdressBook WHERE Format(DATA,'mm/dd') Like '*" & Format(Date, "mm/dd") & "*'"
Set Rs = Db.OpenRecordset(strSql)

 

O que está errado?

 

tire o LIKE e substitua pelo sinal de igual e remova os *'s.

vê se funciona assim....

Fiz Assim:

 

    strSql = "SELECT * From TblAdressBook WHERE Format(DATA,'mm/dd') = " & Format(Date, "mm/dd") & ""
    rRs.Open strSql, Db, adOpenStatic, adLockOptimistic
    While Not (rRs.EOF Or rRs.BOF)
        lstNames.AddItem vbTab & rRs.Fields!NOME & Chr(32) & rRs.Fields!SOBRENOME, , ImageList.ListImages(1).Picture
        rRs.MoveNext
    Wend
    If (rRs.EOF Or rRs.BOF) Then lstNames.ListIndex = 0
    rRs.Close
    Set rRs = Nothing

Mas não funcionou!

Faça assim :

 

DIM srtSQL AS STRING, Sel AS STRING

Sel = FORMAT(DATE,"DD/MM")

strSql = "SELECT * From TblAdressBook WHERE Format(DATA,'mm/dd') = '" & Sel & "'"
rRs.Open strSql, Db, adOpenStatic, adLockOptimistic

...

..

.

PS : Format(DATA,'mm/dd')  ==> ESTE NOME 'DATA' DEVERÁ SER REFERENTE AO CAMPO NA SUA TABELA ([TblAdressBook])