Kullanıcı Yetkisine Göre Form Açtırmak

1 2
01/02/2009, 22:39

derebeyi

Hocam, valla bu dokuzuncu taklam...

Neler neler yaptım, yine olmadı...
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...
01/02/2009, 23:16

Bilgisayarcı

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.
01/02/2009, 23:33

derebeyi

Hocam, ellerinize sağlık. Allah razı olsun. Sayenizde uyuyabileceğim...
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

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...
17/11/2011, 17:16

cemilbakir

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?
22/10/2013, 16:13

Subco

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]
1 2