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!

On 6 Oct 2006 09:30:20 -0700, "(E-Mail Removed)" <(E-Mail Removed)>
wrote:

>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!

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 Vinson wrote:
>
> 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]

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?

On 6 Oct 2006 16:36:15 -0700, "(E-Mail Removed)" <(E-Mail Removed)>
wrote:

>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?

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 Vinson wrote:
> 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]

Thank you!