add and add new

[ralphus]

when a user wishes to create a new record it is sometimes helpfull for some items from the record their viewing to be autopopulated into the new record how is this possible?

 

[mp9]

Easiest way is to create default values on those form fields (Design View - Properties)... you can also do this on the underlying table.

Alternative method for more complex pre-populating is to use the form's OnCurrent event and check if the record displayed is a new record, then perform code, e.g.

Private Sub Form_Current()
    If Me.NewRecord Then
        'Code to populate here
    End If
End Sub

http://www22.brinkster.com/accessory/

 

[PaulF]

I'd use a new form that you'd load the data into, the form would be a Data Entry form so that it always opens to a new record, then I'd open this new form while the calling form is still open. I'd create a function that would set the values that I want and I'd call this function during the form's On Load Event as in this example that loads data from the calling form (frmEmps) and a subform (frmSubEmps) on the calling form.

Private Sub Form_Load()
Call fLoadValues
End Sub

Function fLoadValues()
If Me.NewRecord Then
Me.txtID = forms!frmEmps.txtEmployeeID
Me.txtName = forms!frmEmps.txtFirstName & " " & forms!frmEmps.txtLastName
Me.txtTitle = forms!frmEmps.Form!frmSubEmps!txtTitle
Me.txtDateHired = forms!frmEmps.Form!frmSubEmps!txtHireDate
Me.txtDateOfBirth = forms!frmEmps.Form!frmSubEmps!txtBirthDate
End If
End Function

PaulF