Hej.

Jag har ett fält i en accessdatabas som är ett datumfält med formatet yyyy-mm-dd hh:mm:ss

Nu vill jag göra ett urval där jag bara vill att datumet & inte tiden ska vara med.


ex... jag vill ha alla poster med dagens datum.

försöker med :

data1.recordsource = "Select * from xxx where DateField = #'" & Format(date,"yyyy-mm-dd") & "'#"
data1.refresh


men...det vill sig inte....

Någon idé ??

Mvh
Martin

Problemet med din nuvarande radkälla är att den bara gäller de som har klockslag 00:00:00. Du kan ju avrunda fältet. Men jag tror den bästa lösningen är:
<code>
data1.recordsource = "SELECT *" & vbCrLf & _
"FROM xxx" & vbCrLf & _
"WHERE DateField >= #" & Format(date,"m\/d\/yyyy") & "# AND DateField < #" & Format(date + 1, "m\/d\/yyyy") & "#"
data1.refresh
</code>

Tack Anders...det funkade bra....men säg den som nöjer sig...:-)


nu vill jag ha ut alla poster i innevarande vecka...och innevarande månad...
Det MÅSTE ju finnas någon funktion som weekofyear eller liknande ??
Jag hittar inget i MSDN....

Mvh
Martin

När du arbetar med datum finns det några underbara funktioner att känna till. DateAdd(), DateSerial() och DatePart(). Med dem kan man nästan göra allt.

<code>
Public Function FirstDayOfMonth(Value as date) as date
FirstDayOfMonth = DateSerial(Year(Value),Month(Value),1)
End Function

Public Function LastDayOfMonth(Value as date) as date
LastDayOfMonth = DateSerial(Year(Value),Month(Value)+1,0)
End Function

'Lite svårare med veckodagarna utan vb. Men det är något sånthär.

Public Function FirstDayOfWeek(Value as date) as date
FirstDayOfWeek = DateAdd("d",-WeekDay(Value,vbUseSystem),Value)
End Function

Public Function LastDayOfWeek(Value as date) as date
LastDayOfWeek = DateAdd("d",7-WeekDay(Value,vbUseSystem),Value)
End Function
</code>