Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

derebeyi
derebeyi
Access Cevaplanmış Soruları
10
5629

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

Çözüldü #7
derebeyi
Aktif Üye
derebeyi
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum: Samsun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/06/2022,11:03
Yorumları: 170
Konuları: 55
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 0
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...
Cevapla
Çözüldü #8
Bilgisayarcı
Atçalı
Bilgisayarcı
Bul
Aktif Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 22/04/2019,15:45
Yorumları: 658
Konuları: 34
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 410
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.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #9
derebeyi
Aktif Üye
derebeyi
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum: Samsun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/06/2022,11:03
Yorumları: 170
Konuları: 55
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 0
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...
Cevapla
Çözüldü #10
cemilbakir
CRM Mobilya
cemilbakir
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Belirtilmemiş
Son Oturumu: 07/12/2011,15:27
Yorumları: 55
Konuları: 11
Kayıt Tarihi: 10/11/2011
Teşekkür Puanı: 0
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?
Cevapla
Çözüldü #11
Subco
Aktif Üye
Subco
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 15
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 31/01/2024,08:15
Yorumları: 271
Konuları: 53
Kayıt Tarihi: 09/04/2009
Teşekkür Puanı: 3
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]
İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task