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!
Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford