Bosna i Hercegovina



#1 24.07.2011-14:29
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


Subject: 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
DownloadIzvorni kod (vb.net):
  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:

DownloadIzvorni kod (vb.net):
  1. Private Sub Form_Close()
  2. DoCmd.Close acReport, "rptOtpremnica"
  3. End Sub

Tada se forma zatvori

U modulu imam funkciju:

DownloadIzvorni kod (vb.net):
  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 komentar je mijenjan 1 puta. zadnja izmjena 24.07.2011-14:30 od strane pmiroslav. ↑  ↓

#2 24.07.2011-14:41
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,451


Subject: 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:
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#3 24.07.2011-15:09
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


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

Prilozi:
Informacije o fajlu: rar  Prinjer_PM.rar
Preuzimanja: 20
Veličina: 20.01 KB


Pozdrav
↑  ↓

#4 24.07.2011-15:37
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


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

#5 24.07.2011-20:14
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,451


Subject: 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.
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 19.10.2017-20:57.