miro35 |
08.06.2011 11:58 |
Predmet:Zatvaranje svih formi i reporta
Imam ovu funkciju za zatvaranje svih aktivnih formi,kako staviti još i za reporte.
PreuzmiIzvorni kôd (Text):Public Function Zatvori()
Dim i As Integer
Dim Svega As Integer
'Saznaj broj otvorenih formi
Svega = Forms.Count
'Dimenzioniši niz koji e sadržati nazive formi
ReDim IME(Svega) As String
'Popuni niz nazivima formi
For i = 0 To Svega - 1
IME(i) = Forms(i).Name
Next i
'Zatvori sve otvorene forme osim trenutno aktivne
For i = 1 To Svega - 1
DoCmd.Close acForm, IME(i)
Next i
'Zatvori i trenutno aktivnu formu
'DoCmd.Close acForm, Ime(0)
End Function
|
zxz |
08.06.2011 13:03 |
Predmet:Re: Zatvaranje svih formi i reporta
PreuzmiIzvorni kôd (Visual Basic):Public Function Zatvori()
Dim I As Integer
Dim Imena As String
Dim Svega As Integer
Svega = Forms.Count - 1
ReDim Ime(Svega) As String
For I = 0 To Svega
Ime(I) = Forms(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acForm, Ime(I)
Next I
Svega = Reports.Count - 1
ReDim Ime(Svega) As String
For I = 0 To Svega
Ime(I) = Reports(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acReport, Ime(I)
Next I
End Function
|
miro35 |
08.06.2011 14:13 |
Predmet:Re: Zatvaranje svih formi i reporta
Hvala probat ću,ovo mi treba jer radim odnosno objedinjujem dva programa u jedan.Pravim onaj meni sa strane gdje klikam naziv prvog programa i on mi gore prikaže meni od tog prvog programa tako isto od drugog.Kad to kliknem hoću da mi pozatvara sve aktivne forme i reporte. |
zxz |
08.06.2011 14:37 |
Predmet:Re: Zatvaranje svih formi i reporta
Dodaj samo ovo:
PreuzmiIzvorni kôd (Visual Basic):Public Function Zatvori()
Dim I As Integer
Dim Imena As String
Dim Svega As Integer
Svega = Forms.Count - 1
if svega<0 goto Izvjestaj
ReDim Ime(Svega) As String
Forma:
For I = 0 To Svega
Ime(I) = Forms(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acForm, Ime(I)
Next I
Izvjestaj:
Svega = Reports.Count - 1
if svega<0 goto Kraj:
ReDim Ime(Svega) As String
For I = 0 To Svega
Ime(I) = Reports(I).Name
Next I
For I = 0 To Svega
DoCmd.Close acReport, Ime(I)
Next I
Kraj:
exit function
End Function
|
miro35 |
08.06.2011 15:41 |
Predmet:Re: Zatvaranje svih formi i reporta
Još nešto mi treba u ovoj zadnjoj funkciji:
Treba mi da mi zatvara sve forme osim jedne Koja se zove "frmIzlaz" |
zxz |
08.06.2011 17:14 |
Predmet:Re: Zatvaranje svih formi i reporta
Dodaj ovo:
PreuzmiIzvorni kôd (Visual Basic):For I = 0 To Svega
If Ime(I) <> "frmIzlaz" Then
DoCmd.Close acForm, Ime(I)
End If
Next I
Izvjestaj:
|
miro35 |
09.06.2011 08:28 |
Predmet:Re: Zatvaranje svih formi i reporta
To je to.Ova forma Izlaz mi služi kad se zatvara program ono Kraj rada Da/Ne.Ona se pali kad se pali program i skrivena je. |