Recordset FindFirst problems Err:3070

[CabbyL]

Could someone look over my code. Err:3070 - states "...does not recognize rsItems.Item_ID". I have also used rsItems!Item_ID with similar results. Err:3070 - states "...does not recognize rsItems!Item_ID".



Private Sub cboStore_AfterUpdate()
On Error GoTo Err_LogError
Dim db As Database
Dim rsStoreSales As DAO.Recordset
Dim rsItems As DAO.Recordset
Dim sqlStoreSales As String
Dim sqlItems As String

sqlStoreSales = "SELECT qryOnSale.OnSale_ID, qryOnSale.WE_Special, qryOnSale.OnSale, qryOnSale.ItemID, qryOnSale.StoreID " & _
"FROM qryOnSale WHERE (qryOnSale.StoreID) = " & Me!cboStore
sqlItems = "SELECT qryItems.Item_ID, qryItems.Item, qryItems.DeptID, qryItems.Need, qryItems.WE_Special, qryItems.OnSale, " & _
"qryItems.Keyword, qryItems.Alert_URL FROM qryItems"



'My own standard loop looks something like this:
Set db = CurrentDb
Set rsStoreSales = db.OpenRecordset(sqlStoreSales, dbOpenDynaset)
Set rsItems = db.OpenRecordset(sqlItems, dbOpenDynaset)

'Check to see if the recordset actually contains rows
If Not (rsStoreSales.EOF And rsStoreSales.BOF) Then
rsStoreSales.MoveLast 'Unnecessary unless you want an accurate RecordCount
rsStoreSales.MoveFirst 'Unnecessary in this case, but still a good habit
gitest1 = rsStoreSales.RecordCount 'count is correct
Do Until rsStoreSales.EOF = True

rsItems.FindFirst "rsItems!Item_ID = " & rsStoreSales!ItemID

.....

[ssanfu]

Well, the obvious question is: "Does the query qryItems have a field 'Item_ID'"? Or is it "ItemID" (no underscore)?
Don't see anything overtly wrong.....

What is the SQL for the two queries "rsStoreSales" and "rsItems"?

Or you could post your dB for analysis.....



EDIT: Try

rsItems.FindFirst "Item_ID = " & rsStoreSales!ItemID

Inside the record set "rsItems" is (should be) a field named "Item_ID", not "rsItems!Item_ID".

[CabbyL]

That did the trick. Thank-you.

[ssanfu]

Glad to help..