C
CJ
Hi Groupies:
I borrowed this code from a 2003 database and am trying to get it to work in
2007. I don't do code very well so I need some help.
Private Sub cmdDuplicate_Click()
Dim wsNewWO As Workspace, dbNewWO As Database, rsDupeWO As Recordset
Set wsNewWO = DBEngine.Workspaces(0)
Set dbNewWO = CurrentDb()
DoCmd.OpenQuery "qappTempDuplicate"
Set rsDupeWO = dbNewWO.OpenRecordset("tblTempDuplicate",
dbOpenDynaset)
rsDupeWO.Edit
WOSeq = fcnGetNextSequence
rsDupeWO.Close
End Sub
I get a break on "rsDupeWO.Edit" with the message Method or Data Member Not
Found.
I need to run the qappTempDuplicate query to hold a record of data.
Then I need a new WOSeq generated and have that number replace the existing
WOSeq in the record in the query.
I hope this makes sense.....
I borrowed this code from a 2003 database and am trying to get it to work in
2007. I don't do code very well so I need some help.
Private Sub cmdDuplicate_Click()
Dim wsNewWO As Workspace, dbNewWO As Database, rsDupeWO As Recordset
Set wsNewWO = DBEngine.Workspaces(0)
Set dbNewWO = CurrentDb()
DoCmd.OpenQuery "qappTempDuplicate"
Set rsDupeWO = dbNewWO.OpenRecordset("tblTempDuplicate",
dbOpenDynaset)
rsDupeWO.Edit
WOSeq = fcnGetNextSequence
rsDupeWO.Close
End Sub
I get a break on "rsDupeWO.Edit" with the message Method or Data Member Not
Found.
I need to run the qappTempDuplicate query to hold a record of data.
Then I need a new WOSeq generated and have that number replace the existing
WOSeq in the record in the query.
I hope this makes sense.....