Code deletes too much records

[JeroenMioch]

Guys i am puzzled ...



My form has a piece of code in it that deletes records older then two years :

Dim dteExpiry As Date
Dim strSQLDelete As String
dteExpiry = DateAdd("yyyy", -2, Date)
strSQLDelete = "DELETE from tblWaarschuwingen WHERE tblWaarschuwingen.datum2 <= #" & dteExpiry & "#;"
DoCmd.RunSQL strSQLDelete

But...

As it turns out it does not only delete records older then two years, but also records related with personell number to that record !!
Now i do relate records by personell number (its NOT the primairy key though) but in this case its not meant to do that !

Help !

[JeroenMioch]

Never mind i found the error.
It seems that i had a relationship defined that connected the records.
I deleted the relationship, now i only hope that other functions still work :P
But i guess ill find that out soon enough.

If anyone had an addition to the code that only deletes records older then two years (negating the relationship) that would be more then welcome.

[Rawb]

You can still have a relationship between the two Tables, just make sure that "Cascade Delete Related Records" isn't checked.