قاعدة بيانات لا تعمل على نظام 64 بت

[MOH_SHERIF]

السلام عليكم 

برجاء المساعدة فى قاعدة البيانات المرفقة التى كنت اعمل بها عندما كان الجهاز على نظام 32 بت ولكن عندما اصبح 64 بت اصبحت لا تعمل وتخبرني قاعدة البيانات فى بداية التشغيل انها لا تعمل على نظام 64 بت ... برجاء المساعدة 

SAMEH.zip

[ابوآمنة]

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

كي تعمل قاعدة البيانات على النسختين يجب وضع كلمة PtrSafe قبل Function  كما هو موضح في الكود التالي :

 

#If VBA7 Then
'نسخة 64
Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

#Else
'نسخة 32
Public Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If

بالمرفق الملف بعد التعديل

SAMEH2.rar