مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي

amir_adam83 · مايو 30, 2021

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

اريد ان افتح اكثر من شاشة على الشاشة الرئيسية للمقارنه

حيث استخدمت للنموذج الرئيسي كا Mdi كما هو موجود في فيجول دوت نت

Pop Up>>>>>>>>>> yes

Modal>>>>>>>>>>> yse

وباقي الشاشات الابناء تفتح من خلاله ولكن المشكله

تطلب مني ان اطبق كل

Pop Up>>>>>>>>>> yes

Modal>>>>>>>>>>> yse

على كافة النماذج

هل من طريقه او كود تجعل الشاشه الرئيسيه على الوضع الحالي وهو

Pop Up>>>>>>>>>> yes

Modal>>>>>>>>>>> yse

وباقي الشاشات تفتح داخل الشاشه الرئيسيه دون توقف او فتح خلف الشاشه الرئيسيه

مرفق البرنامج

odbda.rar

**ابو جودي** · مايو 30, 2021

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

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

باقي الشاشات تفتح داخل الشاشه الرئيسيه

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

اتفضل جرب

odbda.accdb

amir_adam83 · مايو 30, 2021

7 minutes ago, ابا جودى said:

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

اتفضل جرب

odbda.accdb 472 kB · 0 downloads

شكرا لك اخي الكريم على مداخلتك ولكن

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

image.png.eb27655f8f411344b59c3eb58635923b.png

**ابو جودي** · مايو 30, 2021

كده

odbda (2).accdb

amir_adam83 · مايو 31, 2021

ابا جودى

صباح الخير استاذي الكريم

شكرا لحسن تعاونكم الكريم

قد اكون عاجز عن ايصال الفكره لك ولكن

هي عباره عن شاشه رئيسيه

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

ام ان هذه الطريقه يصعب فعلها في اكسس

بارك الله فيك وجزاك الله خير الجزاء

شكرا لك

**د.كاف يار** · مايو 31, 2021

اتوقع انك تقصد مثل هذي الصورة

ASDDFFGGH.jpg.6ab57ec1a042341d46e2e857d835c141.jpg

الكود في الاستديو VB.NET

        Me.IsMdiContainer = True
        With [Form Name]
            .MdiParent = Me
            .Show()
        End With

لا يوجد شيئ مستحيل في البرمجة

و سأحاول ان اصل للطريقة في الاكسس و كذلك المكتبة المناسبة لهذه الفكرة

amir_adam83 · مايو 31, 2021

د.كاف يار

شكرا لك

وبارك الله فيك

**jjafferr** · مايو 31, 2021

السلام عليكم 🙂

هل هذا المطلوب؟

جعفر

Drag_Forms.zip

amir_adam83 · يونيو 1, 2021

jjafferr

بالطبط اخي واستاذي الكريم

ولكنها تاتي لي بشكله صفحهpage ومثبته داخل الشاشه الرئسية متل ماذكرت في ما وضعته

حيث ان لدي مما يتعدى 90 شاشه هل هي الطريقه ... بارك الله فيك على المساعده الكريمه منك

**jjafferr** · يونيو 1, 2021

انت تعرف ان مشكلتك هي ان النموذج الرئيسي "منبثق" ،

وعليه ، وكل اللي نعمله هو مرواغة الاكسس حتى يقبل نموذج "منبثق" فوق نموذج منبق !!

سؤالين:

1. كم نموذج ستفتح فوق النموذج المنبثق الرئيسي ؟

2. ليش تستعمل نموذج منبثق ؟

انا نادرا ما استعمل نماذج منبثقة ، والطريقة اللي استعملها في برامجي:

2 ساعات مضت, amir_adam83 said:

حيث ان لدي مما يتعدى 90 شاشه هل هي الطريقه

لا ، طريقتي ما تصلح لهذا الكم من النماذج الفرعي !!

وياريت ترفق لنا هذه الجزئية من برنامجك ، لأنه في طريقة على بالي اريد اجربها ، ولا اريد اجربها إلا على برنامجك الاصل 🙂

بكل بساطة: طريقة فتحك للنموذج المنبثق معناها انك تفتح النموذج المنبثق A ، وتغلق النموذج المنبثق B ، فعليه ، يكون النموذج المنبثق A هو النموذج الوحيد المفتوح ،

