Zabrana upisa duplih podataka u text boxove

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