Foutmelding in query

[Jumping]

ik wil het totaal berekenen in middels een DSUM en deze waarde terug laten komen in een veld.

Nu heb ik de volgende Dsum gemaakt, maar ik krijg continu een foutmelding.
Iemand een idee?

Dsum("[bedrag]", "tbl_betalingen", "[userid] = 5" AND "[date] = '03-01-2011 between 09-01-2011'")

Daarna komt het .. ik wil de waarde laten terugkomen in een veld op het formulier" weekoverzicht.

 

[ginojo]

Kun je um niet echo'en? Of begrijp k het nu verkeerd?

 

[Jumping]

als ik dit invoer in vba venster locale variabelen om te testen .. krijg ik een foutmelding.
Inmiddels ben ik erachter dat ik als datum #datum# moet gebruiken, maar nu moet ik het nog voor elkaar krijgen met een datum range en de waarde dan laten terugkomen in een veld..

? Dsum("[bedrag]", "tbl_betalingen", "[userid] = 5" AND "[date] = between #03-01-2011# and #09-01-2011#'")

 

[OctaFish]

Er zit zowiezo een fout in de DSUM formule. Maar dat gaf-ie ook al aan....

DSum("[bedrag]", "tbl_betalingen", "[userid] = 5" And "[date]  BETWEEN #03-01-2011# AND #09-01-2011#")

Ik weet niet of deze variant het wel doet, maar hij komt dichter in de buurt Zelf zou ik het zo doen:

strSQL = "SELECT Userid, [Date], Sum(Bedrag) AS Totaal FROM tbl_betalingen" _
    & "WHERE (userid=5 AND date Between #1/3/2010# And #1/9/2010#) " _
    & "GROUP BY Userid, [Date]"
With CurrentDb.OpenRecordset(strSQL)
    If .RecordCount = 1 Then
        Me.txtvakTotaal = .Fields("Totaal").Value
    End If
    .Close
End With
End Sub

 

[Jumping]

en hoe plak ik dat dan in een veld? moet ik hem in de besturingselementbron plakken?

 

[Jumping]

Ik heb het textvak als naam meegegeven 'txtvakTotaal'.
En laat de query uitvoeren als het formulier geopend wordt

Nu wordt de waarde gevuld in het veldje .. ik kan hier wel wat mee ;-).
Bedankt!!