فنقوم بتغييره من نموذج منبثق الى نموذج عادي :

me.modal=false

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

لهذا السبب ، اريد النموذج الذي يفتح النموذج Form1 ، وبعض النماذج الاخرى مثل Form2 و Form3 .

.

جعفر

**د.كاف يار** · يونيو 1, 2021

15 ساعات مضت, jjafferr said:

السلام عليكم 🙂

هل هذا المطلوب؟

جعفر

Drag_Forms.zip 34.17 kB · 14 downloads

ماشاء الله لا قوة الا بالله

فناااان من طراز عريق

**jjafferr** · يونيو 1, 2021

2 دقائق مضت, د.كاف يار said:

ماشاء الله لا قوة الا بالله

فناااان من طراز عريق

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

جعفر

**أبو إبراهيم الغامدي** · يونيو 1, 2021

أهلا بكم ..

يمكن استخدام إجراءات واجهة برمجة التطبيقات لوندوز WIN32API لتحقيق هذا الغرض

الإجراء المطلوب

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

التطبيق

Private Sub Command0_Click()
   Dim result As Long
   Dim chwnd As Long
   DoCmd.OpenForm "form2"
   chwnd = Screen.ActiveForm.Hwnd
   result = SetParent(chwnd, Me.Hwnd)
End Sub

Or

Private Sub Command2_Click()
   Dim chwnd As Long
   DoCmd.OpenForm "form3"
   chwnd = Screen.ActiveForm.Hwnd
   SetParent chwnd, Me.Hwnd
End Sub

الشروط

يجب أن يكون الأبناء (النماذج والتقارير) في وضعية الإنبثاق

المثال

mdi_with_access.accdb

**jjafferr** · يونيو 1, 2021

22 دقائق مضت, أبو إبراهيم الغامدي said:

أهلا بكم ..

يمكن استخدام إجراءات واجهة برمجة التطبيقات لوندوز WIN32API لتحقيق هذا الغرض

رائع 🙂

ما شاء الله عليك اخوي أبو إبراهيم ، دائما ، ما معتمد على قدرات الاكسس فقط ، وانما تستفيد من بقية قدرات الاوندوز 🙂

جعفر

محمد القدسي · يونيو 1, 2021

ما شاء الله مبدع استاذي أبو إبراهيم

ولاكن اذا كان امر فتح النموذج موجود في وحدة نمطية كيف يكون الكود

لانه ظهر معي خطأ في هذا الجزء Me.

SetParent chwnd, Me.Hwnd

محمد القدسي · يونيو 1, 2021

تم الحل الحمدلله

وذلك باضافة هذا الكود بعد امر تشغيل الدالة

 Call acbopenFormpolesa
   chwnd = Screen.ActiveForm.Hwnd
   SetParent chwnd, Me.Hwnd

هكذا

وبارك الله في الجميع

amir_adam83 · يونيو 2, 2021

د.كاف يار

jjafferr

أبو إبراهيم الغامدي

ابا جودى

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

هذا هو المطلوب بالفعل

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

وهو

  Private Sub Form_Load()
  On Error Resume Next
 '-------------------------------------------------------------
  
  Dim Dbs As DAO.Database
  Dim rst As Recordset
  Dim nodeX As Node
 TreeView0.PathSeparator = "_"
 
  
  Set Dbs = CurrentDb
  Set rst = Dbs.OpenRecordset("Tabl_Name_Foms_QueryTree", dbOpenDynaset)
   
   nodeX = TreeView0.Nodes.add(, , "A", "Alpha Skay System")
  With rst
    Do While Not .EOF
      
    Set nodeX = TreeView0.Nodes.add("A" & CStr(Nz(!NoDMin)), tvwChild, "A" & CStr(!NoFormsD), CStr(!NoFormsD) & "-" & !NameFormsE)

      nodeX.EnsureVisible
      .MoveNext
    Loop
    End With
  
  rst.Close
  Set Dbs = Nothing
  For Each nodeX In TreeView0.Nodes
   
   nodeX.Expanded = False
   nodeX.Sorted = True
   
   nodeX.BackColor = rgb(180, 243, 250)

  Next
  
    ChangeBackgroundColor TreeView0.Hwnd, rgb(180, 243, 250)
  '--------------
