سوال: ذخیره موقت مقدار تکست باکس های یک فرم در خصوصیتtag آنها [بایگانی]

atf1379

شنبه 24 دی 1401, 15:53 عصر

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت tag اونها ذخیره کنم ولی نمیدونم چرا از
ctl.Value ایراد گرفته میشه
اساتید اگه راهنمائی کنن ممنون میشم

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
ctl.Tag = ctl.Value
End If
Next ctl

eb_1345

یک شنبه 25 دی 1401, 11:00 صبح

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت tag اونها ذخیره کنم ولی نمیدونم چرا از
ctl.Value ایراد گرفته میشه
اساتید اگه راهنمائی کنن ممنون میشم

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
ctl.Tag = ctl.Value
End If
Next ctl

سلام
در کد فوق باید شرط بگذارید که اگه کنترل خالی نبودمقدار اون رو در تگ کنترل قرار بده
خط چهارم کدهاتو بصورت زیر تغییره بده :

' If Len(ctl.Value) > 0 Then ctl.Tag = ctl.Value

amirzazadeh

یک شنبه 25 دی 1401, 11:17 صبح

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت tag اونها ذخیره کنم ولی نمیدونم چرا از
ctl.Value ایراد گرفته میشه
اساتید اگه راهنمائی کنن ممنون میشم

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
ctl.Tag = ctl.Value
End If
Next ctl

سلام در مرحله اول اولویت رفرنس ها رو جابجا کنید اگر بازم خطا دریافت کردید کد رو با سلکت کیس بنویسید:

Dim ctl As Control
For Each ctl In Me.Controls
With ctl
Select Case .ControlType
Case acComboBox
ctl.Tag = ctl.Value
Case acTextBox
ctl.Tag = ctl.Value
End Select
End With
Next ctl

atf1379

یک شنبه 25 دی 1401, 12:38 عصر

سلام
در کد فوق باید شرط بگذارید که اگه کنترل خالی نبودمقدار اون رو در تگ کنترل قرار بده
خط چهارم کدهاتو بصورت زیر تغییره بده :

' If Len(ctl.Value) > 0 Then ctl.Tag = ctl.Value

با درج این کد مشکل برطرف شد . ممنون

atf1379

یک شنبه 25 دی 1401, 12:49 عصر

سلام در مرحله اول اولویت رفرنس ها رو جابجا کنید اگر بازم خطا دریافت کردید کد رو با سلکت کیس بنویسید:

Dim ctl As Control
For Each ctl In Me.Controls
With ctl
Select Case .ControlType
Case acComboBox
ctl.Tag = ctl.Value
Case acTextBox
ctl.Tag = ctl.Value
End Select
End With
Next ctl
سلام استاد
نمیدون چرا چند وقتیه وقتی کد یا کدهائی رو از جائی کپی و اونا رو در قسمت کد نویسی پیست می کنم رنگ تعدادی از کدها به حالت نمایش باگ قرمز میشن
من کدهای جنابعالی رو عیناً کپی و در رویداد کلیک یک کمند باتن در فرم وارد کردم ولی همونطور که در تصویر ضمیمه مشاهده می کنی رنگ کدها قرمز شده ان ، در صورتی در کدها هیچ غلط املائی وجود نداره

eb_1345

سه شنبه 27 دی 1401, 11:29 صبح

سلام استاد
نمیدون چرا چند وقتیه وقتی کد یا کدهائی رو از جائی کپی و اونا رو در قسمت کد نویسی پیست می کنم رنگ تعدادی از کدها به حالت نمایش باگ قرمز میشن
من کدهای جنابعالی رو عیناً کپی و در رویداد کلیک یک کمند باتن در فرم وارد کردم ولی همونطور که در تصویر ضمیمه مشاهده می کنی رنگ کدها قرمز شده ان ، در صورتی در کدها هیچ غلط املائی وجود نداره
سلام
مشکل خاصی نداره فاصله کدها رو یکم کم و زیاد کنی درست میشه

atf1379

یک شنبه 02 بهمن 1401, 14:45 عصر

سلام
مشکل خاصی نداره فاصله کدها رو یکم کم و زیاد کنی درست میشه
بله ، درسته !
ممنون از راهنمائی شما