کار با آرایه ها

[sayana]

من یه آرایه تعریف کردم برای اینکه بتونم متغیرهای زیر رو تعریف کنم
10 تا شعبه و به ازای هر شعبه هم 20 تا کارمند
و یه رکورد هم برای کارمندا که مشخصاتی مثل نام و فامیلی و .. رو ذخیره کنه
من کد رو به اینصورت نوشتم :


Type Employee
name As String
family As String
Base_Salary As Long
code As Long
Salary As Long
End Type
Dim Company(9, 19) As Employee
Dim sum(9) As Long


اما وقتی در اعلان عمومی ( اول code window ) و به عنوان متغیر سراسری تعریفش میکنم موقع اجرای برنامه این error رو میده :

can not define a public user-defined type within a private object module


اگر هم در یک procedure تعریف کنم این error رو میده :

invalid inside procedure

[Best Programmer]

دوست عزیز باید

Public Type Employee
name As String
family As String
Base_Salary As Long
code As Long
Salary As Long
End Type
Dim Company(9, 19) As Employee
Dim sum(9) As Long

اصافه کنی

[کم حوصله]

:!: :!: :!:
ولی من به همون صورت که آتوسا خانوم نوشتند تایپ هایم را در ماژول تولید می کنم و در تمام فرمهایم از آن ها بهره می برم بدون نیاز به پابلیک قرار دادن آنها :?:

[کم حوصله]

ضمنا آتوسا خانوم می دونم با این چیزی که الان می خواهم بگم الان دوباره سرو صدای دوستان در می آید که مگه اینجا مدیر نداره که متذکر باش بخواهد
ولی ...
لطفا ببخشید ها اگر می شه عنوان های تاپیک را معادل با مطالب درون خود تاپیک تعیین کنید :roll:
من و شما به عنوان کاربران قدیمی به قوانین سایت باید احترام بگذاریم تا تازه وارد ها هم یاد بگیرند :)
بازم معذرت می خواهم اگر خودم قوانین سایت را زیر پا گذاشته و به قول دوستان شدم پلیس محله :?