Bosna i Hercegovina



#1 08.06.2011-10:58
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Zatvaranje svih formi i reporta
Imam ovu funkciju za zatvaranje svih aktivnih formi,kako staviti još i za reporte.
DownloadIzvorni kod (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

Miro
↑  ↓

#2 08.06.2011-12:03
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Subject: Re: Zatvaranje svih formi i reporta
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#3 08.06.2011-13:13
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: 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.
Miro
↑  ↓

#4 08.06.2011-13:37
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Subject: Re: Zatvaranje svih formi i reporta
Dodaj samo ovo:
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#5 08.06.2011-14:41
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: 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"
Miro
↑  ↓

#6 08.06.2011-16:14
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,837


Subject: Re: Zatvaranje svih formi i reporta
Dodaj ovo:

DownloadIzvorni kod (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:

Pozdrav
↑  ↓

#7 09.06.2011-07:28
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: 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.
Miro
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 17.12.2018-10:37.