تعريف متغيري که همواره مقداري را در خود ذخيره نمايد .

[ARData]

سلام
متغيري را مي خوام تعريف کنم که همواره در طول برنامه مقداري ثابت و در صورت نياز قابل تغيير باشد ...
مثلا متغيري به نام intFrmH که فقط در هنگام لود شدن فرم ، مقدار اندازه طول فرم را در خود ذخيره نمايد ولي با ريسايز شدن فرم اين مقدار هيچ تغييري نکند . مي خوام در هنگام لود شدن فرم مقدار اندازه فرم در اين متغير ثبت شود ... ماژولي براي اينکار نوشتم و اطلاعات خواسته شده رو به صورت مسيج باکس استخراج مي کنم ولي متغيري ندارم که همواره اينو در خودش داشته باشه و در زمان خاصي بتونم فراخواني کنم ... مثلا اين مقدارو در يک تکست باکس از فرم قرار بدم : TxtTest = intFrmH
Public Function frmHW()

Dim CurFrm As Form
Dim IntFormH As Long
Dim IntFormW As Long

Set CurFrm = Screen.ActiveForm
IntFormH = CurFrm.InsideHeight
IntFormW = CurFrm.InsideWidth

MsgBox IntFormH & " " & IntFormW

End Function
و در رويداد لود فرم :
Private Sub Form_Load()
Call frmHW
End Sub

[amirzazadeh]

سلام
شما بايد از متغيرهاي گلوبال براي اين منظور استفاده كنيد.براي اطلاعات بيشتر از اين لينك كمك بگيريد:
http://www.blueclaw-db.com/access_database_global_variable.htm
...........................
موفق باشيد

[wolfstander]

سلام
کاری که من میکنم اینه
میام و یه ماژول درست میکنم
و توش این کد ها رو مینویسم


Option Compare Database

Public CstmrCodeSearched As Double ' تعريف کد مشتري جامع جهت استفاده در تمامي فرمها

' ********* تعريف کد فروشنده جامع جهت استفاده در تمامي فرمها*********
Public SalePersonCodeSearched As Double


حالا هرجایی تو فرمهاتون میتونید از این متغیر استفاده کنید

[ARData]

ممنون از توجه شما عزيزان ... کارم با راهنمايي هاي شما حل شد ....