تشغيل الزرين استعلام ونموذج منقسم في نموذج FORM1

[alashqar]

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

اسعد الله أوقاتكم بكل خير وجزاكم الله خيرا على ما تقدموه

مشكلتي انه عند اخفاء شاشة الأكسس وتشغيل FORM1 بطريقه سليمة ثم عند 

الضغط علي زر عرض استعلام او زر فتح نموذج لا يعمل البرنامج رغم انه عند عدم  وضع كود اخفاء شاشة الأكسس

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

ASH1.rar

[alashqar]

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

[Shivan Rekany]

25 دقائق مضت, alashqar said:

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

حسب فهمي 
ما بيفتح النموزج من نوع سبلايت في حين اخفاء شاشة الاكسس
والعلاج هو ان تغير نوع النموذج او حين يفتح النموذج بيظهر شاشة اكسس من جديد و حين تغلقه بيخفى شاشة اكسس
هذا والله اعلم

[alashqar]

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

يتم تفعيل شاشة اخفاء اكسس مع العلم انه كود اخفاء اكسس موجود في البرنامج ولكم الشكر

[Shivan Rekany]

9 دقائق مضت, alashqar said:

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

يتم تفعيل شاشة اخفاء اكسس مع العلم انه كود اخفاء اكسس موجود في البرنامج ولكم الشكر

يا اهلا وسهلا
انتظرني 
لي العودة ان شاء الله

[Shivan Rekany]

منذ ساعه, alashqar said:

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

يتم تفعيل شاشة اخفاء اكسس مع العلم انه كود اخفاء اكسس موجود في البرنامج ولكم الشكر

اتفضل 

ASH1.rar

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

[alashqar]

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

يتم تفعيل شاشة اخفاء اكسس مع العلم انه كود اخفاء اكسس موجود في البرنامج ولكم الشكر

نعم أخي الكريم هو المطلوب وأشكرك جزيل الشكر 

لكن هل المديول الثاني الذي تم اضافته هو الحل للمشكلة بحيث كل ما استخدم نموذج منقسم استخدم نفس الأوامر فقط ارجو منكم التوضيح ولكم الشكر

 

[Shivan Rekany]

5 ساعات مضت, alashqar said:

لكن هل المديول الثاني الذي تم اضافته هو الحل للمشكلة بحيث كل ما استخدم نموذج منقسم استخدم نفس الأوامر فقط ارجو منكم التوضيح ولكم الشكر

اعتذر منك اخي
اليك ملفك بها مديول واحد فقط
وهذا هو المديول

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
      If nCmdShow = SW_HIDE Then
              loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
      End If
    Else
        If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
        ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
        Else
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
        End If
    End If
    fSetAccessWindow = (loX <> 0)
End Function

وحين يفتح الفورم الاول اي فورم 1 في حدث فتح الفورم كتبناه كودك الاول وهو
 

  Call fSetAccessWindow(0)

وهو الذي بيخفي خلفية اكسس
وحين يفتح فورم من النوع سبلايت كتبنا كود 
 

  Call fSetAccessWindow(1)

اي يعني خلي بيكون وضع عادي 
وحين يغلق ذاك الفورم كتبناه كود الاول 
 

  Call fSetAccessWindow(0)

وحسب ذاك الارقام اي رقم صفر وواحد والقاني والثالث نكدر نغير وضع خلفية اكسس
اتمنى ان وصل لك المفهوم

واليك ملفك بعد تعديل
مع تقدير

ASH1 (1).rar

[alashqar]

هل الموضوع صعب الى هذه الدرجة ارجوا التكرم بالمساعدة ولكم خالص الشكر 

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

يتم تفعيل شاشة اخفاء اكسس مع العلم انه كود اخفاء اكسس موجود في البرنامج ولكم الشكر

أشكرك جزيل الشكر على ما قدمت من مساعدة وتمنياتي لكم بالتوفيق 

[Shivan Rekany]

في ١‏/٢‏/٢٠١٧ at 14:08, Shivan Rekany said:

ما بيفتح النموزج من نوع سبلايت في حين اخفاء شاشة الاكسس

 

في ٥‏/٢‏/٢٠١٧ at 10:48, alashqar said:

هل تستطيع أن تساعدني في عمل الكود الذي يظهر النموذج ثم بعد ذلك عند الاخفاء 

اتفضل هذا الحل الانسب

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

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

وللفتح النموذج استخدمنا هذا الكود

Private Sub أمر8_Click()
    DoCmd.OpenForm "nform", acNormal, , , , acDialog
End Sub

ولان لا يظهر الاستعلام في وضع اخفاء الشاشة عملنا نموذج من نوع داتاشيت وكتبنا هذا الكود لفتحه

Private Sub أمر9_Click()
    DoCmd.OpenForm "q1", acFormDS, , , , acDialog
End Sub

اتفضل اليك مرفقك بعد تعديل

 

ASH1 (1).rar