كيف يمكن الاشارة الى اسم النموذج الموجود في كمبوبكس داخل عبارة set في محرر الاكواد ؟

[ابو البشر]

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

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

Dim frm As Form
Dim fc As Control
Dim SS As String
Set frm = Form_Form1
For Each fc In frm.Controls
    If fc.ControlType = 104 Then
     Me.list_2.AddItem (fc.Caption)
    End If
Next fc
Set frm = Nothing

Me.Requery

اريد اسم النموذج مكان عذه العبارة Form_Form1

ولكم تحياتي ................

 

[Eng.Qassim]

وعليكم السلام اخي @ابو البشر

هل هذا ينفعك ؟ مع تغيير اسماء النماذج

Dim strForm As String
Dim frm As Form
Dim fc As Control
Dim SS As String

If Me.ComboName = "A" Then
  strForm = "FormA"
ElseIF Me.ComboName = "B" Then
  strForm = "FormB"
Else
  strForm = "FormC"
End If

Set frm = strForm
For Each fc In frm.Controls
    If fc.ControlType = 104 Then
     Me.list_2.AddItem (fc.Caption)
    End If
Next fc
Set frm = Nothing

Me.Requery

 

[أبو عبدالله الحلوانى]

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

جرب هذا التعديل

Set frm = currentproject.AllForms(frm_name)

استبدل كلمة frm_name  باسم الست بوكس متبوعا برقم الحقل الذي يحوي اسماء النماذج

لا تنسي موافتنا بالنتائج

[ابو البشر]

بارك الله فيكم اخواني الاساتذدة @Eng.Qassim و @أبو عبدالله الحلوانى

جزاكم الله خيرا .... زيادة في الايضاح ايد عند الاختيار في الكمبو بكس مثلا Form1 يظهر تلقائيا اسماء الازرة الموجودة في النموذج form1  في الكمبو الثاني وهكذا عند اختيار نموذج محدد تظهر اسماء الازرة الموجودة في ذلك النموذج .... 

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

 

DDD.accdb

[Eng.Qassim]

اذا حضر الماء @أبو عبدالله الحلوانى.. بطل التيمم

بصراحة اخي @ابو البشر ربما فهمي محدود لما تريده

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

خدني على قد عقلي 😄

[ابو البشر]

28 دقائق مضت, Eng.Qassim said:

اذا حضر الماء @أبو عبدالله الحلوانى.. بطل التيمم

بصراحة اخي @ابو البشر ربما فهمي محدود لما تريده

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

خدني على قد عقلي 😄

ربما لم اوضح الفكرة ...

الفكرة ان هناك كمبو بكس لعرض اسماء الازرة فيه .... وكمبو اخر لعرض اسماء بعض النماذج 

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

[أبو عبدالله الحلوانى]

أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي 

منّ الله علي وعليكم بستره الجميل 

أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك 

رجاءا وافنا بالنتائج

 

DDD.accdb

[ابو البشر]

نعم استاذي الكريم .... هو المطلوب .... بارك الله فيكم اساتذتي الكرام @أبو عبدالله الحلوانى و @Eng.Qassim

جزاكم الله خيرا وكتب اجركم ...