یك سری كد مشترك دارم، چیكار كنم كه كمتر انها را تكرار كنم

[alipoor123@gmail.com]

سلام خدمت دوستان عزیز حرفه ای

یك سری كد دارم و می‌خواهم وقتی هر كدام از فیلدهای فرم كه تغییر كرد این كدها اجرا شوند
یك راهش رو خودم بلدم اینكه برای آپدیت هر كدام از آن فیلدها این كدها رو كپی كنم اما اینكار باعث می‌شه كدها خیلی زیاد بشه و اگر هم بخوام یك تغییر كوچك تو این كدها بدم باید تمام این تغییرها رو تو تمام فیلدها اعمال كنم می‌شه راهنمایی كنید
فكر كنم ماژولها بدرد بخوره ولی بلد نیستم چطور ازشون استفاده كنم

[smderfan]

سلام
شما بايستي از تابع استفاده كنيد.
لطفاً نمونه خودتان را آپ كنيد. (2003)

موفق باشيد

[Ali_Fallah]

با سلام بطور مثال
اگر روی on click دکمه ای کدی نوشته باشید و خواسته باشید که همین کد روی Exit تکست فر خوانی شود باید به طریق زیر عمل کنید که این کار باعث جلوگیری از نوشتن و تکرار کد میشود...


Private Sub Command2_Click()
MsgBox " Close ? "
End Sub

Private Sub Text2_Exit(Cancel As Integer)
Call Command2_Click
End Sub

[mahdi_107]

با سلام
خوب شما يك تابع ايجاد كرده و تمامي كدهاي خود را در آن بنويسيد سپس هرجا كه نياز به كدها داشتيد فقط كافي است نام تابع را فراخواني كنيد.



Private Sub alipoor123()
msgbox("سلام آقاي عليپور")
End Sub

Private Sub Command2_Click()
alipoor123
End Sub

[alipoor123@gmail.com]

با سلام
خوب شما يك تابع ايجاد كرده و تمامي كدهاي خود را در آن بنويسيد سپس هرجا كه نياز به كدها داشتيد فقط كافي است نام تابع را فراخواني كنيد.



Private Sub alipoor123()
msgbox("سلام آقاي عليپور")
End Sub

Private Sub Command2_Click()
alipoor123
End Sub

ممنونم فقط یك چیزی! اونم اینكه من چندتا فرم دارم تو یكی از فرم ها این تابع رو ایجاد كنم كافی و می‌تونم در هر فرمی كه خواستم از اون كدها استفاده كنم