تصفية مربع تحرير وسرد بناء على option group (اختيارات)

[الحلبي]

السلام عليكم

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

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

وعند اختيار عميل  ان يفلتر مربع التحرير والسرد حسب كل العملاء فقط

جزاكم الله خيرا

تصفية.accdb

[ابوبسمله]

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

اتفضل يادكتور محمد وكل عام وانتم بخير

Private Sub list1_AfterUpdate()

    If Me.list1.Value = 3 Then
        Me.x.RowSource = "SELECT suppliers.suppliername, suppliers.kind FROM suppliers;"
    ElseIf Me.list1.Value = 1 Then
        Me.x.RowSource = "SELECT suppliers.suppliername, suppliers.kind FROM suppliers WHERE (((suppliers.kind)='ãæÑÏ'));"
    ElseIf Me.list1.Value = 2 Then
        Me.x.RowSource = "SELECT suppliers.suppliername, suppliers.kind FROM suppliers WHERE (((suppliers.kind)='Úãíá'));"
    End If

End Sub

بالتوفيق

 

تصفية.accdb

[الحلبي]

الله الله الله عليك استاذى وفعلا معلمى القدير / ابو بسملة 

كل عام وانت بخير وصحة وسعادة

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

جزاكم الله خيرا وجعلكم خير مساعد لنا

[ابوبسمله]

الحمدلله الذى بنعمته تتم الصالحات

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

واياكم يادكتور محمد @الحلبي واتفضل تعديل علشان خاطر عيونك

هناخد اسم المورد او العميل من الاوبشن نفسه ولكن بتعديل بسيط عدل الاسم البرمجى  لليبل الى label+ قيمه الخيار لانى اعتمدت عليهم

يعنى مثلا اوبشن المورد ذو قيمه الاختيار 1 سيكون Label1

Private Sub list1_AfterUpdate()

Dim strSql As String
Dim strWhere As String
Dim str As String

str = "label" & Me.list1.Value

strSql = "SELECT suppliers.suppliername, suppliers.kind FROM suppliers "
strWhere = "WHERE suppliers.kind='" & Me(str).Caption & "'"


    If Me.list1.Value = 3 Then
        Me.x.RowSource = strSql
    ElseIf Me.list1.Value = 1 Or Me.list1.Value = 2 Then
        Me.x.RowSource = strSql & strWhere
    End If

End Sub

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

 

تصفية_1.accdb

تم تعديل مايو 5, 2022 بواسطه احمد الفلاحجي

[الحلبي]

3 ساعات مضت, احمد الفلاحجي said:

واياكم يادكتور محمد @الحلبي واتفضل تعديل علشان خاطر عيونك

ما هذا الابداع الله الله فعلا استاذ واستاذ كبير وهفضل اقول استاذ الى ماشاء ربى

اشكرك وجزاك كل خير ورحم الله والديك استاذ / احمد وبارك الله فى علمكم 

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

شكرا لك يادكتور محمد ع هذا الاطراء وجزاك الله خيرا واياكم

بالتوفيق

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

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا 

فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة 

تصفية.accdb

 

[ابوبسمله]

5 ساعات مضت, أبو عبدالله الحلوانى said:

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا 

فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة 

تصفية.accdb 468 kB · 2 downloads

 

اهلا بك اخى ومعلمى العزيز محمد وجزاك الله خيرا 🌹

جميل منك استخدام TempVars

ولكن لماذا تم اظهار رقم العميل او المورد بدلا من اسمه بالكمبو ؟

 

[Eng.Qassim]

6 ساعات مضت, أبو عبدالله الحلوانى said:

فكرة خارج الصندوق قليل

احسنت استاذ ابو عبد الله..

دالة TemVar جدا مهمة وجميلة فهي تقوم بخزن السجل الذي نختاره خلف قاعدة البيانات ونقوم باستدعائها عند الحاجة

[Eng.Qassim]

1 ساعه مضت, احمد الفلاحجي said:

لكن لماذا تم اظهار رقم العميل او المورد

اعتقد لان option value تتعامل مع الارقام وليس مع النص ...فرقم 1 يجلب رقم 1 الذي يمثل العميل

فلو حذفت الارقام من value list لحقل النوع فلن يجلب لك شيئا

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

2 ساعات مضت, احمد الفلاحجي said:

ولكن لماذا تم اظهار رقم العميل او المورد بدلا من اسمه بالكمبو ؟

هذا سر ما بخارج الصندوق 

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

 

 

[ابوبسمله]

6 دقائق مضت, أبو عبدالله الحلوانى said:

هذا سر ما بخارج الصندوق 

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

هههههههه تصدق راجعته فى مثالك وشفتها ولكن ما انتبهت لها فى المثال الاساسى الا بعدما اشرت اليها 😀

جميله اخى واستاذى محمد وتسلم ايدك وراسك 🌹

منذ ساعه, Eng.Qassim said:

اعتقد لان option value تتعامل مع الارقام وليس مع النص ...فرقم 1 يجلب رقم 1 الذي يمثل العميل

نعم اخى العزيز ولكن بعد توضيح اخى العزيز محمد الحلوانى فهو قام باضافه الارقام للقائمه بالجدول لانها فى الاساس لم تكن موجوده وقام باستخدام التمب فار (وليس فار😀) والفلتره عليه

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

[Eng.Qassim]

27 دقائق مضت, احمد الفلاحجي said:

لانها فى الاساس لم تكن موجوده وقام باستخدام التمب فار

ما انا بعرف الصعايدة كلامهم كبير  ومبيخش المية

ربي يحفظ مصر.. واهل مصر 

يا غوالي امتنا

[ابوبسمله]

11 ساعات مضت, Eng.Qassim said:

ما انا بعرف الصعايدة كلامهم كبير  ومبيخش المية

ربي يحفظ مصر.. واهل مصر 

يا غوالي امتنا

😀 ع راسنا الصعايده كلهم خير وبركه

اللهم آمين

وربنا يحفظ الامه العربيه والاسلاميه جميعا

🌹

[الحلبي]

استاذنا ومعملنا / @أبو عبدالله الحلوانى

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

ايه ده ياعم ده ابداع فعلا ما الذى اره هذه داله اول مرة اراها 

الان فهمت مالفرق بين الرقم والنص الله ينور على معلوماتك القيمة

الله يبارك فى معلوماتك ويرحم والديك فى الدنيا والاخره

كل الاحترام والتقدير

[ابوبسمله]

2 ساعات مضت, الحلبي said:

ايه ده ياعم ده ابداع فعلا ما الذى اره هذه داله اول مرة اراها

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

 

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

 

بالتوفيق

[الحلبي]

استاذنا ومعلمنا الكبير قوى / @احمد الفلاحجي

الله يجزاك كل خير استاذى ابو بسملة وتسلم ايدك وتعبك معى فى البحث

كل احترام وتقدير

[ابوبسمله]

3 ساعات مضت, الحلبي said:

الله يجزاك كل خير استاذى ابو بسملة وتسلم ايدك وتعبك معى فى البحث

كل احترام وتقدير

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

بالتوفيق