طلب مساعدة : ابعث عن كود تأكد من وجود ملف الأرتباط

يالكرام :rolleyes:

- ليش ما تفتح البرنامج أول ثم تقوم بالارتباط بالملف مع أمكانية البحث عن الملف؟! أليس هذا هو الأفضل

- ليش ماتترك الخيار للمستخدم حتى تعطيه مرونة أكثر

ماهو رايك.. هل ستأخد باقتراحي؟..

حاول التالي

dim rst as recordset

Set rst = CurrentDb.OpenRecordset("Your Table Here", dbOpenDynaset, dbSeeChanges)

rst.Requery

If rst.RecordCount > 0 Then

exit sub

else

docmd.close acform, me.name

End If

القحم كتب:

- ليش ما تفتح البرنامج أول ثم تقوم بالارتباط بالملف مع أمكانية البحث عن الملف؟! أليس هذا هو الأفضل

- ليش ماتترك الخيار للمستخدم حتى تعطيه مرونة أكثر

ماهو رايك.. هل ستأخد باقتراحي؟..

أخي الكريم لا يمكن أن أجعل الأمر اختياري

فالبرنامج يقوم على حسابات معقده وبناء على هذا الملف يقوم بعمل خمسة إستعلامات وانشاء عشرة جداول

وكل هذا بناء على الملف النصي

المشكله لو احد شخل البرنامج والملف النصي مش موجود رايح يعلق البرنامج وتحتاج لتعديله برمجيا

وانا احتاج انه يشيك على الملف قبل أن يبدأ العمل

karramli كتب:

حاول التالي

dim rst as recordset

Set rst = CurrentDb.OpenRecordset("Your Table Here", dbOpenDynaset, dbSeeChanges)

rst.Requery

If rst.RecordCount > 0 Then

exit sub

else

docmd.close acform, me.name

End If

سيدي الفاضل

أعطيتني كود بدون اي توضيح على العموم انا جربت الكود ولم ينجع

أخي الكريم انا احتاج لكود يقوم بالتالي

الذهاب للمسار الفلاني والتأكد هل الملف النصي موجود او لا

ولكم جزيل الشكر

أرفق مثالك وليكن بتنسيق 2003

ارفق لكم مثال وبتنسيق 2003

ارجو وضع المجلد في D

ثم تشغيل ملف الأكسس ثم اغلقه

وغير اسم الملف النصي وشغل ملف الاكسس مرة اخرى

رايح تظهر لك رسالة خطأ لانه لم يجد الملف النصي بسبب تغييرك اسمه

المطلوب أنه يقوم بالتشيك وفي حال لم يجد الملف ينشأ ملف بنفس الأسم فارغ

وبالتالي البرنامج رايح يشتغل ولكن بدون بيانات

abcde.rar

أرجو أن يكون هذا الحل المتواضع مناسبا

abcde.zip

مناسب ونص

تسلم ايدك يالغالي وبارك الله فيه

وسأقوم بتجربته بشكل أوسع

اركرر شكري لك