Prikazi cijelu temu 10.02.2011 01:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Naredba END
Dali koristite naredbu end?
Vjerovatno znate za nju a jos vjerovatnije niste je nikada koristili.
Pored naredbi exit iend sub end function itd kome treba samo end. A vjerovatno vam je trebala.
Evo jedan primjer.
Svi znate napraviti komandi taster preko vizarda za podizanje nekog izzvjetsja i to nije problem.
Poslije razmisljate logicno zasto izvjestaj otvarati ako nema podataka te napravite kod da se uzvjestaj zatvori ako nema izvjestaja. Najzgodnije to odraditi na dogadjaj no data na izvjestaju. Dovoljno je napisati
Msgbox "Nema podataka" i
cancel=-1

Ali sad imamo drugi problem a to je da se u kodu koji smo napravili na komandnom tasteru za podizanje izvjestaja pojavljuje greska.
Eto vidite tu vam treba naredba end u stvari da se zaustavi izvrsenje koda poslije cancel=-1
Pa bi kod na no data izgledao ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Report_NoData(Cancel As Integer)
  2. MsgBox "Nema podataka"
  3. DoCmd.CancelEvent
  4. End
  5. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 24.05.2012 18:50 od strane zxz.