درج چک باکس وامکان انتخاب درلیست باکس

[amirkazem]

باسلام خدمت اساتیدبزرگوار
دریک فرمی یک لیست باکسی داریم که اطلاعات یک کوئری رانمایش می دهد.
سوال: می خواهیم برروی این لیست باکس، یک چک باکسی داشته باشیم که فقط رکوردهایی که تیک زده می شوند را درگزارش داشته باشیم. به چه صورت میتوانیم این کارراانجام بدهیم؟
امیدوارم منظورم راخوب رسانده باشم.
ازمساعدت شماصمیمانه سپاسگزارم.

[hasanhzd]

درود
بیخیال لیست بشید از یک فرم استفاده کنید
بعدش هم که حتما کوئری میزنید و ....

[amirkazem]

سلام. آقای hasanhzd میشه بفرماییدهمین کارراتوی فرم چگونه بایدانجام بدیم؟

[Abbas Amiri]

سلام. آقای hasanhzd میشه بفرماییدهمین کارراتوی فرم چگونه بایدانجام بدیم؟

برای ساده تر شدن احتیاجی به اضافه کردن چک باکس نیست . کافی است خصوصیت Miulti Select لیست باکس را به Simple تنظیم کنید و به روی رکوردها کلیک کنید و از تابع زیر استفاده کنید .

Function ListBoxSelectedID(lst As ListBox, ColumnIdx As String) As String
Dim Item As Variant, SumX As Currency
Dim fldName As String, strCriteria As String
If lst.ItemsSelected.Count = 0 Then
Exit Function
End If
For Each Item In lst.ItemsSelected
strCriteria = strCriteria & lst.Column(ColumnIdx, Item) & ", "
Next
ListBoxSelectedID = Left(strCriteria, Len(strCriteria) - 2)
End Function

'Example:
strSQL = "SELECT * FROM MyTable WHERE ID IN(" & ListBoxSelectedID(Me.ListBox1, 0) & ")"


ColumnIdx شماره ستون لیست باکس است که شناسه رکوردها است . در مثال فوق فرض شده اولین ستون همان شناسه جدول است
کدها را امتحان نکرده ام . اگر مشکلی بود گزارش کنید