Validacija polja
17.08.2010. u 12:21 · pre 197 meseci
#1
Imam par polja gde su sifre u pitanju pa sam htio da postavim validator koji ce onemoguciti unosenje neodgovarajucih karaktera. Pokusao sam to na ovaj nacin medjutim zadnji uslov ne funkcionise dobro i izbacuje mi access-ovu poruku o gresci. Inace treba onemoguciti sve druge karaktere sem brojeva i naravno polje ne smije biti prazno
[Ovu poruku je menjao normandija dana 17.08.2010. u 14:57 GMT+1]
[Ovu poruku je menjao normandija dana 17.08.2010. u 14:58 GMT+1]
Code:
Private Sub Sifra_racunara_txt_LostFocus()
If IsNull(Sifra_racunara_txt) Then
DoCmd.SetWarnings False
MsgBox "Niste unijeli šifru racunara!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Else
If (Sifra_racunara_txt) < 0 Then
DoCmd.SetWarnings False
MsgBox "Šifra racunara ne može biti negativan broj!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Else
If Not IsNumeric(Sifra_racunara_txt) Then
DoCmd.SetWarnings False
MsgBox "Šifra racunara mora biti broj!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Exit Sub
End If
End If
End If
End Sub
Private Sub Sifra_racunara_txt_LostFocus()
If IsNull(Sifra_racunara_txt) Then
DoCmd.SetWarnings False
MsgBox "Niste unijeli šifru racunara!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Else
If (Sifra_racunara_txt) < 0 Then
DoCmd.SetWarnings False
MsgBox "Šifra racunara ne može biti negativan broj!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Else
If Not IsNumeric(Sifra_racunara_txt) Then
DoCmd.SetWarnings False
MsgBox "Šifra racunara mora biti broj!"
DoCmd.SetWarnings True
Sifra_racunara_txt.SetFocus
Exit Sub
End If
End If
End If
End Sub
[Ovu poruku je menjao normandija dana 17.08.2010. u 14:57 GMT+1]
[Ovu poruku je menjao normandija dana 17.08.2010. u 14:58 GMT+1]
Potpis
Bolje izgubiti trenutak u zivotu,nego zivot u trenutku !!!