هل يمكن التعرف على مسار الملف من خلال الكود

بعد إذن أستاذنا أبو هاجر

بالنسبة للسؤال الثاني

الدالة التالية ترجع مسار قاعدة البيانات الحالية

Function fCurrentDBDir() As String



Dim strDBPath As String

Dim strDBFile As String

    strDBPath = CurrentDb.Name

    strDBFile = Dir(strDBPath)

    fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)

    

End Function

ولوضع نتيجة هذه الدالة في متغير اسمه مثلا apath كل ما عليك أن تكتبه هو

Dim apath As String

apath = fCurrentDBDir

أخي الكريم حارث شكراً لك وكفاك الله شر ما تحذر

أخي الكريم حسين

بالنسبة للسؤال الأول نعم يمكن ذلك من خلال تنفيذ استعلام حذف

عندما تفتح شاشة تصميم الاستعلام اختر قائمة استعلام ثم اجعل نوع الاستعلام استعلام حذف وحدد شروط السجلات التي تريد حذفها أو اترك حقل الشروط فارغاً لحذف جميع السجلات

تحياتي

أخوك / أبو هاجر

الله يبارك فيكم جميعا وسوف أقوم بالتجربة

الأخ الكريم / أبو هاجر

انك لم تذكر كيف تخصص زر أمر لتنفيذ إستعلام الحذف هذا - أرجو توضيحه.

الأخ الفاضل / حارث

جزاك الله كل الخير على المعونة.

السلام عليكم

أمر تنفيذ الاستعلام كالتالي

docmd.openquery "اسم الاستعلام"

تحياتي

أعتقد أن أفضل أمر لمعرفة مسار قاعدة البيانات الحالية هو

Application.CurrentProject.Path

بدلا من الأسطر الكثيرة

تحياتي