الي خبراء الا كسس اين الخطاء

أخي الكريم

هذا مثالك بعد تعديل الخطاء

ولكنه لا يقوم بأخفاء أطار الأكسس

b2.rar

هذا كود لاحد الاخوان جزاه الله خير

يقوم بأخفاء اطار الأكسس

قم بأنشاء وحدة نمطية في برنامجك عبر نسخ الكود التالي

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)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
'MsgBox "Cannot hide Access unless a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
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
End If
fSetAccessWindow = (loX <> 0)
End Function

ثم في حدث عند التحميل للنموذج

ضع الكود التالي

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE

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

ابن بسطا

الاخ الكريم

أقدر فيك حرصك على التعلم

لم يكن هناك خطأ في الكود

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

Private Sub 20_DblClick(Cancel As Integer)
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

End Sub

فالسطرين الاولين في الكود يأديان نفس الغرض مع الفارق أن الاول عندما تضغط دبل كلك

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

تحياتي لك ,,,

استاذ منذر عساج اشكرك للمرة الثانية لدعمك لي

ابن بسطا