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

[الحلبي]

السلام عليكم

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

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

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

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

تصفية.accdbFetching info...

[أبوبسمله]

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

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

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

بالتوفيق

 

تصفية.accdbFetching info...

[الحلبي]

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

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

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

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

[أبوبسمله]

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

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

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

هناخد اسم المورد او العميل من الاوبشن نفسه ولكن بتعديل بسيط عدل الاسم البرمجى  لليبل الى 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.accdbFetching info...

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

[الحلبي]

  في 5‏/5‏/2022 at 20:22, احمد الفلاحجي said:

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

Expand  

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

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

[أبوبسمله]

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

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

بالتوفيق

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

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

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

تصفية.accdbFetching info...

 

[أبوبسمله]

  في 6‏/5‏/2022 at 14:23, أبو عبدالله الحلوانى said:

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

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

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

 

Expand  

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

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

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

 

[Eng.Qassim]

  في 6‏/5‏/2022 at 14:23, أبو عبدالله الحلوانى said:

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

Expand  

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

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

[Eng.Qassim]

  في 6‏/5‏/2022 at 19:26, احمد الفلاحجي said:

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

Expand  

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

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

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

  في 6‏/5‏/2022 at 19:26, احمد الفلاحجي said:

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

Expand  

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

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

 

 

[أبوبسمله]

  في 6‏/5‏/2022 at 21:59, أبو عبدالله الحلوانى said:

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

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

Expand  

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

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

  في 6‏/5‏/2022 at 21:05, Eng.Qassim said:

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

Expand  

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

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

[Eng.Qassim]

  في 6‏/5‏/2022 at 22:13, احمد الفلاحجي said:

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

Expand  

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

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

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

[أبوبسمله]

  في 6‏/5‏/2022 at 22:45, Eng.Qassim said:

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

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

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

Expand  

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

اللهم آمين

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

🌹

[الحلبي]

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

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

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

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

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

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

[أبوبسمله]

  في 7‏/5‏/2022 at 14:25, الحلبي said:

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

Expand  

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

 

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

 

بالتوفيق

[الحلبي]

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

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

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

[أبوبسمله]

  في 7‏/5‏/2022 at 18:10, الحلبي said:

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

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

Expand  

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

بالتوفيق