Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 08.06.2011 10:58
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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
Miro
↑  ↓

#2 08.06.2011 12:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 08.06.2011 13:13
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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

#4 08.06.2011 13:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 08.06.2011 14:41
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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

#6 08.06.2011 16:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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:
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 09.06.2011 07:28
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 06 am.