ما الخلل في هذ السطر

السلام عليكم ورحمة الله

الخلل هو ان الـ DIM بحاجة الى رقم ثابت

ولكن الحل هو

Dim Hadith() as string
Redim Hadith(cInt(text1))

كذللك تستطيع التصريح أولا بالمتغير ثم تقوم بإعطائه الخاصية

للجدول مثلا

DIM Nbr AS INTEGER

ثم

NBR = 3000

DIM TABLBE(NBR) AS String

أخي العزيز علما أن الرقم في

NBR

لا يتجاوز ال 32762

حض موفق

الحاج نقبيل

برمجة عامة

شكرا لكما اخوي العزيزين

ولكن ما زالت المشكلة قائمة حيث أنني اضع الكود في:

General_Declarations

وتظهر لي هذه المسج

Compile error:

Invalid outside procedure

وشكرا

اظن ان السطر

NBR = 3000

يجب ان لا يكون فى الGenral جرب وضعه فى fORM LOAD

السلام عليكم ورحمة الله...

أخي booknet

يجب ان يكون كالتالي

الكود Redim يجب ان يكون داخل الفورم لود او اي روتين او دالة داخليه

وليس في الجنرل.......