I need to duplicate records

[apartain]

I want to offer the option to duplicate a record in order to minimize input time if much or all of the record's information is the same, and allow the user to then go directly to the new record to make any slight modifications if there are any.

How do I do this?

Example:

Record 1:
Employee: 900
Date: 11/20/06
WO: 123456789
Scope: Automation
Start: 7:00 am
End: 6:30 pm
TtlTime: 11.5
RT: 11.5
OT: 0
ECO: 0
HOL: 0

Then the record opens and the employee changes the employee number to 901.

Thanks for any help offered!

[missinglinq]

The Command Button Wizard offers the command "Duplicate a Record" but the problem is if any field is a Primary Key or otherwise doesn't allow Duplicates this throws an error. Below is a generic version of code that I use to accomplish this task. Behind a "Copy" command button, you basically copy the data from the current record to variables, go to a new record, then plug those variables into the new record.

 Private Sub CopyYourRecord_Click()
   'Copy fields from original record to variables
       NewField1 = Me.YourField1
       NewField2 = Me.YourField2
       NewField3 = Me.YourField3
 
       'Go to a new record
       DoCmd.GoToRecord , , acNewRec
 
   'Plug in old values into new record
   Me.YourField1.Value = NewField1
      Me.YourField2.Value = NewField2
      Me.YourField3.Value = NewField3
 
      'Now set the field your user wants to change to blanks
      '(If any of these values would be numbers, use 0 [zero] instead of  "")  
      Me.YourField4.Value = ""
      Me.YourField5.Value = ""
      Me.YourField6.Value = ""
 
     'If any of these fields to be changed is marked as Required in their    
     'table's   Design Grid, leaving them blank will throw an error, so you'll
     'need to change these to something like this: 
     '(Same here, use 0 [zero] instead of  "" for numbers) 
   Me.YourField4.Value = "Enter New Value for YourField4 "
     Me.YourField5.Value = "Enter New Value for YourField5 "
     Me.YourField6.Value = "Enter New Value for YourField6 "
End Sub
 

Now just follow the example and plug in your own control names.

[NeoPa]

NewField1; NewField2; & NewField3 (your temporary variables) will need to be 'Dim'ed first though.
After the first line do :

Private Sub CopyYourRecord_Click()
    Dim NewField1 As Variant, NewField2 As Variant, NewField3 As Variant
...

[missinglinq]

Only if you use Option Explicit, NeoPa. This code came from a very small form where I hadn't done that, although I ususally do. Runs and compiles just fine.

[NeoPa]

Only if you use Option Explicit, NeoPa. This code came from a very small form where I hadn't done that, although I ususally do. Runs and compiles just fine.

I wouldn't argue with that, and I'm certainly not trying to find fault or criticize your contribution MissingLinq. It would be very bad manners for me to do that to anyone contributing answers to these forums. In your case it would also be very stupid (I hope I'm never that).
That said, I would always recommend (I'm sure you would too from what you say) that Option Explicit is used and that, even where it is absent, code should be written consistently with that option.