خطای تکراری در کمبوباکس ها در یوزرفرم

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mohammad59

    • 2014/03/13
    • 64

    [حل شده] خطای تکراری در کمبوباکس ها در یوزرفرم

    سلام و درود

    من در یوزرفرم 10 تا کمبو باکس دارم که اطلاعات هر کمبوباکس یکسان می باشد یعنی اگر در کمبوباکس1 فرضا a b c d باشد در 9 ت کمبو باکس هم همین اطلاعات یکسان تعریف کردم

    که با توجه به این می خوام کدی بنویسم که اگر در یکی از کمبوباکس ها یکی از اطلاعات انتخاب کردم اگر در کمبوباکس دیگری هم انتخاب بشه خطای تکراری بده و کمبوباکس رو خالی کنه.

    با سپاس
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    یک نمونه یوزرفرم با چهار کمبوباکس تهیه گردید. بررسی بفرمایید

    کد PHP:
    Private Sub UserForm_Initialize()

    For 
    1 To 4

    Me
    .Controls("combobox" i).AddItem "A"
    Me.Controls("combobox" i).AddItem "B"
    Me.Controls("combobox" i).AddItem "C"
    Me.Controls("combobox" i).AddItem "D"
    Me.Controls("combobox" i).AddItem "E"

    Next

    ComboBox1
    .SetFocus

    End Sub

    Private Sub ComboBox1_Change()

    For 
    2 To 4

    If Me.Controls("combobox" i) = ComboBox1 Then

    ComboBox1 
    ""

    End If

    Next

    End Sub

    Private Sub ComboBox2_Change()


    For 
    1 To 1

    If Me.Controls("combobox" i) = ComboBox2 Then

    ComboBox2 
    ""

    End If

    Next

    For 3 To 4

    If Me.Controls("combobox" i) = ComboBox2 Then

    ComboBox2 
    ""

    End If

    Next

    End Sub

    Private Sub ComboBox3_Change()

    For 
    1 To 2

    If Me.Controls("combobox" i) = ComboBox3 Then

    ComboBox3 
    ""

    End If

    Next

    For 4 To 4

    If Me.Controls("combobox" i) = ComboBox3 Then

    ComboBox3 
    ""

    End If

    Next

    End Sub

    Private Sub ComboBox4_Change()

    For 
    1 To 3

    If Me.Controls("combobox" i) = ComboBox4 Then

    ComboBox4 
    ""

    End If

    Next

    End Sub 
    فایل های پیوست شده

    کامنت

    • mohammad59

      • 2014/03/13
      • 64

      #3
      خیلی سپاسگزارم
      واقعا ممنون

      کامنت

      • mohammad59

        • 2014/03/13
        • 64

        #4
        فقط اگر پیام خطا تکراری رو هم میذاشتید عالی می شد
        Msgbox""

        کامنت

        • iranweld

          • 2015/03/29
          • 3341

          #5
          نوشته اصلی توسط mohammad59
          فقط اگر پیام خطا تکراری رو هم میذاشتید عالی می شد
          Msgbox""
          بعد از هر کمبوباکس که خالی میشه
          کد PHP:
          ComboBox1 ""
          msgbox "تکراری" 
          قرار بدید

          کامنت

          • mohammad59

            • 2014/03/13
            • 64

            #6
            سپاسگزارم

            کامنت

            • mohammad59

              • 2014/03/13
              • 64

              #7
              استاد ببخشید msgbox رو گذاشتم ولی وقتی پیام میده 9 بار تکرار میشه

              کامنت

              • iranweld

                • 2015/03/29
                • 3341

                #8
                نوشته اصلی توسط mohammad59
                استاد ببخشید msgbox رو گذاشتم ولی وقتی پیام میده 9 بار تکرار میشه
                با کمی تغییر در کدنویسی

                کد PHP:
                If Me.Controls("combobox" i) = ComboBox1 And Len(ComboBox1) > 0 Then

                ComboBox1 
                ""

                MsgBox "tekrari" 
                فایل های پیوست شده

                کامنت

                • mohammad59

                  • 2014/03/13
                  • 64

                  #9
                  حل شد
                  خیلی ممنون

                  کامنت

                  چند لحظه..