Too few parameters. Expected 1

[primagic]

Anyone know why I am getting too few parameters error on the following code. I am trying to find the first record (in a query) where a field = 'free' and display it.

Dim db As Database
Dim rst As DAO.Recordset
Dim strFound As String, strCriteria As String
Set db = CurrentDb
Set rst = db.OpenRecordset("NextTaskList")
strCriteria = "TempAdviserLock = 'Free'"
rst.FindFirst strCriteria
strFound = rst.Bookmark
rst.Close
[code]

 

[TheAceMan1]

How are ya primagic . . .

Try the following instead:

[blue]   Dim db As [purple][b]DAO[/b][/purple].Database, rst As DAO.Recordset
   Dim strFound As String, strCriteria As String
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset("NextTaskList", [purple][b]dbOpenDynaset[/b][/purple])
   strCriteria = "[TempAdviserLock] = 'Free'"
   rst.FindFirst strCriteria
   
   [purple][b]If rst.NoMatch Then[/b][/purple]
      MsgBox "Record Not Found!"
   Else
      strFound = rst.Bookmark
   End If
   
   [purple][b]Set rst = Nothing
   Set db = Nothing[/b][/purple][/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[danvlas]

I'd check the real name of the column TempAdviserLock in NextTaskList.



Daniel Vlas
Systems Consultant