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

Kullanıcı Yetkisine Göre Form Açtırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kullanıcı Yetkisine Göre Form Açtırmak (/konu-kullanici-yetkisine-gore-form-actirmak.html)

Sayfalar: 1 2

Cvp: Kullanıcı Yetkisine Göre Form Açtırmak - derebeyi - 01/02/2009

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...

Cvp: Kullanıcı Yetkisine Göre Form Açtırmak - Bilgisayarcı - 01/02/2009

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.

Cvp: Kullanıcı Yetkisine Göre Form Açtırmak - derebeyi - 01/02/2009

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...

Cvp: Kullanıcı Yetkisine Göre Form Açtırmak - cemilbakir - 17/11/2011

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?

Cvp: Kullanıcı Yetkisine Göre Form Açtırmak - Subco - 22/10/2013

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]