Skip to main content

AccessTr.neT


Kullanıcı Adına Göre Textbox Veri Kaynağını Değiştirmek

Kullanıcı Adına Göre Textbox Veri Kaynağını Değiştirmek

#7
ilişkili formlarda kullanıcı yetkileriyle ilgili bir dosyayı sayın @feraz daha önceden paylaşmıştı ondan yararlanmayı deneyebilirsiniz
ama zaten giriş penceresi olan bir çalışmada kullanıcı girişleri bu pencere üzerinden olacağı için buna gerek var mı?
sadece *** alanlar istisnai bir durum oluşturur onun dışında ilişkili formlarda formu açarken yetki sınırlarını belirleyemiyor musunuz?
Cevapla
#8
Metin kutusunun adı "mtn_metin1" ise ve denetim kaynağı "metin1" olacaksa

For Each ctl In Me
    If InStr(1, ctl.Tag, "yetki") <> 0 Then
        ctl.ControlSource = Mid(ctl.Name, InStr(1, ctl.Name, "_") + 1, Len(ctl.Name) - InStr(1, ctl.Name, "_") + 1)
    End If
Next ctl

koddaki "yetki" metin kutusunun im özelliğine eklenecek veri
Cevapla
#9
(25/03/2020, 12:41)berduş yazdı: ilişkili formlarda kullanıcı yetkileriyle ilgili bir dosyayı sayın @feraz daha önceden paylaşmıştı ondan yararlanmayı deneyebilirsiniz
ama zaten giriş penceresi olan bir çalışmada kullanıcı girişleri bu pencere üzerinden olacağı için buna gerek var mı?
sadece *** alanlar istisnai bir durum oluşturur onun dışında ilişkili formlarda formu açarken yetki sınırlarını belirleyemiyor musunuz?
yetki sınırlarını belirliyoruz ama bir formda 10 alan var ve bunlardan ikisi içeriği gizli kalmalı de değişmemeli
bunların Tag ını "gizli" diye belirleyip bu taga sahip controlsource lerini boşaltıp valuelerini "*****" yapıp
kullanıcıya bu bilgiler var ama göremezsin deyip hem form görünümü bozulmuyor hem de kullanıcıya yetki sınırları hatırlatılmış oluyor
mesela personel formundabir alan olsa
"patronun bu zat hakkındaki görüşleri" gibi ne güzel olur 
herkes hacker hacker çalışır o kodları çözebilmek için
@benbendedeilem
Cevapla
#10
(25/03/2020, 12:41)ozanakkaya yazdı: Metin kutusunun adı "mtn_metin1" ise ve denetim kaynağı "metin1" olacaksa

For Each ctl In Me
    If InStr(1, ctl.Tag, "yetki") <> 0 Then
        ctl.ControlSource = Mid(ctl.Name, InStr(1, ctl.Name, "_") + 1, Len(ctl.Name) - InStr(1, ctl.Name, "_") + 1)
    End If
Next ctl

koddaki "yetki" metin kutusunun im özelliğine eklenecek veri
çok güzel olmuş ellerinize sağlık
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da