[ gorancir @ 26.05.2005. 22:37 ] @
Kako da u Accessu uklonim tastere za minimize, maximize i close ali glavnog programa, tj. aplikacije.

Znaci znam da uklonim na formi, to je lako... Ali, video sam nesto slicno, da moze da se iskljuci funkcija Close na X aplikacije.

Treba mi da ne moze da se zatvori.
[ mika @ 27.05.2005. 07:27 ] @
Tastere ne možeš da ukloniš ali možeš da onemogućiš izlaz iz aplikacije. Evo kako sam to ja uradio:

- deklarišeš globalnu boolean promenljivu, npr pBoolCloseAccess, i staviš da joj je inicijalna vrednost false;
- Treba da imaš jednu skrivenu formu koja će stalno da stoji u pozadini i da ima sledeći kod u sebi, na onUnload eventu:

Code:

Private Sub Form_Unload(cancel As Integer)
    If Not pboolCloseAccess Then
        cancel = True
    End If
End Sub


... dakle, da onemogućava izlazak iz aplikacije. Zapamti, ta forma treba da ti stalno stoji u programu, i najbolje je da bude hidden. Inače, meni je to login forma, u kojoj korisnici ukucavaju username i password. Posle logina, ona ide u hidden stanje.

- Kada hoćeš da korisniku dozvoliš izlaz iz aplikacije (najbolje klikom na neku ikonicu ili tako nešto), napišeš sledeći kod za onClick event te ikonice:
Code:

Private Sub icnQuit_Click()
    Dim intAnswer As Integer
    
    intAnswer = MsgBox("Da li želite da napustite program?", vbYesNoCancel + vbQuestion)
    If intAnswer = vbYes Then
        'Zatvara prozor i gasi Access
        pboolCloseAccess = True
        DoCmd.Close
        DoCmd.Quit 
    End If
End Sub


Eto, mislim da sam najprostije objasnio, a ti se javi ako zapneš negde. Zdravo!
[ gorancir @ 27.05.2005. 16:53 ] @
hvala, kod je keva
[ gorancir @ 28.05.2005. 12:07 ] @
deklarišeš globalnu boolean promenljivu, npr pBoolCloseAccess, i staviš da joj je inicijalna vrednost false;


Kako da deklarisem?

kako ide sintaksa?
dim...
[ mika @ 30.05.2005. 09:15 ] @
Izvini, ali ako ne znaš da deklarišeš promenljivu da bude boolean, i da joj dodeliš inicijalnu vrednost false, onda znači da nisi baš upućen u VBA programiranje... Moraš malo da prođeš nekoliko knjiga ili barem help, kako bi se upustio u to. Ipak je ovo ozbiljna tema, i nema šanse da se "instant" nauči preko noći. Dakle, knjigu u šake!
[ mika @ 30.05.2005. 09:33 ] @
Da ne bude da sam baksuz, deklaracija promenljive:

Code:

Dim pboolCloseAccess as boolean


Postavljanje inicijalne vrednosti:

Code:

pboolCloseAccess = false


[ gorancir @ 30.05.2005. 23:44 ] @
Hvala puno,

Pa naučio sam ono osnovno u Accessu, a VB ne mogu... mrzi me.

Krpim se ovako i iz drugih baza pa izvlačim i prepravljam :)

Hvala još jednom.