[ deniah @ 08.12.2008. 00:45 ] @
Imam 13 tekst polja sa nazivom txtAddData. Treba da provjerim duzinu teksta u svakom polju i ako prelazi neki broj da javi gresku. Duzina dozvoljenog teksta je razlicita od polja do polja.
Ja sam ovo uradio sa funkcijom koja vraca true kad nadje prekoracenje

Code:
    
Public Function Validate_Entry as Boolean

If Len(txtAddData(0)) > 50 Then
      Call MsgBox("Prešli ste broj dozvoljenih karaktera na polju " & Label(0).Caption, vbCritical, "Greška!")
      Validate_Entry = True
      Exit Function
End If

.
.
.
end function




i ovako 13 puta

Moze li ovo da se uradi sa Select Case naredbom ili nekako drugacije da se ne ponavljaju svaki put zadnje tri naredbe.

Provjera treba da se uradi posto se popune sva polja, pa mi dogadjaji KeyDown i KeyPress ne odgovaraju
[ Shadowed @ 08.12.2008. 07:52 ] @
Stavis u "for i = 0 to 12" i umesto indeksa stavis i?
[ Marko_L @ 08.12.2008. 12:13 ] @
Zar nije bolje da jednostavno staviš MaxLength property textboxa na 50 ? Tako nema oruka u grešci, a opet user ne može da unese više od 50 karaktera po textboxu. Ako pričamo u usability-ju, ovo je mnogo elegantnije rešenje.
[ deniah @ 08.12.2008. 13:34 ] @
To bi bilo rjesenje. Kad bi znali koliko sam sinoc razbijao glavu oko ovoga.

For Next ne moze posto je duzina razlicita za skoro svako polje.

Hvala :)