I have the tables dates and daysofweek. there is a rel. btwn dates.week and daysofweek.monday with ref int. enforced.
when I create new record and add a date in dates.week via the form with a daysofweek subform it creates a corresponding record in daysofweek as you would expect. However, when I do it in code using addnew it creates new record in dates but not in daysofweek . Here is my code

Dim db As DAO.Database
Dim rsDOW As DAO.Recordset
Dim dtSelweek As Date
Dim rsDates As DAO.Recordset
Set db = CurrentDb
Set rsDOW = db.OpenRecordset("select * from daysofweek", dbOpenDynaset)

Set rsDates = db.OpenRecordset("SELECT * from dates", dbOpenDynaset)

rsDOW.FindFirst "monday = #" & Me.selweek & "#"

If rsDOW.NoMatch Then
With rsDates
.AddNew
!Week = Me.selweek
.Update
.Bookmark = .LastModified
End With

Else
DoCmd.Beep
MsgBox "whoo hoo"
Thanks for any advice
Raif