Prikazi cijelu temu 10.02.2011-01:41
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: 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:
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Report_NoData(Cancel As Integer)
  2. MsgBox "Nema podataka"
  3. DoCmd.CancelEvent
  4. End
  5. End Sub

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 24.05.2012-18:50 od strane zxz.