Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili 0

Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0" 14.01.2013. u 01:56 · pre 167 meseci #1

Imam mozda malo glupo pitanje, evo koda

Private Sub Dodaj_Click()

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.OpenQuery ("QDodaj")
DoCmd.SetWarnings True

On Error GoTo Err_Dodaj_Click

DoCmd.GoToRecord , , acNewRec
Me.DatumKnjizenja.SetFocus
Me.DatumKnjizenja = ""

Me.Kom = 0
Me.Gr = 0

Me.Dodaj.Enabled = False

Exit_Dodaj_Click:
Exit Sub

Err_Dodaj_Click:
MsgBox Err.Description
Resume Exit_Dodaj_Click

End Sub

Kako ako mi je neko polje null ili "0" da mi se pokaze custom greska i kada se klikne na ok, na pr, kada se pokaze, da se na to polje stavi setfocus i da se dok se ne unese ispravno nista ne unosi u tabelu?

Re: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0" 14.01.2013. u 07:41 · pre 167 meseci #2

Private Sub Dodaj_Click()

If IsNull(Me.PoljeSaFormeKojeNijeNula) Then
MsgBox "Kume ne valja ti rabota", vbCritical, "Upozorenje"
Me.PoljeSaFormeKojeNijeNula.SetFocus
Exit Sub
End If

If Me.PoljeSaFormeKojeTrebaBitiNula = 0 or IsNull(PoljeSaFormeKojeTrebaBitiNula) Then
MsgBox "Kume ne valja ti rabota", vbCritical, "Upozorenje"
Me.PoljeSaFormeKojeTrebaBitiNula.SetFocus
Exit Sub
End If

....
DoCmd.RunCommand acCmdSaveRecord
....

Potpis

http://zoraneremija.wix.com/eremijacv

1

Re: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0" 14.01.2013. u 13:55 · pre 167 meseci #3

Hvala

Cudno ponasanje Message box-ova 23.01.2013. u 21:57 · pre 167 meseci #4

Imam kod koji se cudno ponasa. Kada kliknem na dugme za dodavanje ako su mi trazena polja null treba da mi izbaci message box. To i radi samo za jedno polje. Kada izmenim to polje a stala ostavim null i opet kliknem on mi ubaci a ne izbacuje gresku za ostala. Zna li neko gde gresim :(

Code:
Private Sub Dodaj_Click()
If IsNull(Me.DatumKnjizenja) Then
MsgBox "Molim vas unesite DATUM.", vbInformation, "Greška"
Me.DatumKnjizenja.SetFocus
Exit Sub
Else
If IsNull(Me.Naziv) Then
MsgBox "Molim vas unesite NAZIV KOMITENTA.", vbInformation, "Greška"
Me.Naziv.SetFocus
Exit Sub
Else
If IsNull(Me.BrRacuna) Then
MsgBox "Molim vas unesite BROJ RACUNA.", vbInformation, "Greška"
Me.BrRacuna.SetFocus
Exit Sub
If IsNull(Me.DatumIzdavanja) Then
MsgBox "Molim vas unesite DATUM IZDAVANJA RACUNA.", vbInformation, "Greška"
Me.DatumIzdavanja.SetFocus
Exit Sub
Else
If IsNull(Me.PDVStopa) Then
MsgBox "Molim vas unesite PDV STOPU.", vbInformation, "Greška"
Me.PDVStopa.SetFocus
Exit Sub
Else
If IsNull(Me.IznosSaPDVom) Then
MsgBox "Molim vas unesite IZNOS RACUNA.", vbInformation, "Greška"
Me.IznosSaPDVom.SetFocus
Exit Sub
Else
If IsNull(Me.RokPlacanja) Then
MsgBox "Molim vas unesite ROK PLACANJA.", vbInformation, "Greška"
Me.RokPlacanja.SetFocus
Exit Sub
Else
If Me.txtDaNe = "DA" And IsNull(Me.txtRoba) Then
MsgBox "Molim vas unesite PRODAJNU VREDNOST ROBE.", vbInformation, "Greška"
Me.txtRoba.SetFocus
Exit Sub
Else
If Me.txtDaNe = "DA" And IsNull(Me.VrstaRobe) Then
MsgBox "Molim vas unesite VRSTU ROBE.", vbInformation, "Greška"
Me.VrstaRobe.SetFocus
Exit Sub
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If

....................

Re: Cudno ponasanje Message box-ova 23.01.2013. u 22:50 · pre 167 meseci #5

Ispituj svaki uslov posebno (posle svakog uslova stavi End if, oa onda kreni da ispitujes sledeci)

Re: Cudno ponasanje Message box-ova 24.01.2013. u 07:19 · pre 167 meseci #6

Zoran je lepo ovde napiasao bez preduslova ili poduslova.
http://www.elitesecurity.org/t...i-ako-je-neko-polje-prazno-ili

PS. Ovo je upućeno svim članovima. Dobro razmislite kad u kratkom roku otvarate novu temu, da li pitanje to zaslužuje. Ove dve teme ću spojiti u jednu.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Forum kao aplikacija na telefonu

Srodne teme