Option Compare Database
Const Yonet As String = "ÜmitSamlı" '*** Uygulamanizi OZGUN KONUMDA acabilmeniz icin
Public Function Kim()
Kim = Environ("UserName")
End Function
Function OzGun(OzAdi As String, OzTip As Variant, OzDeg As Variant) As Integer
Dim Ozellik As Variant
Const Hata = 3270
On Error GoTo Err_cikarsa
Application.CurrentDb.Properties(OzAdi) = OzDeg
OzGun = True
Err_Biter:
Exit Function
Err_cikarsa:
If Err = Hata Then
    Set Ozellik = Application.CurrentDb.CreateProperty(OzAdi, OzTip, OzDeg)
    Application.CurrentDb.Properties.Append Ozellik
    Resume Next
Else
    OzGun = False
    Resume Err_Biter
End If
End Function
Sub Yetki()
On Error GoTo Erc
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
OzGun "StartupForm", DB_Text, "Menu"
OzGun "StartUpShowDBWindow", dbBoolean, IIf(Kim = Yonet, True, False)   'VERÝTABANI PENCERESÝ
OzGun "StartUpShowStatusBar", dbBoolean, IIf(Kim = Yonet, True, False)  'DURUM ÝLETÝSÝ
OzGun "AllowBuiltInToolbars", dbBoolean, IIf(Kim = Yonet, True, False)  'YERLEÞÝK ARAÇ ÇUBUÐU
OzGun "AllowFullMenus", dbBoolean, IIf(Kim = Yonet, True, False)        'YERLEÞÝK MENÜ
OzGun "AllowBreakIntoCode", dbBoolean, IIf(Kim = Yonet, True, False)    'VÝSUAL BASÝC
OzGun "AllowBypassKey", dbBoolean, IIf(Kim = Yonet, True, False)        'ATLAMA
OzGun "AllowSpecialKeys", dbBoolean, IIf(Kim = Yonet, True, False)      'Alt+F1(F11),Ctrl+F11,Ctrl+G Devre Dýþý
OzGun "AllowToolbarChanges", dbBoolean, IIf(Kim = Yonet, True, False)   'ARAÇ,MENÜ,MISAYOL MENÜLERÝ
OzGun "AllowShortcutMenus", dbBoolean, IIf(Kim = Yonet, True, False)    'MA.KISAYOL
OzGun "UseAppIconForFrmRpt", dbBoolean, True                              'Simge
Erb:
Exit Sub
Erc:
MsgBox Err.Description
Resume Erb
End Sub

Option Compare Database
Private Sub Form_Close()
Application.Quit acQuitSaveAll
End Sub
yazin Menu'den farkli isim verebilirsiniz.
Private Sub Form_Open(Cancel As Integer)
Call Yetki
DoCmd.RunCommand acCmdAppMinimize
End Sub
 
Private Sub IdKategori_Click()
OzGun "StartupForm", DB_Text, "(None)"
End Sub