كيفية كتابة قيمة المصفوفة من جدول

[ledoledo]

السادة الخبراء  كيف استبدل رقم 400 فى المصفوفة بعدد سجلات جدول معين كما في الكود بالاسفل لان البرنامج يعطي خطأ هل هناك مشكلة فى طريقة الكتابة

Dim Z(400) As String
Dim X As Integer

 

 

Dim Z(Dcount("ItmNumber", "TItems")) As String
Dim X As Integer

 

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

Dim Z As String
Z = (DCount("ItmNumber", "TItems"))

تحياتي

[ledoledo]

Just now, محمد أبوعبدالله said:

السلام عليكم

تفضل اخي الكريم

Dim Z As String
Z = (DCount("ItmNumber", "TItems"))

تحياتي

تحياتي الاخ الكريم

المفترض انها مصفوفة تخزن قيم من جدول فى 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

اريد تعويض عدد العناصر فى المصفوفة بعدد سجلات الجدول

[محمد أبوعبدالله]

تفضل اخي الكريم

وعذرا على التأخير

Dim X As Integer
       X = (DCount("ItmNumber", "TItems"))
ReDim itms(X) 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

تحياتي

[محمد أبوعبدالله]

وللفائدة هذا التطبيق الذي تم التنفيذ عليه

Db14.rar

تحياتي

[ledoledo]

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

[محمد أبوعبدالله]

10 دقائق مضت, ledoledo said:

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

بالتوفيق اخي الكريم

تحياتي