miro35 08.06.2011 10: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):
  1. Public Function Zatvori()
  2. Dim i As Integer
  3. Dim Svega As Integer
  4.  
  5. 'Saznaj broj otvorenih formi
  6. Svega = Forms.Count
  7.  
  8. 'Dimenzioniši niz koji e sadržati nazive formi
  9. ReDim IME(Svega) As String
  10.    
  11. 'Popuni niz nazivima formi
  12. For i = 0 To Svega - 1
  13.     IME(i) = Forms(i).Name
  14. Next i
  15.  
  16. 'Zatvori sve otvorene forme osim trenutno aktivne
  17. For i = 1 To Svega - 1
  18.     DoCmd.Close acForm, IME(i)
  19. Next i
  20.  
  21. 'Zatvori i trenutno aktivnu formu
  22. 'DoCmd.Close acForm, Ime(0)
  23. End Function

zxz 08.06.2011 12:03
Predmet:Re: Zatvaranje svih formi i reporta

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Zatvori()
  2. Dim I As Integer
  3. Dim Imena As String
  4. Dim Svega As Integer
  5.  
  6.  
  7. Svega = Forms.Count - 1
  8. ReDim Ime(Svega) As String
  9. For I = 0 To Svega
  10. Ime(I) = Forms(I).Name
  11. Next I
  12. For I = 0 To Svega
  13. DoCmd.Close acForm, Ime(I)
  14. Next I
  15.  
  16. Svega = Reports.Count - 1
  17. ReDim Ime(Svega) As String
  18. For I = 0 To Svega
  19. Ime(I) = Reports(I).Name
  20. Next I
  21. For I = 0 To Svega
  22. DoCmd.Close acReport, Ime(I)
  23. Next I
  24. End Function

miro35 08.06.2011 13: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 13:37
Predmet:Re: Zatvaranje svih formi i reporta

Dodaj samo ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Zatvori()
  2. Dim I As Integer
  3. Dim Imena As String
  4. Dim Svega As Integer
  5.  
  6.  
  7. Svega = Forms.Count - 1
  8. if svega<0 goto Izvjestaj
  9. ReDim Ime(Svega) As String
  10. Forma:
  11. For I = 0 To Svega
  12. Ime(I) = Forms(I).Name
  13. Next I
  14. For I = 0 To Svega
  15. DoCmd.Close acForm, Ime(I)
  16. Next I
  17. Izvjestaj:
  18. Svega = Reports.Count - 1
  19. if svega<0 goto Kraj:
  20. ReDim Ime(Svega) As String
  21. For I = 0 To Svega
  22. Ime(I) = Reports(I).Name
  23. Next I
  24. For I = 0 To Svega
  25. DoCmd.Close acReport, Ime(I)
  26. Next I
  27. Kraj:
  28. exit function
  29. End Function

miro35 08.06.2011 14: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 16:14
Predmet:Re: Zatvaranje svih formi i reporta

Dodaj ovo:

PreuzmiIzvorni kôd (Visual Basic):
  1. For I = 0 To Svega
  2.     If Ime(I) <> "frmIzlaz" Then
  3.     DoCmd.Close acForm, Ime(I)
  4.     End If
  5. Next I
  6. Izvjestaj:

miro35 09.06.2011 07: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.