مشكلة في النماذج في Minimize

[صادوق]

اخواني

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

من المعروف ان اي نموذج له الخاصية التالية (Modal = True) فانه لا يمكن الذهاب الى اي نموذج اخر الا بعد ان يتم اغلاق النموذج الذي يحمل هذه الخاصية . وهي من الخصائص الرائعة في الاكسس الا ان هذه الخاصية تمنع مستخدم البرنامج من عمل Minimize للبرنامج بالكامل .

فكيف يمكن عمل Minimize لبرنامج الاكسس من برنامج الاكسس نفسه واثناء وجود النماذج المفتوحة والتي تحمل خاصية Modal = True (اي ان يكون تاثير هذه الخاصية على النماذج فقط وليس على كبسة Minimize في برنامج الاكسس ).

مع تحياتي

[الدكتور خضر الرجبي]

السلام عليكم

ما تقوله صحيح ،

تضع الكود التالي في وحدة نمطية

Option Compare Database
Option Explicit


Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

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
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

في النموذج المنبثق تصمم أزرار حسب الذي تريده تضع في حدث عن النقر له واحد من الأكواد التالية :

fsetaccesswindow(1)
fsetaccesswindow(2)
fsetaccesswindow(3)

حيث 0 للإخفاء ، 1 عرض عادي ، 2 للتصغير ، 3 للتكبير .

مع الاحترام والتقدير

[صادوق]

اخي الكريم خضر الرجبي

طريقتك جيدة جدا لكن يجب تصحيح خاصية Modal في الوحدة الى False بدلا من True . ولي ملاحظة اخرى بان لا يكون هناك ازرار وانما يتم الاستفادة من الشريط الموجود في اعلى شاشة الاكسس بحيث يتم التصغير والتكبير من هنالك وذلك لا نني ساضطر الى عمل زر للتصغير او التكبير في كل نموذج يتم فتحه .

الله يعطيك العافية على المساعدة الرائعة

تم تعديل يوليو 20, 2005 بواسطه صادوق