setting up a form for duplicating records

[phineas629]

I have a form with old records. I want to be able to duplicate records but I don't want to edit old records. I used the wizard to add a "duplicate record" button but it doesn't function because I set my data property sheet to NO for "allow edits".



Basically, I want a form to copy records and add it to a table. However, the form is not for editing old records. Any ideas?


Thanks in advance

[Toyman]

I have a form with old records. I want to be able to duplicate records but I don't want to edit old records. I used the wizard to add a "duplicate record" button but it doesn't function because I set my data property sheet to NO for "allow edits".

Basically, I want a form to copy records and add it to a table. However, the form is not for editing old records. Any ideas?


Thanks in advance

Are you saying that you want to be able to copy old records from a table and paste it to another table?

[phineas629]

I'm probably not being clear enough about my situation. For my tblCLAIM, I have 3 forms: one for adding a new claim, one to edit old claims, and one form to copy old claim to make a new claim.

The reason I copy old claims to make new claims is that often times the charges stay the same everyday but the dates changed.


i.e. There's a scheduled charge for Anthony which is 2 units a day for the whole year. I had to enter the same charge for everyday for the year.


Doesn't sound like much until you're doing it for 50 people. Everyday I put in the same charges for each of my 50 clients but I just change the date. There's got to be an easy solution.


Thanks again

[phineas629]

Basically, I want to automate my data since it repeats everyday for most of the whole year. I might have to do maybe 1 edit for each clients for the whole year.

[Toyman]

Basically, I want to automate my data since it repeats everyday for most of the whole year. I might have to do maybe 1 edit for each clients for the whole year.

In your form containing the old records, put this code behind the button to duplicate the records.

Dim Mysql as string
Dim sVal1 as string
Dim sVal2 as string 'create one of these for each field in your form

'assign the value from the form field to the veriables

sVal1 = Me.YourFirstFieldName
sVal2 = Me.YourSecondFieldName 'etc

'create a append sql based on the veriables above
Mysql = "INSERT INTO YourTableName ( FirstFieldName, SecondFieldName)
SELECT '" & sVal1 & "' AS sField1, '" & sVal2 & AS sField2"

'run your append sql
DoCmd.Setwarnings False 'turns off warning prompts
Docmd.RunSQL Mysql 'run your append sql
DoCmd.Setwarnings True 'turn the warning prompts back on