ذخیره موقت مقدار تکست باکس های یک فرم در خصوصیتtag آنها

[atf1379]

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت 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]

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت 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]

سلام
من از طریق کد زیر میخواهم ارزش یا مقدار تمام تکست باکس های یک فرم رو موقتاً در خصوصیت 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]

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

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

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

[atf1379]

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

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]

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

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

[atf1379]

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

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