Dsum syntax

[GAllen]

I can't seem to get this Dsum right.

Dim PreviousScore as Integer
Dim rst As DAO.Recordset
Set rst = Form.RecordsetClone
rst.MoveFirst
PreviousScore = DSum("[Score]", "qryScoring", "GID < '" & rst("GID") & "'
And Location = " & rst("Location"))

rst("GID") is Long, rst("Location") is Integer

PreviousScore = DSum("[Score]", "qryScoring", "GID < " & rst("GID"))
returns 6 which is correct.
but when I add the second criteria I get PreviousScore = 0 and it should be
2. I suspect the
Dsum is failing because my quotes placements are incorrect.
Thanks,
GAllen

 

[Douglas J. Steele]

If GID is Long, you don't need the single quotes you've got:

PreviousScore = DSum("[Score]", "qryScoring", "GID < " & rst("GID") & " And
Location = " & rst("Location"))

 

[GAllen]

Works great!
Thankyou Douglas

If GID is Long, you don't need the single quotes you've got:

PreviousScore = DSum("[Score]", "qryScoring", "GID < " & rst("GID") & "
And Location = " & rst("Location"))


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

I can't seem to get this Dsum right.

Dim PreviousScore as Integer
Dim rst As DAO.Recordset
Set rst = Form.RecordsetClone
rst.MoveFirst
PreviousScore = DSum("[Score]", "qryScoring", "GID < '" & rst("GID") & "'
And Location = " & rst("Location"))

rst("GID") is Long, rst("Location") is Integer

PreviousScore = DSum("[Score]", "qryScoring", "GID < " & rst("GID"))
returns 6 which is correct.
but when I add the second criteria I get PreviousScore = 0 and it should
be 2. I suspect the
Dsum is failing because my quotes placements are incorrect.
Thanks,
GAllen