Hej!
Jag behöver lite hjälp med att visa poster för denna månad, förra och nästa! Jag har ett fält som innehåller datum i en Access databas och så här ser de tre SQL-frågorna ut:

Denna månaden(fungerar):
MySQL = "SELECT * FROM tblProgram WHERE month(Prog_Datum) = month(Now)"

Förra månaden(fungerar ej):
dtePast = DateAdd("m",-1,Now)
MySQL = "SELECT * FROM tblProgram WHERE month(Prog_Datum) = #"&dtePast&"#"

Nästa månad(fungerar ej):
dteNext = DateAdd("m",1,Now)
MySQL = "SELECT * FROM tblProgram WHERE month(Prog_Datum) = #"&dteNext&"#"

Någon som har lite hjälp att ge?

<code>
Förra månaden(fungerar ej):
dtePast = Month(DateAdd("m",-1,Now()))
MySQL = "SELECT * FROM tblProgram WHERE month(Prog_Datum) = #"&dtePast&"#"

Nästa månad(fungerar ej):
dteNext = Month(DateAdd("m",1,Now()))
MySQL = "SELECT * FROM tblProgram WHERE month(Prog_Datum) = #"&dteNext&"#"
</code>

Det underlättar om man använder Month()

- Magnus
http://www.divxsubtitles.net

Det fungerar tyvärr inte får detta felmeddelande:

Microsoft JET Database Engine (0x80040E07)
Syntaxfel i datum i frågeuttrycket 'month(Prog_Datum) = #10#'.

Datumet i databasen ligger formaterat som ÅÅÅÅ-MM-DD om det är till någon hjälp.

Det här borde fungera...

<code>
'Denna månad
MySQL = "SELECT * FROM tblProgram WHERE Month(Prog_Datum) = " & Month(Now)

'Förra månaden
dtePast = DateAdd("m",-1,Now)
MySQL = "SELECT * FROM tblProgram WHERE Month(Prog_Datum) = " & Month(dtePast)

'Nästa månad
dteNext = DateAdd("m",1,Now)
MySQL = "SELECT * FROM tblProgram WHERE Month(Prog_Datum) = " & Month(dteNext)
</code>

/Thomas

Tjas. Om ett år kommer du får problem. Kommer du se poster från tidigare år med samma månad. Låt mig lösa ditt problem:

<code>
Public Function SQLMonthFilter(FieldName, Year, Month)
Dim FirstDate
Dim LastDate
FirstDate = DateSerial(Year, Month, 1)
LastDate = DateSerial(Year, Month + 1, 0)
SQLMonthFilter = FieldName & " Between #" & FirstDate & "# And #" & LastDate & "#"
End Function

MySQL = "SELECT * FROM tblProgram WHERE " & SQLMonthFilter("Prog_Datum", Year(Now), Month(Now))


'Förra månaden(fungerar ej):
dtePast = DateAdd("m",-1,Now)
MySQL = "SELECT * FROM tblProgram WHERE " & SQLMonthFilter("Prog_Datum", Year(dtePast), Month(dtePast))

'Nästa månad(fungerar ej):
dteNext = DateAdd("m",1,Now)
MySQL = "SELECT * FROM tblProgram WHERE " & SQLMonthFilter("Prog_Datum", Year(dteNext), Month(dteNext))
</code>