أخوتي الغاليين
تحية طيبة وبعد ،،،،،،،،،،،،،
طبعاً موضوع إخفاء شاشة الاكسس شيء رائع جداً وجميل حتى يبدو البرنامج في هذه الحالة كالبرامج التي يتم عملها بالفجوال بيسك أو أي برامج أخرى ، وما دام تم التطرق لهذا الموضوع وأشكر الجميع الذين شاركوا ويشاركون في هذا الموضوع.
هناك طريقة سهلة لاخفاء شاشة الاكسس هي خطوتين فقط
كل ما عليك :
1. وضع هذا الكود في الوحدة النمطية
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub
Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub
2. في أول نموذج يتم فتحه ، ضع عند حدث تحميل أو حدث عند الفتح هذا الكود
HideAccess
وتغيير خصائص النموذج الى منبثق وشكلي أو مشروط الى القيمة نعم
لذا أرفق لكم قاعدة بيانات للأخت زهرة العبدلله تم تطبيق اخفاء شاشة الاكسس عليها.
بالتوفيق للجميع وبارك الله فيكم
HideAccess.rar