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
Pozdrav
Ovaj post je ureden
1
puta. Posljednja izmjena 24.07.2011 14:30 od strane pmiroslav.