AccessTr.neT

Tam Versiyon: Kullanıcı Yetkisine Göre Form Açtırmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Hocam, valla bu dokuzuncu taklam...

Neler neler yaptım, yine olmadı... Img-grin

Formun olayına kodları doğrudan yazınca hiçbir sorun olmuyor. Ben zaten ilk olarak formun olayında yazmıştım bu kodları. Ama fonksiyon olarak yazınca sürekli hata alıyorum. Anlayamadım gitti...
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

Fonksiyonu çağırırken de
Yetki me
şeklinde çağırmayı dene.
Hocam, ellerinize sağlık. Allah razı olsun. Sayenizde uyuyabileceğim... Img-grin

Tam olarak kodlamayı öğrenmeden kod yazmaya kalkarsam bööle olur tabi... Img-grin

İ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... Img-grin

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

Fonksiyon çağrılırken de YetkiliKontrol Me şeklinde çağrılacak... Diğer arkadaşlar biliyorlardır gerçi ama, fazla mal göz çıkarmaz...

Saygılar...
merhaba arkadaşlar ben Access 2007de program yapıyorum. Yalnız aynı arkadaşımız gibi bende kullanıcı girişi yapmak istiyorum. 2007 de bu yapılamıyor mu?
Bu kodu kod bolune yazın enter e basın mdw dosyasını tanıtın gerısı Access ın ıcınde var kullanıcı ayarlarına gıdın kullanıcı ekle / yetkı ayarlarını yapınız. bu kadar.

DoCmd.RunCommand acCmdWorkgroupAdministrator

[/php][/quote][/vb]
Sayfalar: 1 2