اخفاء واجهة اكسس

[monefask]

السلام عليكم

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

الذي يتم العمل عليه

وشكرا

[علي المصري]

إليك الكود التالي وهو متن أعمال عباقرة المنتدى ولكنى لا اتذكر اسم صاحب الكود

Option Compare Database

Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function


'وهو فقط لاستدعاء الوحدة النمطية السابقة
'ثالثاً :نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة
'1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog).
'2- في التبويب "الكل" (All)
'حول الخاصية "منبثق" (Pop up) الى نعم (Yes)
'حول الخاصية "مشروط" (Modal) الى نعم (Yes)
'خلف النموذج
'Private Sub Form_Open(Cancel As Integer)
'fSetAccessWindow (SW_HIDE)
'End Sub

تم تعديل يونيو 29, 2014 بواسطه علي المصري

[شامل2]

السلام عليكم

بارك الله فيك

[monefask]

جزاكم الله خيرا