Ovako
If Len(Zr) < 2 Then
MsgBox "Nite uneli prva tri broj banke! Molimo Vas da poslednja dva broja žiro računa - kontrolni brojevi!"
End If
If Not IsNumeric(Zr) Then
If Len(Zr) > 0 Then
Me.Zr = ""
MsgBox "Nije dozvoljen upis slova, dozvoljeno je samo upisivanje brojeva!"
End If
End If
Ako si to trazio ???
|