|س| افتح استعلام بناء على التحديد

[الفيلسوف111]

الى الاعضاء المحترمين كيف يمكن لي ان افتح استعلام بناءا على ما احدده في مربع القائمة , مثلا اذا كان عند مربع قائمة ومصدر بياناته استعلام ويظهر عندي في مربع القائمة حقل الاسماء ويحتوي على محمد ، خضر ، وطارق ، وجمال . وقد حددت طارق وجمال وخضر والان اريد افتح الاستعلام على ما حددته ، فكيف السبيل الى ذلك ، مع العلم اني حاولت استخدام الخاصية ListIndex ولكني لم اوفق وهذ المثال على مااريد عمله

http://www.freewebs.com/tariqaleed/liste.rar

[الدكتور خضر الرجبي]

السلام عليكم

أخي الفيلسوف111 ، بارك الله فيك

إبتداءً، أشكرك على هذه المسألة الرائعة والفكرة الجديدة.

وإليك الحل أملاً أن ينال إعجابك.

مع الاحترام

list_Filasof111.rar

تم تعديل فبراير 25, 2005 بواسطه خضر الرجبي

[الفيلسوف111]

استاذي خضر الرجبي المحترم دائما انت سباق واكيد يعجبني ما قصرت ، دائما افكارة ذكية وحلوه وتصل الى الحلول بسرعة ولا تتعطل(ماشاء الله عليك) ، شكراجزيلا لك . واذا تكرم احد الاعضاء مشكورا وعنده وقت ياليت يشرح معاني الشفرة

Private Sub Command_Click()
Dim frm As Form, ctl As Control
Dim varItm As Variant
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "QryClearAll"

Set frm = Forms!form1
Set ctl = frm!List1
For Each varItm In ctl.ItemsSelected
    Me.YesNo = Nz(ctl.ItemData(varItm), 0)
    If Me.YesNo <> 0 Then
     DoCmd.OpenQuery "QryUpdateView"
    End If
Next varItm


DoCmd.OpenQuery "QryWanted", , acReadOnly

DoCmd.OpenQuery "QryClearAll"
End Sub

تم تعديل فبراير 25, 2005 بواسطه الفيلسوف111