تحياتي الاخ الكريم
المفترض انها مصفوفة تخزن قيم من جدول فى listbox
Dim itms(400) As String
Dim itm As Integer
For itm = 1 To DMax("ItmNumber", "TItems")
itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm)
List1.AddItem (itms(itm))
Next
اريد تعويض عدد العناصر فى المصفوفة بعدد سجلات الجدول