[ 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 |