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