مساعدة في تحرير وسرد

وعليكم السلام

الافضل اخي الكريم ان ترسل مثالك ليتسنى للإخوة الكرام تلبية طلبك

تحياتي

تم وضع المثال

ahmed111333.rar

تفضل :)

1. نعمل حقل في الجدول باسماء شركات الاتصال ، انا سميته Comp ،

2. وعملت حقل مربع تحرير وسرد باسم الشركة ، ولاحظ اننا نشاهد جميع السجلات ،

3. وعندما نختار احد الشركات ، فالنموذج يعطينا ،

4. والكود اللي يعمل هذه الفلترة هو:

Private Sub cmb_Comp_AfterUpdate()

    If Len(Me.cmb_Comp & "") = 0 Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Me.Filter = "[Comp]='" & Me.cmb_Comp & "'"
        Me.FilterOn = True
    End If
    
End Sub

Private Sub Form_Close()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.Filter = ""
    Me.FilterOn = False
    
'fSetAccessWindow (SW_HIDE)
End Sub

جعفر

212.ahmed111.mdb.zip

يعطيك ألف عافية على المجهود الطيب وجعلة في موازين حسناتك

أخي العزيز  المراد هو إظهار جميع الأرقام المنتمية لشركة زين في نموذج مستقل

مثال لو كان لدي 5 أرقام موظفين شركة زين عند إختيار شركة زين من مربع تحرير وسرد تظهر معلومات الموظفين الـ5 المسجلين في شركة زين في نموذج مستقل

وهكذاى الحال مع بقية الشركات

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

حياك الله :)

المربع يأخذ اسماء جميع الشركات اللي في الجدول :)

دخل اسم شركة جديدة وجرب :)

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

لا ، هذه الطريقة مب صحيحة ، بينما الطريقة الصحيحة هي لما تدخل معلومات الشخص ، اسم الشركة يكون من ضمن المعلومات اللي لازم تدخلها :)

جعفر

طيب إذا ممكن هل يمكن تطبيق ذالك بنموذج مستقل

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

اخي العزيز :)

عندك الكود والامثلة ، فيمكنك ان تطبقه على اي نموذج شئت :)

جعفر

أخي العزيز لو كنت أعلم الطريقة لما وضعت سؤالي هنا ولما سألت أهل الخبرة

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

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

تفضل ياعمي ، وما عاش اللي يزعلك :)

جعفر

212.ahmed111.mdb.zip

مشكور ماتقصر والله يكتب لك الأجر إن شاء الله وأسف لإزعاجك شكرآآ لك

حياك الله :)

جعفر