pmiroslav 24.07.2011 14:29
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

zxz 24.07.2011 14:41
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

pmiroslav 24.07.2011 15:09
Predmet:Re: Zatvaranje Preview prozora

Probao sam i to ali opet ne radi.
Evo primjer:
Prilozi:
Prinjer_PM.rar (Velicina datoteke:20.01 KB)

pmiroslav 24.07.2011 15:37
Predmet:Re: Zatvaranje Preview prozora

Ups..
sada sam primjetio da si u nazivu funkcije dodao "R"
Sada radi,
Hvala

zxz 24.07.2011 20:14
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.