Too Few Parameters Expected

[vix666]

I currently have this code below which errors on the sql statement saying 'too few parameters expected 1', this should work as its only a simple query - im confused!

Any help would be much appreciated

Thanks in Advance

Vicky

Dim intRecordID As Integer
Dim db As Database
Dim rst As Recordset
Dim strSQL As String

intRecordID = Me.txt_recordid - 1

strSQL = "SELECT * FROM tbl_Availability_Target_Data " & _
"WHERE tbl_Availability_Target_Data.RecordID = intRecordID;"

Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

 

[MakeItSo]

Hi Vicky.

Since intRecordID is a variable, not a field, you must treat it differently:

strSQL = "SELECT * FROM tbl_Availability_Target_Data " & _
"WHERE RecordID = " & intRecordID & ";"

Hope this solves it.
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://www.andygalambos.de

 

[vix666]

Thanks very much, i had completely forgot about that, thats what happens when you do so many different kinds of work - you forget stuff!

Thanks again

Vicky