مساعدة في نظام قواعد البيانات Access 2016 X64

[dragony2000]

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

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

اولا في بعض البرامج القديمة بنظام الاكسيس كنت اعمل على نظام 32 بت والان اردت تحميل اكسيس 2016 بنظام 64 بت وعندما اريد فتح اي ملف سابف يظهر لي خطأ في التشغيل فما هو حل تلك المشكلة مع العلم اني اريد ان اعمل على برنامج الاكسيس الجديد وهل يوجد فرق في التعامل بين النظامين بالنسبة لاكواد  VBA ام لا

ثانيا انا اعمل بكفاءه ببرمجة VBA في برنامج الاكسل وذلك لاعتماده على خلايا (اعمدة وصفوف) وليس حقول وسجلات مثل الاكسيس فهو بالنسبة لي سهل جدا ولكن كاستخدام الاكسل كنظام لادارة شئون الموظفين او الاجازات ليس فعالا ولا استطيع التعديل بسهوله حتى عملية الفتح صعبة جدا ولذلك اريد تحويل جميع الادوات الخاصة بي لنظام الاكسيس ولكن تواجهني مشكلة كبيرة في تعلم الاكسيس خاصة في تطويعه لعمل قاعدة بيانات للموظفين تشمل (الاجازات شاملة الرصيد وطريقة وضع العطل الرسمية واشياء تفصيلية اخرى وكذلك الاوفر تايم والتحضير وطريقة عمل الشفتات في حالة انه لدي نظام عمل صباحي ونظام عمل شفتات ..)

ثالثا عندي مشكلة في فهم وحفظ الاكواد البرمجية الطويلة الثابتة الخاصة بقواعد بيانات الاكسيس حتى بعد تعلمها وفهمها بعد فترة انسى ما قمت بعمله وانسى التركيبة البنائية للاكواد

فارجو مساعدتي في ان يقوم احد الزملاء بشرح اشياء كثيرة تساعدني في تعلم الاكسيس بطريقة تمكني من عمل هذا النظام وذلك لاني فشلت في التعلم وفهم هذه الاشياء من دروس الانترنت وسوف اريه ما قمت بعمله في الاكسل لكي اقوم بتحويله الى الاكسيس

ولكم جزيل الشكر في مساعدتي ..

 

[kanory]

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

حياك الله اخي @dragony2000 في منتدى الاكسس

اجابة سؤالك اولا هنا تجده

في ٢٠‏/١٠‏/٢٠١٥ at 00:13, jjafferr said:

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

 

هذا الموضوع اُثير اكثر من مرة في الآونة الاخيرة ، ورأيت من الافضل ان اضع مثال ليقتدي به الجميع 

وقبل ان نبدأ ، اود ان اشير الى انني اعمل على اكسس 32 بت ، ولا املك نسخة من اكسس 64 بت 

 

احب ان اشير الى الرابط الذي شرحت فيه ان مايكروسوفت توصي بتنصيب الاوفيس / اكسس 32 بت ، بغض النظر عن نوع الوندوز المنصّب على الكمبيوتر ، سواء كان 32 بت او 64 بت:

http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/

 

ولكن ، ماذا نفعل اذا عملنا برنامجنا على اكسس 32 بت ، واتضح ان الزبون عنده جهاز فيه اكسس 64 بت 

المثال التالي يشتغل على 32 بت و 64 بت ، ونستطيع ان نستفيد منه لعمل برنامجنا 

 

البرنامج المرفق ، بعد فك الضغط ، سيحتوي على 3 برامج:

.

هذا برنامج No_Password_BE.accdb ، وبه جدول واحد ، ولا يحتاج الى كلمة سر لفتحه:

.

هذا برنامج Password_is_jj_BE.accdb ، وبه جدول واحد ، وكلمة السر لفتحه هي jj:

.

البرنامج: JStreetAccessRelinker2.accdb من الرابط http://www.jstreettech.com/downloads.aspx ، وبه ماكرو ووحدات نمطية تعمل على 32 بت و 64 بت (فالفضل في هذا المثال يعود للبرنامج وليس لي ) ،

وقد قمت بإضافة نموذج لربطه مع احد برنامج الجداول اعلاه ، ومبدئيا فهو مرتبط مع البرنامج No_Password_BE.accdb ،

.

وعند فتح البرنامج لأول مرة ، سوف يفتح نافذة تطلب معرفة مكان برنامج الجداول No_Password_BE.accdb ،

وتستطيع ان تنقر على الزر Link Another BE ، وستفتح لك نافذة تطلب منك معرفة مكان برنامج الجداول الجديد الذي تريد ان تربطه (بدل البرنامج No_Password_BE.accdb) :

.

وبما ان البرنامج هذا محمي بكلمة سر ، فسوف تظهر لك نافذة لإدخال كلمة السر (لاحظ ان الادخال مشفر) :

.

وعندما يتم الربط ، سترى رسالة التاكيد:

.

 

الرجاء من الشباب الذين لديهم نسخة من الاكسس 64 بت ، التاكد من ان البرنامج يشتغل على كمبيوترهم بدون اخطاء.

 

عندما نريد ان نعمل برنامج يشتغل على النسختين 32 و 64 بت ، فكود النماذج هو نفسه بين نسختي 32 بت و 64 بت ، والشئ الوحيد الذي يتغير هو دوال الوحدات النمطية API ، والكود الذي ينادي هذه الوحدات (بغض النظر سواء كان في نموذج او في وحدة نمطية مستقلة) ،

 

هنا سوف اعطي مثال واحد من الكود عن طريقة العمل للنسختين 32 و 64 بت:

 

الكود التالي يستعمل دالة API فتح نافذة اختيار ملف ، والدالة هي 32 بت (لاحظ comdlg32.dll ) :

    Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long

 

الان اذا اردنا ان نجعل هذه الداله API تعمل على 64 بت كذلك ، فالكود يجب ان يكون:

#If VBA7 Then
    'هذه لنسخة 64 بت
    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean
#Else
    'وهذه لنسخة 32 بت
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long
#End If

 

ولاحظ في كود البرنامج ، انه تم جمع جميع الدوال مع بعض ، وجمعها في if# و else# و end if# واحدة.

 

وهناك اصدار جديد لكود الربط ، ويمكن انزاله من هنا:

http://www.jstreettech.com/files/JStreetAccessRelinker2.zip

 

جعفر

238.Work_on_32Bits_and_64Bits.zip 526.59 kB · 570 تنزيلات

ربما يجيب الاخوة على بقية تساؤلاتك او لنا عودة اخرى بعد المعايدات ... وكل عام وانت بخير