على اعتبار ان قاعدة الجداول ستكون منفصلة عن الواجهات
استخدم هذا الكود وسيفيدك كثيرا عندما تعمل شبكة داخلية ( مشاركة )
بحيث لو انك استخدمت البرنامج من جهاز اخر واردت اظهار مسار الملف سيحدده لك بالضبط
Me.pate = Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "" & [treaNo] & "")
ملاحظة الكود للاستاذ رمهان فقمت بالتعديل عليه حسب حاجتك
::بالتوفيق::
Datalink1-906.rar