تصفية بيانات النموذج

[ToMix]

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

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

بانتظار ردودكم

[ToMix]

UP

[~~العابر~~]

:')

نفس المشكلة اخي الفاضل ونتمنى من احد الافاضل ان يشرح لنا الطريقة لاني وصلت الى طريق شبه مسدود

[التقني]

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

حياك الله أخي العزيز

بالنسبة لما طلبت :

لجعل محتويات مربع التحرير والسرد الثاني منتميا لمربع التحرير والسرد الأول بحيث يحتوي على عناصر تنتمي لعنوان المربع الأول اتبع الخطوات التالية :

أولا:

قم بإنشاء 3 جداول بالأسماء التالية : ( AA وبه الحقل Dyana ) و ( BB وبه الحقل Mehna ) و ( CC وبه الحقل Gensya ) ثم قم بملء كل حقل بما يناسبها

ثانيا:

انشئ 2 مربع تحرير وسرد بإسم Comb1 وضع في مصدر الصف العناوين التالية ("الجنسية";"المهنة";"الديانة") و Comb2 وضع الكود التالي :

ثالثا :

Private Sub comb1_BeforeUpdate(Cancel As Integer)
Select Case comb1.Value
                                         
            Case Is = "الديانة"
                    comb2.RowSource = "SELECT AA.Dyana FROM AA"
            Case Is = "الجنسية"
                    comb2.RowSource = "SELECT CC.Gensya FROM CC"
            Case Is = "المهنة"
                    comb2.RowSource = "SELECT BB.Mehna FROM BB"
                    
End Select

End Sub

تم تعديل الكود وحذف ما ليس له داع .

مرفق مثال للتوضيح

وبالتوفيق

2Combo.rar

تم تعديل أكتوبر 21, 2006 بواسطه التقني

[ToMix]

والله وأتيت بها يا التقني بوركت يا اخي الكريم

انهيت لي بداية الطريق ، بقي لك أن تكمل معي

عند اختيارنا للقيمة التي تظهر في الكومبو2

نريد أن يتم تصفية سجلات النموذج بناء على الخيار الذي اخترته

اعطيك مثال :

اخترنا من الكومبو1 (الجنسية) سيظهر لنا تلقائياً في الكومبو2 (الجنسيات > سعودي،مصري،اماراتي،...إلخ)

بمجرد إختيارنا لأي من الجنسيات المسرده في الكومبو2 يتم فرز وتصفية سجلات النموذج على القيمة المختارة

بمعنى كأننا نقول للبرنامج (قم بفرز وتصفية سجلات النموذج على حسب القيمة المختارة في الكومبو2 )

هل فهمت علي ؟ ام ازيدك شرحاً انا اعلم ان المسالة معقدة

بنتظار ردك

[التقني]

حياك الله أخي العزيز

لك أن تطلع على المواضيع ذات الصلة :

http://www.officena.net/ib/index.php?showtopic=7225&hl

و

http://www.officena.net/ib/index.php?showtopic=1758&hl

و

http://www.officena.net/ib/index.php?showtopic=1236&hl

و

بالتوفيق