The code creating the recordset that is commented out below works on all my user's machines except two. What is especially irritating is that this code did work on one of their machine for several months. In trying to fix a different problem he was having with the app MS office XP was reloaded twice just to make sure everything was loaded. Various internals were also looked at. We know its the machine problem because the user can login onto any other machine and the app works fine.
When reading through posted issues the comment was made about specifying DAO so I tried that. No luck. My user community uses both MS 2000 and XP so apps are built in 2000, then tested to make sure they work in XP. I've never seen this problem before.
I use recordset retrieval many, many times throughout many apps so resolving this issue carries quite a bit of weight. Any ideas how to fix this? linda
Dim db As DAO.Database
Dim rstckout As DAO.Recordset
Set db = CurrentDb()
Set rstckout = db.OpenRecordset("tblEmpWeekEnding")
Set db = CurrentDb()
Set rstckout = db.OpenRecordset("tblEmpWeekEnding")
' strSQLout = "SELECT * FROM [tblEmpWeekEnding];"
' Set rstckout = CurrentDb.OpenRecordset(strSQLout)
With rstckout
.AddNew
.Fields("Person_ID") = Me.Person_IDtemp
.Update
End With
rstckout.Close
--
Message posted via http://www.accessmonster.com