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

pmiroslav	24.07.2011 15: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): Private Sub Form_Close() If IsLoaded("rptOtpremnica") Then DoCmd.Close acReport, "rptOtpremnica" End If End Sub Međutim, forma se zatvori, a report ne. Ako je kod slijedeći: PreuzmiIzvorni kôd (vbnet): Private Sub Form_Close() DoCmd.Close acReport, "rptOtpremnica" End Sub Tada se forma zatvori U modulu imam funkciju: PreuzmiIzvorni kôd (vbnet): Function IsLoaded(ByVal MyFormName As String) As Integer ' Returns True if the specified form is loaded. Dim I IsLoaded = False For I = 0 To Forms.Count - 1 If Forms(I).FormName = MyFormName Then IsLoaded = True Exit Function ' Quit function once form has been found. End If Next End Function

pmiroslav

24.07.2011 15: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):

Private Sub Form_Close()
If IsLoaded("rptOtpremnica") Then
DoCmd.Close acReport, "rptOtpremnica"
End If
End Sub

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

PreuzmiIzvorni kôd (vbnet):

Private Sub Form_Close()
DoCmd.Close acReport, "rptOtpremnica"
End Sub

Tada se forma zatvori

U modulu imam funkciju:

PreuzmiIzvorni kôd (vbnet):

Function IsLoaded(ByVal MyFormName As String) As Integer
' Returns True if the specified form is loaded.
Dim I
IsLoaded = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = MyFormName Then
IsLoaded = True
Exit Function ' Quit function once form has been found.
End If
Next
End Function

zxz	24.07.2011 15: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): Function IsLoadedR(ByVal MyRPTName As String) As Integer ' Returns True if the specified form is loaded. Dim I IsLoadedR = False For I = 0 To Reports.Count - 1 If Reports(I).FormName = MyRPTName Then IsLoadedR = True Exit Function ' Quit function once form has been found. End If Next End Function

zxz

24.07.2011 15: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):

Function IsLoadedR(ByVal MyRPTName As String) As Integer
' Returns True if the specified form is loaded.
Dim I
IsLoadedR = False
For I = 0 To Reports.Count - 1
If Reports(I).FormName = MyRPTName Then
IsLoadedR = True
Exit Function ' Quit function once form has been found.
End If
Next
End Function

pmiroslav	24.07.2011 16: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)