Evo na izvolte:
Prvo umesto 15 tekst boksova Text1, Text2 ....Text15, napravi niz text(0), text(1).......text(14)
i ovo nize ce da radi.
Code:
Private Sub NadjiDupli(intBrojPolja As Integer)
Dim i As Integer, j As Integer
Dim intPredZadnji
Dim blnNasaoDupli As Boolean
intBrojPolja = intBrojPolja - 1 ' Umanji za 1 jer se index broji od nule
intPredZadnji = intBrojPolja - 1 ' Nećemo porediti zadnji u nizu, nema sa kim da se poredi
'Vozi kroz petlju i poredi prvo polje sa ostalima, zatim drugo polje sa ostalima ...
For i = 0 To intPredZadnji
If Text(i) <> "" Then ' Ako je prazan ne gledaj ga
For j = i + 1 To intBrojPolja
If Text(i).Text = Text(j).Text Then
MsgBox "Postoje dva polja sa istim sadržajem."
blnNasaoDupli = True
Text(j).SetFocus 'Malo šminke: Stavi nadjeno polje u fokus i selektuj tekst da se bolje vidi
Text(j).SelStart = 0: Text(j).SelLength = Len(Text(j).Text)
Exit For
End If
Next j
End If
If blnNasaoDupli = True Then 'Nasao je duplikat ne mora dalje da gleda
Exit For
End If
Next i
End Sub
Ovo je malo na brzinu, moze to i bolje da se odradi i da bude univerzalno, no ovo ti vrsi posao za konkretan problem
Pozdrav