Copy record in to the same table

  • Thread starter Thread starter bermetj
  • Start date Start date
B

bermetj

I have a form that pulls a list of Investigators from a Table (PI
Table), from which you can select a record and by clicking on (Edit
Record) button open another form and see details for this record. I am
trying to ease data entry and would like to make a (Copy) button that
would pull the selected record from (PI Table) and add it to the same
table as a new record leaving some fields blank. Thank you!
 
I have a form that pulls a list of Investigators from a Table (PI
Table), from which you can select a record and by clicking on (Edit
Record) button open another form and see details for this record. I am
trying to ease data entry and would like to make a (Copy) button that
would pull the selected record from (PI Table) and add it to the same
table as a new record leaving some fields blank. Thank you!
Click to expand...

Have the button run an Append query from the table to itself, using
the primary key field from the form as a criterion.

John W. Vinson[MVP]
 
John said:
Have the button run an Append query from the table to itself, using
the primary key field from the form as a criterion.

John W. Vinson[MVP]
Click to expand...

It gives me a validation rule error. Some fileds that I would like to
leave blank while copying are required. Is there a way to copy the
selected record into a memory, populate the fields into the form and
then save it as a new record?
 
It gives me a validation rule error. Some fileds that I would like to
leave blank while copying are required. Is there a way to copy the
selected record into a memory, populate the fields into the form and
then save it as a new record?
Click to expand...

Sure, bit it's a bit more work. You'll need to copy each control's
value into a variable, move to the new record, and copy back into the
controls:

Dim vThis As Variant, vThat As Variant, vTheOther As Variant
vThis = Me!txtThis
vThat = Me!txtThat
vTheOther = Me!cboTheOther
DoCmd.GoToRecord acForm, Me.Name, acNewRecord
Me!txtThis = vThis
Me!txtThat = vThat
Me!cboTheOther = vTheOther


John W. Vinson[MVP]
 
John said:
Sure, bit it's a bit more work. You'll need to copy each control's
value into a variable, move to the new record, and copy back into the
controls:

Dim vThis As Variant, vThat As Variant, vTheOther As Variant
vThis = Me!txtThis
vThat = Me!txtThat
vTheOther = Me!cboTheOther
DoCmd.GoToRecord acForm, Me.Name, acNewRecord
Me!txtThis = vThis
Me!txtThat = vThat
Me!cboTheOther = vTheOther


John W. Vinson[MVP]
Click to expand...

Thank you!
 
Back
Top