Create a second record in a table for same FK

[liverbarry]

I'll try and explain!

first table is tDemographics
second table is tassessment

each person can have two or more assessments, so I have a one two many relationship with PersonID as PK.

On my summary form I can hit a command button to go to form "fassessment".
I want another command key (would be called something like 'new assessment for this person') to open fAssessment with a new record but with the person ID already attributed.

hope this makes sense!
hope someone can help!

many thanks

[missinglinq]

Pass the ID as the OpenArgs when opening the second form. In your calling form:

Private Sub NewAssessment_Click()
  DoCmd.OpenForm "fAssessment", , , , , , Me.PersonID    
End Sub
 

Then, in fAssessment:

Private Sub Form_Load()
  If Len(Nz(Me.OpenArgs, "")) > 0 Then
     'Move to a new record
    DoCmd.GoToRecord , , acNewRec
    'Plug the ID into the new record
    Me.PersonID = Me.OpenArgs
  End If
End Sub

Welcome to bytes!

Linq ;0)>

[NeoPa]

I think this is typically done with sub-forms.

Let me know if you're interested in going further and need more help.

[liverbarry]

Great - easy when you know how!!!
feel free to look out for might next newbie posting!!!

Pass the ID as the OpenArgs when opening the second form. In your calling form:

Private Sub NewAssessment_Click()
  DoCmd.OpenForm "fAssessment", , , , , , Me.PersonID    
End Sub
 

Then, in fAssessment:

Private Sub Form_Load()
  If Len(Nz(Me.OpenArgs, "")) > 0 Then
     'Move to a new record
    DoCmd.GoToRecord , , acNewRec
    'Plug the ID into the new record
    Me.PersonID = Me.OpenArgs
  End If
End Sub

Welcome to bytes!

Linq ;0)>

[liverbarry]

Hi Linq

thanks for that code, one other thing.

the form opens and the record is created, If for example I open this form by mistake how do I use a cmd button (ie cmdCancel) to close the form and cancel the record, if I close the the form the record remains.

hope you can help

Pass the ID as the OpenArgs when opening the second form. In your calling form:

Private Sub NewAssessment_Click()
  DoCmd.OpenForm "fAssessment", , , , , , Me.PersonID    
End Sub
 

Then, in fAssessment:

Private Sub Form_Load()
  If Len(Nz(Me.OpenArgs, "")) > 0 Then
     'Move to a new record
    DoCmd.GoToRecord , , acNewRec
    'Plug the ID into the new record
    Me.PersonID = Me.OpenArgs
  End If
End Sub

Welcome to bytes!

Linq ;0)>

[missinglinq]

Private Sub cmdCancel_Click()
 Me.Undo
 DoCmd.Close
End Sub

Linq ;0)>

[liverbarry]

Private Sub cmdCancel_Click()
 Me.Undo
 DoCmd.Close
End Sub

Linq ;0)>

Many Thanks it works great
barry