raziel3
Registered User.
- Local time
- Today, 02:00
- Joined
- Oct 5, 2017
- Messages
- 275
I'm now trying to learn Recordsets so bear with me.
The Filtered query has 3 records.
Can someone please show me where I'm going wrong?
Code:
Dim db As DAO.Database
Dim PrimaryTRS As DAO.Recordset
Dim ItemsRS As DAO.Recordset
Dim NewItemsRS As DAO.Recordset
Dim ItemsSql As String
Set db = CurrentDb
Set PrimaryTRS = db.OpenRecordset("tblItem", dbOpenDynaset)
ItemsSql = "SELECT Items.PIN, Items.AVGCOST, Items.LASTCOST, Items.ITEMWGHT, tblITEM.PRICEID " & _
"FROM Items LEFT JOIN tblITEM ON Items.PIN = tblITEM.PRICEID"
Set ItemsRS = db.OpenRecordset(ItemsSql, dbOpenSnapshot)
PrimaryTRS.MoveLast
Debug.Print PrimaryTRS.RecordCount '182 Records OK
ItemsRS.MoveLast
Debug.Print .RecordCount '181 Records OK
ItemsRS.Filter = IsNull(ItemsRS.Fields("PRICEID").Value)
Set NewItemsRS = ItemsRS.OpenRecordset
NewItemsRS.MoveLast
Debug.Print NewItemsRS.RecordCount 'ERROR "NO CURRENT RECORD"
ItemsRS.Close
PrimaryTRS.Close
NewItemsRS.Close
End Sub
The Filtered query has 3 records.
Can someone please show me where I'm going wrong?