Query in VBA op datum maken

[rvdsch]

Aan de hand van een eerder probleem ben ik bezig om een query te laten lopen in een formulier. Er moet dus met een knop op het formulier een query worden gedraaid. De query moet lopen tussen een bepaalde start en einddatum. Ik heb in VBA de volgende code gebruikt:

Dim strTabel As String
strTabel = "[Totalen op Datum]"
strSQL = "Select * From " & strTabel & vbCrLf _
& "WHERE (([Datum]= Between" & "Me.Startdatum.Value" _
& "And Me.Einddatum.Value"
Me.RecordSource = strSQL
Me.Requery

Helaas loopt deze code niet omdat dit stuk

strSQL = "Select * From " & strTabel & vbCrLf _
& "WHERE (([Datum]= Between" & "Me.Startdatum.Value" _
& "And Me.Einddatum.Value"

niet klopt. Ik ben er al een hele tijd mee aan het spelen maar ik krijg de juiste haakjes en leestekens er maar niet in geprogrammeerd

 

[nire]

Wow, daar klopt niet veel van. Probeer dit eens.

strSQL = "Select * From " & strTabel & " WHERE ((([Datum])>#" & Me.Startdatum.Value & "# And ([Datum])<#" & Me.Einddatum.Value & "#))"

 

[rvdsch]

Bedankt voor je code Nire hij loopt. Ik heb echter nog een klein probleem. De query gaat van Groter dan naar Kleiner dan.
Ik wil het graag veranderen in Groter dan of gelijk aan naar Kleiner dan of gelijk aan. Ik heb al geprobeerd er = tekens in te zetten maar dan loopt de code weer fout. Heb jij enig idee?

 

[nire]

WHERE ((([Datum])>=#" & Me.Startdatum.Value & "# And ([Datum])<=#" & Me.Einddatum.Value & "#));

 

[Bakk4318]

ipv > en < gebruik je >= en <=

 

[rvdsch]

En dat was het!:thumb: