نوع متغير در تعريف textbox از طريق controls

Collapse
X
 
  • زمان
  • نمایش
Clear All
new posts
  • Amir Ghasemiyan

    • 2013/09/20
    • 4476

    نوع متغير در تعريف textbox از طريق controls

    سلام به همه اساتيد عزيز

    دوستان من يك كد نوشتم نياز دارم يك متغير رو در يك textbox كه شمارش رو كاربر وارد ميكنه بريزم.
    از كد زير استفاده كردم

    کد:
    UserForm1.Controls("TextBox" & i)
    ولي خطا ميده.
    متن خطا:
    کد:
    run time error '-2147024809 (80070057)'
    Could not find the specified object
    نوع متغير رو چي بايد بذارم كه اين خطا بوجود نياد؟
    ميدونم كه مشكل كتابخانه اي نداره چون بجاي متغير از عدد استفاده كردم و بدون مشكل كار كرد
  • Amir Ghasemiyan

    • 2013/09/20
    • 4476

    #2
    حل شد دوستان

    متغير رو string تعريف كردم و كد رو هم اينطوري اصلاح كردم
    کد:
    w="textbox" & i
    UserForm1.Controls(w)
    دوستان اگه راه ديگه اي سراغ دارين ممنون ميشم بگين

    کامنت

    • Nima

      • 2011/07/22
      • 385

      #3
      امیر جان با استفاده از یک hf میتونی اول بگی اگر control تکست باکس بود بعد...
      کد:
      
      For Each cCont In Me.Controls   ' 
               If TypeName(cCont) = "TextBox" Then
      ************************************
      No LION's roar ruins my hut, I afraid of TERMITE's silence
      ************************************

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4476

        #4
        نوشته اصلی توسط nima
        امیر جان با استفاده از یک hf میتونی اول بگی اگر control تکست باکس بود بعد...
        کد:
        
        For Each cCont In Me.Controls   ' 
                 If TypeName(cCont) = "TextBox" Then
        ممنون محمد جان.
        اين رو بلدم ولي به كار من نمياد. چون اسم تكست باكس مشخصه نياز به حلقه نيست. درضمن چند تا تكست باكس دارم و فقط بايد روي يكيش اعمال بشه

        کامنت

        • Nima

          • 2011/07/22
          • 385

          #5
          یک راه دیگه هم استفاده از تگهای مشابه برای کنترلهاست تگ تمام تکست باکسهارو بزار M بعد:
          کد:
          For Each CTL In Me.Controls
          
           If CTL.Tag = "M" Then
          ************************************
          No LION's roar ruins my hut, I afraid of TERMITE's silence
          ************************************

          کامنت

          Working...