اخفاء شاشة الاكسس بعد تحديث الأوفس الى 2003

لايوجد اجابه على الاستفسار

اخي الفاضل الخيال

قم بوضع هذا الكود في وحدة نمطية جديده

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

قم بوضع هذا الكود في حدث عند تحميل النموذج

Private Sub Form_Load()
fSetAccessWindow (SW_HIDE)
End Sub

من خصائص النموذج تبويب الكل تأكد من التالي

اشرطة التمرير ..... لا هذا ولا ذاك

محددات السجلات ..... لا

الخطوط المقسمة .....لا

تغيير حجم تلقائي ... نعم

توسيط تلقائي ... نعم

منبثق .... نعم ................................ ( ركز على هذا الاختيار )

شكلي او مشروط ..... نعم ................................ ( ركز على هذا الاختيار )

نمط الحدود .... مربع حوار او رفيع

مربع عنصر التحكم .... لا

زر التصغير والتكبير ... بلا

زر الاغلاق .... لا

ملاحظه : يجب وضع زر اغلاق على النموذج والا لن تتمكن من اغلاق النموذج

وهذا مثال على ذلك

Hide_Access2003.rar

اختكم

زهره