Zatvaranje svih aktivnih formi

[ drla stroga @ 15.03.2006. 09:34 ] @

Nije hitno uopste, mada bi volio da znam kako da zatvorim odjednom sve aktivne forme. U pitanju je sledeca stvar: u programu na samom pocetku izaberemo jednu "firmu" za koju se kreiraju neki dokumenti (racuni, narudzbenice i sl.) i cijeli tok aplikacije vezan je za odabranu firmu (npr automatski se upisuje ID od te firme u tabelu racuna, narudzbi i slicno). E sad kad se zelim prebaciti na sledecu "firmu" zelim da sve aktivne forme od prethodne firme zatvorim i rad aplikacije pocnem od pocetka za drugu firmu. Vjerovatno je rjesenje jednostavno ali ne stignem da prelistam kjige o Access-u koje imam pa rekoh mozda neko ima iskustva sa ovim ;)

[ vmatoic @ 15.03.2006. 09:57 ] @

Pa, najjednostavnije ti je ugasiti Access i otvoriti aplikaciju ponovo. :-)

[ drla stroga @ 15.03.2006. 10:35 ] @

Znaci samo quit, ha?
Pa to i jeste rjesenje u stvari ali moze biti da bi to nerviralo potencijalne korisnike.

[ vmatoic @ 16.03.2006. 09:59 ] @

A ne mogu reci da im nisi dao izbora. Ili zele zatvarati formu po formu ili ces zatvoriti ili otvoriti aplikaciju. :-)

[ mkaras @ 17.03.2006. 08:26 ] @

Probaj ovako:

Code:

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)

[ drla stroga @ 17.03.2006. 12:52 ] @

HVALA VELIKO mkaras !
Ubacio sam ovaj kod u on activate dogadjaj forme za odabir firme ali sa malom izmjenom, izbacio sam dio koji zatvara trenutno aktivnu formu jer ona stoji gore u uglu aplikacije stalno otvorena na njoj je logo firme za koju se dokumenta rade a ujedno iz nje se upisuje ID_Firme u tabele racuna, narudzbenica itd. Radi savrseno, hvala jos jednom!

_{[Ovu poruku je menjao drla stroga dana 17.03.2006. u 14:07 GMT+1]}