تنفيذ استعلام حذف على ملف اكسس حسب مسار محدد

أخي الكريم

حسب ما فهمت ... أن قاعدة البيانات التي تحتوي على استعلام الحذف موجودة في مكان آخر مختلف عن مكان قاعدة البيانات التي بها زر الحذف ... إذا كان فهمي صحيح فهذا الكود ممكن أن يحل المشكلة ... بعد ضبط استعلام الحذف على المعايير المطلوبة

Private Sub أمر0_Click()
Const FullFileName As String = "C:\NS\db.mdb"
Const QueryName As String = "qary1"
Dim aDB As Database
Set aDB = OpenDatabase(FullFileName)
aDB.QueryDefs(QueryName).Execute
aDB.Close
End Sub