Private Sub cmdDelete_Click()
    'בדוגמה הזאת נניח שהשדה המקשר בין הטבלאות הוא מסוג שלם ארוך
    'ובטבלה הראשית קוראים לו
    'Field1
    'כמו כן בטבלה המשנית קוראים לו
    'Field2
    'אז הנה הקוד
    Dim lTemp As Long       'זה משתנה שישמור את הערך של השדה המקשר מהטבלה הראשית
    
    'דבר ראשון נשמור את הערך של השדה
    lTemp = Field1
    
    'עכשיו נמחק את הרשומות מהטבלה הראשית העונות לערך היחודי של
    'Field1
    CurrentDb.Execute "DELETE FROM Table1 WHERE Field1=" & lTemp
    
    'עכשיו למחוק מהטבלה המשנית
    'יש לזכור שבטבלה המשנית לשדה המקשר קוראים
    'Field2
    CurrentDb.Execute "DELETE FROM Table2 WHERE Field2=" & lTemp
End Sub

MsgBox "שלום " & Field1