well, when you find it, here's some sample code I wrote once as an e.g. -
Code:
Private Sub cmdfill_Click()
On Error Resume Next
Dim c As Control
Dim rs As Recordset
Set rs = Me.RecordsetClone
Me.Painting = False
rs.FindFirst "[orderid] = " & Me.orderid
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
For Each c In Me.Controls
If Not TypeOf c Is CheckBox Then
If Not TypeOf c Is Label Then
If Not TypeOf c Is CommandButton Then
If Me.Controls("chk" & c.Name) = -1 Then
Debug.Print c.Name
c = rs(c.ControlSource)
End If
End If
End If
End If
Next c
Me.Painting = True
rs.Close
Set rs = Nothing
End Sub
what that does is use a clone of the form's recordset, navigates to the record that's showing on the form using the orderid field, and creates a new records with all the values of that old record. So basically copies it. The big block just loops checkboxes that are named in a patternized fashion to make the example easier. If a field is checked, it's copied. That's not needed for a copy function.