طريقة اخفاء اكسس

[السنجري]

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

اعزائي الافاضل برجاء مساعدتي في حل المشكلة البسيطة باذن الله عليكم 
عند اخفاء اكسس نضع كود في موديول جديد 

وهذا الكود حسب وع الاكسس 32 او 64 بت 

فهل هناك كود يستخدم بشكل تلقائي على النوعين 
بمعني اخر انا لو قفلت البرنامج على انه 32 بت وزميلي بالعمل لدية 64 بت يعطيني خطأ او العكس 
هل هناك طريقة للاخفاء على النظامين 

 

انا استخدم الدالة التالية 

32 بت 

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

64 بت 

  Private Declare PtrSafe Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long

 

الاختلاف فقط في اضافة PtrSafe للكود فهل هناك طريقة اخرى واسف على الاطالة 

[kkhalifa1960]

استاذ @السنجري المنتدى مملوء بشرح هذا السؤال . ومنهم 

 

[Foksh]

تفضل أخي الكريم @السنجري ، مرفق يحتوي مديولين لنفس الوظيفة ، متوافقين مع الإصدار للنواتين 32 و 64 .

في أحدهما كود لإخفاء آكسيس و كود لإعادة إظهار آكسيس مرة أخرى .

 

Hide & Show.accdb

[السنجري]

شكرا جزيلا لكم اخواني الكرام