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?
Kullanıcı Adına Göre Textbox Veri Kaynağını Değiştirmek
Metin kutusunun adı "mtn_metin1" ise ve denetim kaynağı "metin1" olacaksa
koddaki "yetki" metin kutusunun im özelliğine eklenecek veri
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ı deneyebilirsinizyetki sınırlarını belirliyoruz ama bir formda 10 alan var ve bunlardan ikisi içeriği gizli kalmalı de değişmemeli
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?
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
(25/03/2020, 12:41)ozanakkaya yazdı: Metin kutusunun adı "mtn_metin1" ise ve denetim kaynağı "metin1" olacaksaçok güzel olmuş ellerinize sağlık
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
@benbendedeilem
Konuyu Okuyanlar: 1 Ziyaretçi