لتشغيل البرنامج ، يجب وجود ملف AMIN.xls

[AMINYOUSIF]

الاساتذة الافاضل 

استكمال ما بدأت 

اذا تم استخدام البرنامج بدون ملف الاكسيل AMIN 

هل هناك امكانية خروج رسالة تفيد عدم العثور على ملف الاكسيل AMIN و عدم تفعيل اى زر فى البرنامج 

مع شكرى و احترامى 

 

 

[jjafferr]

وعليكم السلام 🙂 

 

يمكنك جعل البرنامج يتأكد من وجود هذا الملف ، عند فتح اول نموذج ، وعلى حدث "التحميل" او "الفتح" :

if Dir("D:\Test\AMIN.xls") ="" then
  msgbox "لم يتم الحصول على الملف المطلوب"
  exit sub  'اخرج من البرنامج
endif

 

جعفر

[AMINYOUSIF]

الاخ / جعفر 

الشكر مستحق  على السرعة و العناية بالرد و شرح التفاصيل مهما كانت صغيرة او كبير 

+1

[AMINYOUSIF]

الاخ / جعفر 

تم نسخ الكود حرفيا على النموذج الافتتاحى عند التحميل  ,و بالفعل نجح بدون مشاكل 

و لكن عند تغير اسم ملف amin.xls    الى اسم اخر  xxx.xls  ظهر debug 

المثال مرفق 

اذا امكن و لك الشكر و التقدير 

 

TEST.rar

[أ / محمد صالح]

بعد ملاحظة المرفق تبين وجود جدول مرتبط بشيت1 في ملف الإكسل

ولذا يجب عدم فتح النموذج ولا البرنامج ككل إذا لم يكن الملف موجودا في المسار المحدد

لذلك وبعد إذن أخي جعفر يجب استبدال 

exit sub

إلى

DoCmd.Quit

للخروج النهائي من البرنامج

[AMINYOUSIF]

الاخ محمد صالح 

شكرا