PDA

View Full Version : مشکل در تعريف فيلد فرضي



ARData
چهارشنبه 08 تیر 1390, 15:08 عصر
Private Sub Command26_Click()
Dim FldX As Field
Set FldX = Forms!FrmElementsMain!FrmCalculResult!ResRecDescri ption1
FldX = 25
End Sub


با سلام و عرض خسته نباشيد خدمت اساتيد محترم

مي خوام فيلد فرضي FldX را طوري تعريف کنم که هر کجا به خصوصيات FldX اشاره کنم يا تغيير دهم منظور فيلد Forms!FrmElementsMain!FrmCalculResult!ResRecDescri ption1 باشد . همانطوري که در مثال اشاره شده FldX = 25 شده که منظور مقدار Forms!FrmElementsMain!FrmCalculResult!ResRecDescri ption1 است ولي مثال بالا فرضيه و عملکرد ندارد .

مهدی قربانی
چهارشنبه 08 تیر 1390, 18:26 عصر
سلام
قراره عدد 25 به عنوان مقدار وارد بشه ؟ ضمن اينكه اشاره به اشياء و كنترل هاي يك ديتابيس تابع قواعد و سينتكسهاي خاصيه بنابراين توصيه ميكنم در قالب نمونه طرح سئوال بفرمائيد .

Zero Defect
چهارشنبه 08 تیر 1390, 18:56 عصر
ُسلام

در وحله اول یک مشکل واضح در کد شما وجود داره

این معرفی اولیه غلط هستش

Dim FldX As Field

چرا که Forms!FrmElementsMain!FrmCalculResult!ResRecDescri ption1 اشاره به یک کنترل داره و نه یک فیلد

پس با تغییر اون بخش به صورت زیر مشکل اولیه شما باید حل بشه

Dim FldX As Control

ضمن اینکه Fldx یک متغیر هستش و نه یک فیلد

کدتون در نهایت میتونه یه چیزی مشابه همین کد زیر باری


Dim TargetControl As Control
Set TargetControl = Forms![SampleForm]![SampleFieldName]
TargetControl.FontBold = True
TargetControl = 25

البته مشخص نیست شما این سئوال رو کلا برای حل چه مشکلی مطرح کردید تنها مزیتی که این روش داره خلاصه سازی در کد نویسی هستش و لیکن در مقابل منابع بیشتری رو هم مصرف میکنه