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

1 2
25/03/2020, 12:41

berduş

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?
25/03/2020, 12:41

ozanakkaya

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
25/03/2020, 13:06

accessman

(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
25/03/2020, 13:08

accessman

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