TreeView0.Font = "حمدين بولد"
TreeView0.Font.Size = "11"
'TreeView RTL
    Call RTL_SetTree(Me, TreeView0)
    '--------------------------------------------------
  'TreeView RTL
    Call RTL_SetTree(Me, TreeViewAZ)
End Sub

الوحده النمطيه

Option Compare Database
Option Explicit

Sub SortTabl_Name_Foms_QueryTree()
    On Error Resume Next
    Dim MaxOrder As Long
    Dim Digits As Integer
    MaxOrder = DMax("NoFormsD", "Tabl_Name_Foms_QueryTree")
    If MaxOrder <= 1 Then
        Exit Sub
    End If
    Digits = Len(MaxOrder & "")
    CurrentDb.Execute "Update Tabl_Name_Foms_QueryTree Set AccSort= " & _
    "NoFormsD * (10 ^ (" & Digits & "- Len(NoFormsD)))"
End Sub

اسف على عدم رفع البرنامج لكبر حجمه

هل اضيف الوحده النمطيه التي وضعها استاذي الكريمأبو إبراهيم الغامدي

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

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

Private Sub Command0_Click()
   Dim result As Long
   Dim chwnd As Long
   DoCmd.OpenForm "form2"
   chwnd = Screen.ActiveForm.Hwnd
   result = SetParent(chwnd, Me.Hwnd)
End Sub

Or

Private Sub Command2_Click()
   Dim chwnd As Long
   DoCmd.OpenForm "form3"
   chwnd = Screen.ActiveForm.Hwnd
   SetParent chwnd, Me.Hwnd
End Sub

بارك الله فيكم وشكركم جميعا

**jjafferr** · يونيو 2, 2021

22 ساعات مضت, jjafferr said:

هل تفتح النموذج المنبثق A ، وتغلق النموذج المنبثق B ، فعليه ، يكون النموذج المنبثق A هو النموذج الوحيد المفتوح

رجاء الرد على هذا السؤال

amir_adam83 · يونيو 2, 2021

4 minutes ago, jjafferr said:

رجاء الرد على هذا السؤال

اخي واستاذي الكريم اسف على التاخر بالرد اعتزر منك

هذا هو

form1 ده رئيسي

Form A

Form B

Form C

نماذج فرعيه

.form1

Pop Up>>>>>>>>>> yes

Modal>>>>>>>>>>> yse

وباقي النماذج الفرعيه(الابناء)

نفس الشيء

Pop Up>>>>>>>>>> yes

Modal>>>>>>>>>>> yse

**jjafferr** · يونيو 2, 2021

السؤال ، كيف تفتح النموذج form1

هل لما تفتحه ، تغلق النموذج الذي فتحه ؟

amir_adam83 · يونيو 2, 2021

2 minutes ago, jjafferr said:

السؤال ، كيف تفتح النموذج form1

هل لما تفتحه ، تغلق النموذج الذي فتحه ؟

لا اخي الكريم فورم 1 ده الفورم الرئيسي عند فتح البرنامج اساسي

هل لما تفتحه ، تغلق النموذج الذي فتحه ؟

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

18 minutes ago, amir_adam83 said:
د.كاف يار

jjafferr

أبو إبراهيم الغامدي

ابا جودى

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

هذا هو المطلوب بالفعل

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

وهو
  Private Sub Form_Load()
  On Error Resume Next
 '-------------------------------------------------------------
  
  Dim Dbs As DAO.Database
  Dim rst As Recordset
  Dim nodeX As Node
 TreeView0.PathSeparator = "_"
 
  
  Set Dbs = CurrentDb
  Set rst = Dbs.OpenRecordset("Tabl_Name_Foms_QueryTree", dbOpenDynaset)
   
   nodeX = TreeView0.Nodes.add(, , "A", "Alpha Skay System")
  With rst
    Do While Not .EOF
      
    Set nodeX = TreeView0.Nodes.add("A" & CStr(Nz(!NoDMin)), tvwChild, "A" & CStr(!NoFormsD), CStr(!NoFormsD) & "-" & !NameFormsE)

      nodeX.EnsureVisible
      .MoveNext
    Loop
    End With
  
  rst.Close
  Set Dbs = Nothing
  For Each nodeX In TreeView0.Nodes
   
   nodeX.Expanded = False
   nodeX.Sorted = True
   
   nodeX.BackColor = rgb(180, 243, 250)

  Next
  
    ChangeBackgroundColor TreeView0.Hwnd, rgb(180, 243, 250)
  '--------------
