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

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

نقل قول:

---

نوشته شده توسط 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

---

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

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

نقل قول:

---

نوشته شده توسط 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

---

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

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

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

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

---

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

نقل قول:

---

نوشته شده توسط amirzazadeh

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

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

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

---

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

نقل قول:

---

نوشته شده توسط eb_1345

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

---

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