Logout iz baze podataka (promjena korisnika)

[ Scelle @ 09.09.2007. 22:51 ] @

Imam standardni sistem za upravljanje korisnicima (tabela sa korisnicima, pracenje pristupa i login forma) i palo mi je na pamet da na glavnu formu postavim i LOGOUT dugme.
Dakle, kada na njega kliknem, da se zatvore sve aktivne (otvorene) forme i da se ponovo otvori forma za LOGIN.

Prvo sto mi je palo na pamet je da napravim to tako sto ce ovo dugme da odradjuje komandu "Compact And Repair", ali ne mogu da napisem pravi kod.

Moze li mi neko pomoci? DoMenuItem...........
Bilo bi dobro da neko napise gdje mogu naci spisak ovih komandi, prekopah sve helpove.

Drugi nacin (losiji) je da zatvorim sve forme i onda ponovo otvorim frmLogin. Pogadjate, ne znam ni ovo da uradim.

Da li je moguce odraditi Close komandu nad kolekcijom Forms (svim otvorenim formama)?

_{[Ovu poruku je menjao Scelle dana 10.09.2007. u 05:40 GMT+1]}

[ Getsbi @ 10.09.2007. 06:39 ] @

Ako u pretragu upišeš Comapct dobićeš više toga.

Pogledaj ovaj link:
http://www.elitesecurity.org/t244400-0#1469092

ili ovaj Zidarev

http://www.elitesecurity.org/t156018-0#1017822

Može i zatvaranje kolekcije formi, samo moram malo kasnije da pronađem to parče koda.

Evo ga i kod:
Private Sub Zatvori_sve_Click()
Dim Forma As Form
Dim Ime_Dok As String

Ime_Dok = ""
For Each Forma In Forms 'ispituje u otvorenim obrascima i puni Ime_Dok
If Forma.Name <> "Izborni meni" Then
Ime_Dok = Forma.Name
DoCmd.Close acForm, Ime_Dok
End If
Next
End Sub

_{[Ovu poruku je menjao Getsbi dana 10.09.2007. u 07:54 GMT+1]}

[ Scelle @ 10.09.2007. 21:33 ] @

Ne, ne pomaze...

U prvom slucaju zato sto mi hvali funkcija FileExists - bar on tako kaze.

U drugom slucaju ne moze odraditi CompactRepair na vec otvorenoj bazi,

a u trecem slucaju mi u najboljem slucaju zatvoru jednu formu i odmah predje na otvaranje forme frmLogin.
Evo koda koji sam ukucao:

Code:
Private Sub cmdLogout_Click()
If MsgBox("Da li ste sigurni?", vbQuestion + vbYesNo, "Logout") = vbYes Then
Dim Forma As Form
Dim Ime_Dok As String
Ime_Dok = ""
For Each Forma In Forms 'ispituje u otvorenim obrascima i puni Ime_Dok
Ime_Dok = Forma.Name
MsgBox Ime_Dok
DoCmd.Close acForm, Ime_Dok
Next
DoCmd.OpenForm "frmLogin"
End If
End Sub

Napominjem da mi je forma frmLogin skrivena.

Ali u svakom slucaju, ja sam mislio da odradim to preko neke DoMenuItem komande.
Kao na primjer ova PASTE komanda: DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70

[ Getsbi @ 10.09.2007. 22:06 ] @

To za CompaktRepair na otvorenoj bazi mi je jasno. Samo sam prosledio link broj 2 bez udubljivanja. Sama kompresija bez reparacije može da se radi na otvorenom fajlu i to je onaj prvi link. Tamo imaš funkciju FileExist i moja je greška što je nisam zakačio. Ona može da stoji u nekom globalnom modulu da bi bila vidljiva celoj aplikaciji. Evo koda:

Function FileExists(strFile As String) As Boolean
Dim i As Integer

On Error Resume Next
i = Len(Dir(strFile))
FileExists = (Not Err And i > 0)

End Function
Sad će ti raditi kompresija ali ti to ne rešava želju oko logouta. Nažalost onaj kod sa zatvaranjem formi kroz For Eceh petlju ne radi ni kod mene. To sam takođe brzopleto postavio na post bez provere.

_{[Ovu poruku je menjao Getsbi dana 10.09.2007. u 23:22 GMT+1]}

[ Scelle @ 11.09.2007. 02:05 ] @

Pronasao sam zadovoljavajuce resenje na adresi: http://www.mvps.org/access/forms/frm0040.htm

Evo i kako izgleda:

Code:
Private Sub cmdLogout_Click()
If MsgBox("Da li ste sigurni?", vbQuestion + vbYesNo, "Logout") = vbYes Then

'**** dio koda sa sajta http://www.mvps.org/access/forms/frm0040.htm ****
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
'**** kraj dijela koda sa sajta ****

DoCmd.OpenForm "frmLogin"
End If
End Sub

Vrlo jednostavna Do While petlja koja se zasniva na cinjenici da indeks odredjene forme u kolekciji "propada" ako se neka forma zatvori. Dakle, ako imamo tri forme sa indeksima 0, 1 i 2, kada zatvorimo formu 0, dodje do "propadanja" indeksa i sada imamo forme 0 (ranije 1) i 1 (ranije 2). Ako opet zatvorimo formu 0, forma 1 dobija indeks 0. Genijalno resenje!

[ Getsbi @ 11.09.2007. 05:56 ] @

Elegantno rešenje. Stranu sajta Table Of Contents sam dodao u korisne linkove.