Kod:
Function Yetki(F As Form)
Dim SonKayit As String
Dim Yetki As String
Dim ctl As Control
SonKayit = DMax("[ID]", "[tblKullaniciLoglari]")
Yetki = DLookup("[txtKullaniciYetkisi]", "[tblKullaniciLoglari]", "[ID]=" & SonKayit)
If Yetki = "Yönetici" Then
Else
F.AllowAdditions = False
F.AllowDeletions = False
F.AllowEdits = False
End If
Yetki me
şeklinde çağırmayı dene.