Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Access :: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0"

[ Pregleda: 1830 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

steve87
Beograd

Član broj: 154630
Poruke: 36
*.cpe.vektor.net.



+9 Profil

icon Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0"14.01.2013. u 00:56 - pre 136 meseci
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?
 
Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
..106.109.adsl.dyn.beotel.net.

Sajt: zoraneremija.wix.com/erem..


+47 Profil

icon Re: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0"14.01.2013. u 06:41 - pre 136 meseci
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
....
 
Odgovor na temu

steve87
Beograd

Član broj: 154630
Poruke: 36
*.cpe.vektor.net.



+9 Profil

icon Re: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0"14.01.2013. u 12:55 - pre 136 meseci
Hvala
 
Odgovor na temu

steve87
Beograd

Član broj: 154630
Poruke: 36
*.cpe.vektor.net.



+9 Profil

icon Cudno ponasanje Message box-ova23.01.2013. u 20:57 - pre 136 meseci
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

....................
 
Odgovor na temu

Dexxxl
Dejan Stojanovic
Blagi uzas
Knjazevac

Član broj: 252836
Poruke: 212
77-46-249-147.dynamic.isp.telekom.rs.



+9 Profil

icon Re: Cudno ponasanje Message box-ova23.01.2013. u 21:50 - pre 136 meseci
Ispituj svaki uslov posebno (posle svakog uslova stavi End if, oa onda kreni da ispitujes sledeci)
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Cudno ponasanje Message box-ova24.01.2013. u 06:19 - pre 136 meseci
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.
 
Odgovor na temu

[es] :: Access :: Pokazi gresku kada se klikne na dugme u formi ako je neko polje prazno ili "0"

[ Pregleda: 1830 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.