TreeView0.Font = "حمدين بولد"
TreeView0.Font.Size = "11"
'TreeView RTL
    Call RTL_SetTree(Me, TreeView0)
    '--------------------------------------------------
  'TreeView RTL
    Call RTL_SetTree(Me, TreeViewAZ)
End Sub
الوحده النمطيه
Option Compare Database
Option Explicit

Sub SortTabl_Name_Foms_QueryTree()
    On Error Resume Next
    Dim MaxOrder As Long
    Dim Digits As Integer
    MaxOrder = DMax("NoFormsD", "Tabl_Name_Foms_QueryTree")
    If MaxOrder <= 1 Then
        Exit Sub
    End If
    Digits = Len(MaxOrder & "")
    CurrentDb.Execute "Update Tabl_Name_Foms_QueryTree Set AccSort= " & _
    "NoFormsD * (10 ^ (" & Digits & "- Len(NoFormsD)))"
End Sub
اسف على عدم رفع البرنامج لكبر حجمه

هل اضيف الوحده النمطيه التي وضعها استاذي الكريمأبو إبراهيم الغامدي
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
وهل لكود واحد وفريد يتم وضعه داخل كود الشجره يقوم بمهام الاكواد هذه
Private Sub Command0_Click()
   Dim result As Long
   Dim chwnd As Long
   DoCmd.OpenForm "form2"
   chwnd = Screen.ActiveForm.Hwnd
   result = SetParent(chwnd, Me.Hwnd)
End Sub

Or

Private Sub Command2_Click()
   Dim chwnd As Long
   DoCmd.OpenForm "form3"
   chwnd = Screen.ActiveForm.Hwnd
   SetParent chwnd, Me.Hwnd
End Sub
بارك الله فيكم وشكركم جميعا

اريد مساعدة في ربط هذا العمل بالشجره شكرا لكم

**أبو إبراهيم الغامدي** · يونيو 2, 2021

6 ساعات مضت, amir_adam83 said:

اريد مساعدة في ربط هذا العمل بالشجره شكرا لكم

عند الرجوع إلى المثال المرفق في مشارتك الأولى وجدت أن جميع النماذج في وضعية المشروط (المتحكم ) وليس المنبثق! وهذا خطأ.

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

يمكن تمرير اسم النموذج في فرع الشجرة إلى الإجراء التالي

Sub OpenForm(FormName)
   Dim result As Long
   Dim chwnd As Long
   DoCmd.OpenForm  FormNmae
   chwnd = Screen.ActiveForm.Hwnd
   result = SetParent(chwnd, Me.Hwnd)
End Sub

إرفاق جدول أسماء النماذج يساعد في التطبيق...

amir_adam83 · يونيو 2, 2021

2 hours ago, أبو إبراهيم الغامدي said:
عند الرجوع إلى المثال المرفق في مشارتك الأولى وجدت أن جميع النماذج في وضعية المشروط (المتحكم ) وليس المنبثق! وهذا خطأ.

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

يمكن تمرير اسم النموذج في فرع الشجرة إلى الإجراء التالي
Sub OpenForm(FormName)
   Dim result As Long
   Dim chwnd As Long
   DoCmd.OpenForm  FormNmae
   chwnd = Screen.ActiveForm.Hwnd
   result = SetParent(chwnd, Me.Hwnd)
End Sub
إرفاق جدول أسماء النماذج يساعد في التطبيق...

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

ODB.rar

**jjafferr** · يونيو 2, 2021

جرب هذا المرفق 🙂

هو كما بالرابط الذي اعطيتك في مشاركتي اعلاه 🙂

جعفر

1383.Drag_Forms.accdb.zip

**أبو إبراهيم الغامدي** · يونيو 2, 2021

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

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

لم أقم بأي إجراء على شجرة البيانات..

لم أراعي ما يتعلق بنواة الأوفس

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

ODB.accdb

تسجيل الدخول

مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي

الردود الموصى بها

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information