Prikazi cijelu temu 24.07.2011 14:29
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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.