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

Çözüldü #1
Başlıktan da net bir şekilde anlaşıldığı gibi
İlişkili Bir form var içinde birden çok metin kutusu var
Metin kutularından birisi
Admin açınca farklı bir alanı mesela kaydın gerçek zamanını
kullanıcı açınca başka bir alanı mesela manuel girilen zamanı
Ziyaretçi açınca da hiç bir alanı göstermeyecek
Bunu visible özelliği ile yapabilirim ama bunu sormuyorum
Nasılki runtime listbox satır kaynağını değiştirebiliyoruz
Metin kutusu içinde bu yapılabilir mi
Kutu gözükecek ama adamına göre veri kaynağı değişecek
@benbendedeilem
Son Düzenleme: 25/03/2020, 07:20, Düzenleyen: accessman.
Cevapla
#2
kaba bir tabir yaklaşımla aşağıdaki gibi yapılabilir
Visual Basic Code
Me.Metin2.ControlSource = "=" & Me.Acilan_Kutu0
ben burada açılan kutudaki değer değiştiğinde metin alanının kaynağını değiştirecek şekilde yaptım
burada 2 sütunlu bir açılır kutu kullandım açılır kutunun ilk sütunu alan adı 2. sütunu ise admin /kullanıcı/ziyaretçi
ama siz giriş ekranlı bir çalışmada kullanıcı kimliğini kullanıp ona göre alanı alabilirsiniz
Cevapla
#3
teşekkürler sn. @berduş
bunu tablodaki alanlardan biri olarak yazacak olsaydık nasıl yazacaktık mesela 
Visual Basic Code
if(usertype="admin")then
   Me.Metin2.ControlSource = isim '(tablodaki alan)
else 
   Me.Metin2.ControlSource = soyisim '(tablodaki alan)
end if
Cevapla
#4
Siz direk sormak yerine örnek uygulamanızda

Visual Basic Code
Me.Metin2.ControlSource = "Alan1"

Şeklinde deneme yapmıyor musunuz??
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
bu kod ile yetkisiz kişiler için bazı metin kutularınının içeriğini gizledik diyelim sonra yetkili kişi için her metin kutusunun ControlSource değerine  tek tek alan mı tanımlayacağız
Visual Basic Code
Dim ctl As Control
    For Each ctl In Me.Form
        If InStr(1, ctl.Tag, tagname) <> 0 Then
            If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
                ctl.Enabled = deger
                ctl.ControlSource = "=****"
            ElseIf ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Then
                ctl.Enabled = deger
                ctl.Value = Null
            Else
                ctl.Enabled = True
            End If
        End If
    Next ctl
    Set ctl = Nothing
Son Düzenleme: 25/03/2020, 12:08, Düzenleyen: accessman.
Cevapla
#6
şöyle yapınca daha kolay oldu
Visual Basic Code
ctl.ControlSource = ctl.name
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da