AccessTr.neT

Tam Versiyon: Kullanıcı Adına Göre Textbox Veri Kaynağını Değiştirmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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?
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, 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, 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
Sayfalar: 1 2