Hello,

I'm trying to use the Bookmark and RecordsetClone code from pages 194-195.
I am receiving an error Me.PCKey Method or data Member not found
What am I doing incorrectly? I have tried this in the After Update event and the On Click event of a Save Command Button

Thanks,

Here is my Code

On Error GoTo Error_Handler
Dim db As Database
Dim rstPC As DAO.rstordset
Dim rstSpecFrom As DAO.rstordset
Dim rstSpecTo As DAO.Recordset
Dim lngPCKey As Long

Set db = CurrentDb

If Not IsNull(Me.PCKey) Then

Set rstPC = db.OpenRecordset("tblPC", dbOpenDynaset)

' copy the parent record and remember its key
rstPC.AddNew
rstPC!PCName = "Copy of " & Me!PCName
rstPC.Update
rstPC.Bookmark = rstPC.LastModified
lngPCKey = rstPC!PCKey

rstPC.Close
Set rstPC = Nothing

Set rstSpecTo = db.Openrstordset("tblSpecification", dbOpenDynaset)
Set rstSpecFrom = db.OpenRecordset _
("Select * From tblSpecification Where PCKey = " & Me!PCKey)

Do While Not rstSpecFrom.EOF

rstSpecTo.AddNew
rstSpecTo!PCKey = lngPCKey 'set to the new parent key
rstSpecTo!SpecificationName = rstSpecFrom!SpecificationName
rstSpecTo!SpecificationQty = rstSpecFrom!SpecificationQty
rstSpecTo.Update

rstSpecFrom.MoveNext
Loop

rstSpecTo.Close
Set rstSpecTo = Nothing
rstSpecFrom.Close
Set rstSpecFrom = Nothing

Me.Requery

'reposition form to new record
Set rstPC = Me.RecordsetClone
rstPC.FindFirst "PCKey = " & lngPCKey
If Not rstPC.EOF Then
Me.Bookmark = rstPC.Bookmark
End If
rstPC.Close
Set rstPC = Nothing

End If


Exit_Procedure:
On Error Resume Next
Set db = Nothing
Exit Sub

Error_Handler:
DisplayUnexpectedError Err.Number, Err.Description
Resume Exit_Procedure
Resume

Hi,

The form needs to have a control named PCKey that is bound to the primary key field of the tblPC that you've created.

The purpose of this code is to copy a PC record and its Specification records, so you should have a Copy button on the form and place the code in the OnClick event.

HTH.

Malc.

I appreciate the info. That fixes the PCKey issue. I don't think I have a good understanding of what this is doing. Now I get an error "cannot find input table tblPC. Am I supposed to use a direct reference to the actual table name. I tried that and now get an error cannot find PCName

Hi again,

Your table must have a field called PCName. If I understand correctly your table is not called tblPC but something else?

You'll also need another table called tblSpecification with 3 fields, PCKey, SpecificationName and SpecificationQty. Ensure the two tables are populated with data of at least one PC and its specification records.

HTH.

Malc.

I really appreciate your response. That clears up the concept. I will experiment with that. I had gone ahead and used macros to accomplish what I needed on my forms using 2 macros. One using requery and a variable for the OldIDValue. Then a FindIDValue macro to find the old ID value. This seems to work OK.
Thanks again!

Hi,

Glad you got your form working as required, but macros make me shudder! Give me VBA any day.

Malc.