Jag uppdaterar en listruta med följande kod, det jag skulle vilja göra ytterligare är att uppdatera så att den filtrerar till dagens datum, går det?

With Me.lblistruta2
.RowSource = _
"SELECT tabell2.ID, tabell2.Datum, tabell2.Tid, tabell2.Händelse, " & _
"tabell2.Namn " & _
"FROM tabell2 " & _
" Where (tabell2.datum = date)" & _
" ORDER BY tabell2.Datum DESC"
.ColumnWidths = "0cm;1,7cm;1cm;0,5cm;1,5cm"
.ColumnHeads = True
.Requery
End With

Gör du inte redan det:
<code>
"Where (tabell2.datum = date)"
</code>

Nej, den returnerar inget på denna, trots att det finns data för datumet?

Innehåller datumen i databasen klockslag också? Den koden returnerar bara poster där klockslaget är 00:00:00.

/Johan

Nej formatet i databasen är kort datum

Format har bara med hur informationen visas. Jag tror Johan har rätt.

Testa med:

WHERE tabell2.datum >=Date() AND tabell2.datum < DateAdd("d",1,Date())

Jag får inte frågan att fungera med:
" WHERE tabell2.datum >=Date() AND tabell2.datum < DateAdd("d",1,Date())"
får ett kompileringsfel där det förväntas slut på programsatsen och d är markerad..

Ska det inte vara :

>='#' & Date() & '#' AND tabell2.datum < '#' & DateAdd("d",1,Date()) & '#' ?

Glömde escapa "-tecknet:

 " WHERE tabell2.datum >=Date() AND tabell2.datum < DateAdd(""d"",1,Date())"

Martin, ser inte vad du försöker åstakomma med din kod.
Jet, Access databasmotor, har stöd VBA dataum funktioner. Datum funktioner retunerar ett datum värde.

Brädgårdar, #-tecknet, används för datum konstanter i JET SQL.

Så om du skulle skrivit:
<code>
"WHERE tabell2.datum >= #" & Date() & "# AND tabell2.datum < #" & DateAdd("d",1,Date()) & "#"
</code>
Skulle jag förstått det.

Men det ser ut som du blandat ihop begreppen.

Nu fungerar det mycket tillfredställande tack