''Tables
For idx = db.TableDefs.Count - 1 To 0 Step -1
strName = db.TableDefs(idx).Name
If Left(strName, 4) <> "msys" Then
db.TableDefs.Delete strName
Else
Debug.Print strName
End If
Next idx
أساتذتنا الكرام
السلام عليكم ....وبعد:
هذا الكود جزء من دالة تقوم بحذف كل محتويات قاعدة البيانات ... وهذا الجزءالخاص بالجداول... لنفترض أن لدي جدولين : مثلا احدهما باسم 111 والثاني باسم 222 هل يمكن نعمل لهما استناء بحيث لا يتم حذفهما وكيف نعدل على الكود إن كان ذلك ممكنا ؟
إن أردتم إرفاق الدالة كاملة سأرفقها وهي موجودة وأخذتها من المنتدى.
جزاكم الله خير