Comparing values in textboxes evertime combo_changeevent trigers

[pedie]

Hi, I have a long way of coding it however i want efficient code to comparing values in textboxes everytime combo value is changed.
I want to check in Userform textbox1 to textbox7 to see if there is any duplication....text values.


Thanks in advance.

 

[HalfAce]

Hi Pedie,
Not knowing all your details, does something like this example help?

Private Sub TextBox1_Change()
Dim ThisControl As Control
For Each ThisControl In Me.Controls
  If TypeName(ThisControl) = "TextBox" And ThisControl.Name <> "TextBox1" Then
    If ThisControl.Value = Me.TextBox1.Value Then _
      MsgBox "Got a duplicate entry here Pedie..."
  End If
Next ThisControl
End Sub

Perhaps you can reverse engineer this to get what you need. If not then can I have more details?

Dan

EDIT: (Oh yeah, remember this is in xl03...)

 

[pedie]

Hi Dan, nice to see you around after a long time...
hmmm... it works great! however this check just texbox1 value right?

I want to check texbox1 with all other textboxes
like texbox2 with others, texbox3 with others and so one

Thanks again Dan!

 

[HalfAce]

Yep, it only compares the textbox getting the entry to all the other textboxes.

You can however, (since you're only dealing with a handfull of textboxes), just add the same code to each textbox.
You'll want to amend each one like so:

Private Sub TextBox[B][COLOR=Red]2[/COLOR][/B]_Change()
Dim ThisControl As Control
For Each ThisControl In Me.Controls
  If TypeName(ThisControl) = "TextBox" And ThisControl.Name <> "TextBox[COLOR=Red][B]2[/B][/COLOR]" Then
    If ThisControl.Value = Me.TextBox[COLOR=Red][B]2[/B][/COLOR].Value Then _
      MsgBox "Got a duplicate entry here Pedie, in " & ThisControl.Name
  End If
Next ThisControl
End Sub

(I also added a bit to tell you in which textbox the duplicate(s) can be found...

 

[pedie]

Yep! this will do...Thank you very much!
Earlier my code was full of Ifs

Thanks again Dan!

 

[HalfAce]

Anytime, anytime.