[asto]

طبعا هذا مثال عن قاعدة بيانات اسمها DB1.MDB و فيه جدولين table و tablel 2

كود :

Set db = DBEngine.OpenDatabase(App.Path & "\DB1.MDB", False, False)
Set Rs2 = db.OpenRecordset("Select * From [table]", dbOpenDynaset)
Set Rs1 = db.OpenRecordset("Select * From [tablel 2]", dbOpenDynaset)


ضع هنا الشروط التي تريدها

و التي بتحققها تعمل حذف

يعني تقارن rs1 ,rs2  
اذا السجلان متماثلان يتم الحذف

و الا Rs2.AddNew
Rs2.Update
endif
       Rs1.MoveNext
    Loop