Too few parameters. Expected 1.

[darinmc]

Hi
I have this code which works perfectly if I manually type a number in
e.g. if VarReg = 2 and i type this instead of varReg it works
ELSE i get the error... have looked at similar errors and tried a few things BUT STILL GIVING ME TROUBLE....

Dim VarReg as Integer

VarReg = [Forms]![frmPassword]![tReg]
Set rst2 = dbs.OpenRecordset("SELECT tblDiary.DiaryID, tblDiary.RegNo, tblDiary.ReadDiary, tblDiary.MsgTo FROM tblDiary WHERE (((tblDiary.RegNo) = [Forms]![frmPassword]![tReg]) And ((tblDiary.ReadDiary) = 0)) ORDER BY tblDiary.MsgTo")

If rst2.RecordCount > 0 Then
MsgBox "you have mail"
End If

Could someone PLEASE please help...
ALSO, in the msgbox,
Instead of just saying you have mail, is there a way to show how many records were counted???

Thx
Darin

 

[darinmc]

Sorry, in the code i have place the variable VarReg, still same error...

[Forms]![frmPassword]![tReg]

thx
Darin

 

[PHV]

...
Set rst2 = dbs.OpenRecordset("SELECT DiaryID, RegNo, ReadDiary, MsgTo FROM tblDiary" _
 & " WHERE RegNo=" & VarReg & " AND ReadDiary=0 ORDER BY MsgTo")
...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[darinmc]

thanks
That worked perfectly...
I also got it to show on the msgbox

msgbox "you have " & VarRecCount & " Message(s)"

Thx
Darin