ما هو الخطأ في كود ادراج صورة في النموذج المرفق

[أيمن عبادي]

اخواني 

السلام عليكم

ما هو الخطأ ي كود ادراج صورة في النموذج ،، هل في الوحدة النمطية أي خطأ

وشكراDatabase1.accdb

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

كان الخطأ هنا بعد امر Declare

 

 

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

 

Database1.rar

[أيمن عبادي]

الله يبارك فيك أخي ..

ولكن .. لا بد أن اضع كلمة ptrsafe بعد كلمة declare  لأني اعمل على اصدار اوفيس 2013 بنسخة 64 بت

لكن الكود الذي ارفته حضرتك لا يعمل على اصدار 64 بت ؟

هل من حل ؟

[AlwaZeeR]

ما عندي اوفيس 64

عموماً جرب المرفق ووافني بالنتيجة

::

 

 

 

 

Database11.rar

[أيمن عبادي]

بارك الله فيك اخي

واتعبتك معاي

لكن اخي لم يتغير شي ويعطيني رسالة الخطأ المرفقة

تقبل تحياتي

 

[nogom]

23 ساعات مضت, أيمن عبادي said:

ارك الله فيك اخي

واتعبتك معاي

لكن اخي لم يتغير شي ويعطيني رسالة الخطأ المرفقة

تقبل تحياتي

 

السلام عليكم يا اخي 

ضيف كلمة PtrSafe  بعد كلمة Declare  وقبل كلمة Function وان شاء الله رح تشتغل