[es] - Zabrana upisa duplih podataka u text boxove

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Zabrana upisa duplih podataka u text boxove

^{22.10.2007. u 12:23 - pre 200 meseci}

Opisi malo detaljnije situaciju. Da li imas vise Textbox-a pa svi moraju biti razlitih vrednosti ili nesto drugo?
Ako je to u pitanju, onda mislim da je najlakse da napravis niz kontrola i da prilikom dogadjaja LostFocus proveris da li je .Text isto kao i u ostalim elementima niza.
Ili ako ti vise odgovara da na kraju, prilikom potvrde unosa podataka proveris sve elemente. To mozes efikasno uraditi ako izdvojis .Text svojstva u niz stringova a onda taj niz sortiras i prodjes kroz njega poredeci susedne clanove. Ako nadjes iste, najdes koji textbox ima takvu vrednost .text property-a i dajes upozorenje (ili sta vec).

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-3.sezampro.yu.

Profil

Re: Zabrana upisa duplih podataka u text boxove

^{22.10.2007. u 13:01 - pre 200 meseci}

Na formi imam Text1 ... Text15, i u njih treba upisati razlicite podatke, s tim sto svi Textboxovi ne moraju biti popunjeni neki mogu ostati i prazni.
Na koji nacin spreciti da prazne Textboxove prepoznaje kao iste po sadrzaju?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Zabrana upisa duplih podataka u text boxove

^{22.10.2007. u 15:33 - pre 200 meseci}

Pa, prvo proveri da li je prazan i ako nije prazan tek onda vrsis proveru za dupliranjem.

Odgovor na temu

vbbojan
Atanasijevic Bojan
Digit Consulting d.o.o.
Beograd

Član broj: 31580
Poruke: 273
194.106.181.*

Sajt: www.digitconsulting.rs

+20 Profil

Re: Zabrana upisa duplih podataka u text boxove

^{22.10.2007. u 17:40 - pre 200 meseci}

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

Odgovor na temu