Tam olarak kodlamayı öğrenmeden kod yazmaya kalkarsam bööle olur tabi...
İyi de cesaret gelmişti kodları bu hale getirdiğimde. Module aktarana kadar keyfim yerindeydi. Ne güzel de yazdım kodu falan diyordum kendi kendime...
Yardımcı olan tüm hocalarıma teşekkürler...
Kodun son hali şu:
Kod:
Function YetkiKontrol(F As Form)
Dim SonKayit As String
Dim Yetkili As String
SonKayit = DMax("[ID]", "[tblKullaniciLoglari]")
Yetkili = DLookup("[txtKullaniciYetkisi]", "[tblKullaniciLoglari]", "[ID]=" & SonKayit)
If Yetkili = "Yönetici" Then
Else
F.AllowAdditions = False
F.AllowDeletions = False
F.AllowEdits = False
End If
End Function
Saygılar...