Button to duplicate part of record

[jbickl]

Hello,



My database's users want to use a button to create a new record and copy fields from the current record to hold over to the new record. I know how to do this for an entire record, but the users don't need to copy the entire thing. They need to copy particular fields and then input new information into the other fields. Any ideas?

Thanks!

[aytee111]

1. Save current record (If Me.Dirty=True Then Me.Dirty=False)

2. Run an Append query (DoCmd.RunSQL) using the data on the form

3. Get the PK of the record just added (DLookup("Max(ID)"........)

4. Display this record

[alansidman]

I have done this for specific fields in a record. Here is an example of the code used.

Private Sub copyrecordbutton_Click()
On Error GoTo Err_copyrecordbutton_Click
Dim pown As Variant
Dim psource As Variant
Dim pclient As Variant
Dim ptax As Variant

pown = txtcurrent1.Value
psource = txtcurrent2.Value
pclient = txtcurrent3.Value
ptax = txtcurrent4.Value

RunCommand acCmdRecordsGoToNew

txtnew1.Value = pown
txt2new.Value = psource
txtnew3.Value = pclient
txtnew4.Value = ptax

   
Exit_copyrecordbutton_Click:
    Exit Sub

Err_copyrecordbutton_Click:
    MsgBox Err.Description
    Resume Exit_copyrecordbutton_Click
    
End Sub

You will have to substiture your own field names and define your variants as needed. The code stores the values of the first record in a variant and then opens a new record and places the stored values in the new record in the same fields. Of course you will have to make sure that the new field names are the same as the old field names. I didn't in this example just so you could follow the code.

Alan

[jbickl]

It works now. Thank you both for your help; it's much appreciated.