Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 24.07.2011 14:29
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Zatvaranje Preview prozora
Imam formu iz koje Å¡aljem viÅ¡e različitih reporta na printanje. Prije izvrÅ¡enje naredbe za printanje otvaram istovremeno navedenu formu određeni report u "Preview" modu.
I sada kada zatvaram tu formu želim da mi se zatvori i prozor sa Reportom pa sam napisao slijedeći kod
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Close()
  2. If IsLoaded("rptOtpremnica") Then
  3. DoCmd.Close acReport, "rptOtpremnica"
  4. End If
  5. End Sub

Međutim, forma se zatvori, a report ne.
Ako je kod slijedeći:

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Close()
  2. DoCmd.Close acReport, "rptOtpremnica"
  3. End Sub

Tada se forma zatvori

U modulu imam funkciju:

PreuzmiIzvorni kôd (vbnet):
  1. Function IsLoaded(ByVal MyFormName As String) As Integer
  2. ' Returns True if the specified form is loaded.
  3.     Dim I
  4.     IsLoaded = False
  5.     For I = 0 To Forms.Count - 1
  6.         If Forms(I).FormName = MyFormName Then
  7.             IsLoaded = True
  8.             Exit Function       ' Quit function once form has been found.
  9.         End If
  10.     Next
  11. End Function
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 24.07.2011 14:30 od strane pmiroslav. ↑  ↓

#2 24.07.2011 14:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Zatvaranje Preview prozora
I da nisi stavio proceduru znam je a znam i da je iz solution primjera i kako vidis ona provjerava samo dali je neka forma otvorena a ne dali je otvoren i izvjestaj.

Procedura bi trebala ovakva:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function IsLoadedR(ByVal MyRPTName As String) As Integer
  2. ' Returns True if the specified form is loaded.
  3.    Dim I
  4.     IsLoadedR = False
  5.     For I = 0 To Reports.Count - 1
  6.         If Reports(I).FormName = MyRPTName Then
  7.             IsLoadedR = True
  8.             Exit Function       ' Quit function once form has been found.
  9.        End If
  10.     Next
  11. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 24.07.2011 15:09
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Zatvaranje Preview prozora
Probao sam i to ali opet ne radi.
Evo primjer:

Prilozi:
Informacije o tipu datoteke za:rar  Prinjer_PM.rar
Preuzimanja:354
Velicina datoteke:20.01 KB

Pozdrav
↑  ↓

#4 24.07.2011 15:37
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Zatvaranje Preview prozora
Ups..
sada sam primjetio da si u nazivu funkcije dodao "R"
Sada radi,
Hvala
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 24.07.2011 15:38 od strane pmiroslav. ↑  ↓

#5 24.07.2011 20:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Zatvaranje Preview prozora
Nisam smio ostaviti isto ime jer ti mozda i ona treba.
r- kao report eto.
Ako te to ne podsjeca na to ti je prekumi hehehe.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 00 am.