تضارب اكواد الوحدات النمطية يعرقل فتح النماذج

[حمدى الظابط]

السلام عليكم وكل عام وحضرتكم بخير
مرفق عدد 2 نموذج وعدد 3 وحدات نمطية النموذج الاول للاستاذ الجليل ابو خليل وهو ( frm1 ) لاستدعاء الصور من الجهاز واسم الوحدة FileOpen
والنموذج الثانى هو (فتج الملفات) لاستدعاء الملفات من الجهاز وفتحها من قاعدة البيانات واسم الوحدة  OpenFile
كلا منهم يفتح بدون مشاكل ولكن بدون وجود الاخر وعند وضعهم سويا فى قاعدة البيانات الاكواد تتعارض مع بعضها ولا تفتح النماذج
حاولت دمج الوحدات فى وحدة نمطية واحدة ولكن فشلت
ارجو من حضارتكم المساعدة ولكم كل الشكر والتقدير

الوحدة النمطية.rar

[أمير2008]

احذف الوحدة النمطية openfile

افتح الوحدة النمطية fileOpen وغير الأسطر :

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
  "GetOpenFileNameA" (ofn As OpenFileName) As Boolean

Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
  "GetSaveFileNameA" (ofn As OpenFileName) As Boolean

إلى :

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
  "GetOpenFileNameA" (ofn As OpenFileName) As Boolean

Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
  "GetSaveFileNameA" (ofn As OpenFileName) As Boolean

وجرب

[حمدى الظابط]

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