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

تفضل :)

وهذا الكود يجلب جميع النماذج ، ويضعها في الكومبوبوكس:

Private Sub Form_Load()

    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        If obj.Name <> Me.Name Then
            
            L = L & ";" & obj.Name
        End If
    Next obj

    Me.cmb_Forms.RowSource = Mid(L, 2)
    
End Sub

جعفر

248.subform.mdb.zip

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

الله يحفظك لنا ويزيدك من علمه .

أخي الغالي لكن هل يمكن أن نقتصرها على نماذج محددة فقط . يعني ليست كل النماذج .

لأني بعض النماذج لا أريدها أن تظهر .

تقبل فائق تقديري واحترامي .

حياك الله :)

نعم عندك عدة اخيارات ، منها:

1. تقدر تعمل جدول فيه اسماء النماذج ، وبالتالي تأخذ الاسماء للكمبوبوكس منها ،

2. ان تبدأ اسم هذه النماذج بحروف معينة ، مثل frm_frm1 و frm_frm2 ، فنطلب من الكود يأخذ جميع النماذج التي تبدأ بـ _frm ،

3. او انك تخبر الكود بعدم قبول اسماء نماذج معينة ،

... وهكذا

جعفر

أخي الغالي الله لا يحرمنا منك .

الله يحفظك ويحفظ لك ذريتك وأهلك ومالك .

أخي  الحل المناسب لي رقم 2

2- ان تبدأ اسم هذه النماذج بحروف معينة .

ولكن كيف الطريقة . أخي أعذرني لأني ثقلت عليك .

سامحني بارك الله فيك .

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

تقبل فائق تقديري واحترامي .

تفضل :)

Private Sub Form_Load()

    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        If Left(obj.Name, 4) = "frm_" Then
            
            L = L & ";" & obj.Name
        End If
    Next obj

    Me.cmb_Forms.RowSource = Mid(L, 2)
    
End Sub

جعفر

أخي الغالي حفظك الله

هناك مشكلة تطلع لي رسالة تحرير القائمة ولا تظهر النماذج .

تقبل فائق تقديري واحترامي .

؟؟

اخي ما سبب هذه الرسالة

أخي الغالي عرفت السبب

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

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

فرج الله همك ورزقك من حيث لا تحتسب .

تقبل فائق تقديري واحترامي .

حياك الله :)

أخي الغالي بارك الله فيك وفي علمك وذريتك

أخي حاولت أن أطبق على نماذج عربية ولم أنجح .

أرجو منك المساعدة .

أسم النماذج بالعربي

نموذج تحديد وتجديد

نموذج تجهيز وتركيب

نموذج استلام

تقبل فائق تقديري واحترامي .

وعليكم السلام اخي ابوعبير :)

تفضل الكود :

Private Sub Form_Load()

    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    
    Look_For = "نموذج"
    For Each obj In dbs.AllForms
        'If Left(obj.Name, 4) = "frm_" Then
        If Left(obj.Name, Len(Look_For)) = Look_For Then
        'If obj.Name <> Me.Name Then
        
            L = L & ";" & obj.Name
        End If
    Next obj

    Me.cmb_Forms.RowSource = Mid(L, 2)
    
End Sub

جعفر

الله يعطيك العافية ويرحم والديك

الله لا يحرمك الأجر ولا يحرمنا منك .

تقبل فائق تقديري واحترامي .

:)