مشكلة تظهر عند نقل قاعدة البيانات

[نجم30]

عند نقل قاعدة البانات من جهاز الى اخر تظهر هذه المشكلة ؟ ماهو الحل

"

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "USER32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
 

[osama ababneh]

سبب هذة المشكلة ان الكمبيوتر الثاني يستخدم نسخة اوفيس اصدار 64 بت وعليك استخدام  PtrSafe  قبل كلمة Function لحل المشكلة وعلية يصبح الكود المعدل كما يلي

Private Declare PtrSafe Function apiShowWindow Lib "USER32" _

مع تحياتي

[الشاعر]

بالخطأ

تم تعديل نوفمبر 20, 2016 بواسطه الشاعر

[نجم30]

بارك الله فيك اخي (osama ababneh)

انحلت المشكلة