best way to enter multiple records with similar data?

[bond19]

Hi, i am new to setting up databases and am trying to figure out the easiest way to enter multiple records that have 1 or more fields with the same data entry.



i tried setting up my form so that the next form would pop up with the previous data already listed, but it didn't work...
i found a tip that said hitting ctrl would fill in the last entered entry, that did not work.

surely there must be an easier way than hand entering each record when there are a batch with similar data?

thanks in advance. and if you could dumb things down a little, that would be great.
thanks.

[Don Webb]

I am still learning as well. I am building a museum database and had the same problem. I found out if you go to the table, you can copy and paste multiple entries. I add my records and skip the fields where the entry is going to be the same over and over. In my example, I will use the field name of origin. That is where we got the item. I will type Gift into the first five records. I then click on the first gift and then press and hold shift while clicking on the 5th record. This high lights all five of the rows. Then a simple crtl-c to copy the five records. . I then click on the next blank row and count down 5 rows. Shift hold and click the 5th blank and press crtl-v to paste. I then copy 10 rows and paste 10 and so on. Not a perfect answer but it works better than noe if nobody else has a better idea.

[alansidman]

Here is some code that I have used in the past. It takes the values in four fields in the current record on a form that need to be put into the next record. It is attached to a command button on the current record.

You should be able to adapt this for your particular fields, ie names and the number of fields you want to have replicated to the next record.

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 = userid.Value
psource = sourceid.Value
pclient = Project_Name.Value
ptax = taxid.Value
RunCommand acCmdRecordsGoToNew
userid.Value = pown
sourceid.Value = psource
Project_Name.Value = pclient
taxid.Value = ptax
   
Exit_copyrecordbutton_Click:
    Exit Sub
Err_copyrecordbutton_Click:
    MsgBox Err.Description
    Resume Exit_copyrecordbutton_Click
    
End Sub