Run time error help 3201

[Steven19]

I have a Form: KYCMenu (Junction Table)


KYCSegmentKey (Primary Key)
DDKey (Foreign Key)
DateKYCCommenced (Short Date)

I have a command Button that will Populate DateKYCCommenced = Now() (adds to a blank table)

I then Want to auto populate todays date into a sub table tblKYCBackground
KYCKey(Primary Key)
DDKey(Foreign Key)
BGDateStarted

The code I have is as below, but it stops at rs.update

Error code: You cannot add or change a record because a related record is required in the table KYC.

What am I missing to allow this to run smoothly on one button. Me.DateKYCCommenced = Now() adds a date, and the blank table, but stops.

Private Sub BtnStartKYC_Click()
Me.DateKYCCommenced = Now()


Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblKYCBackground")
rs.AddNew
rs!DDKey = Me.KYCSegmentKey
rs!BGDateStarted = Now()
rs.Update
End Sub

[Micron]

You are trying to add a child record when there is no parent record thus the error. I cannot tell from that which is which or even if you've identified the parent table or field. If the parent has something to do with DateKYCCommenced then you have begun a record but haven't saved it before trying to append the child via the recordset. You'll have to save the record first. If Me.Dirty Then Me.Dirty = False might fix the problem if I'm on the right track.

[Steven19]

You are trying to add a child record when there is no parent record thus the error. I cannot tell from that which is which or even if you've identified the parent table or field. If the parent has something to do with DateKYCCommenced then you have begun a record but haven't saved it before trying to append the child via the recordset. You'll have to save the record first. If Me.Dirty Then Me.Dirty = False might fix the problem if I'm on the right track.

This fixed the issue, thank you. So I am using your suggestion moving forward.
I was thinking DoCmd.Save - but this didn't feel right.

Regards