[Yardım]  TextBox veri Girişini koşullara bağlı olarak kısıtlama

Açılır liste kutusu.

TextBox veri Girişini koşullara bağlı olarak kısıtlama

İleti#1)  aliseatLeon » 01 Ağu 2017 21:46

Merhaba, bir form içinde 4 adet textbox 1 adet combo box bulunmakta combobox uzerinden yaptığım seçime göre ilgili textbox çalışmalı ve diğeleri kapanmalı yani veri girişi engellenmeli konu ile ilgili yardımlarınızı rica ederim. herkese kolay gelsin

TextBox1 = Giriş
TexttBox2=Çıkış
TextBox3 = İade
TextBox4=Gelen Ödeme

ComboBox. = Giriş , Çıkış , İade , Gelen Ödeme

Bunlardan herhangi birini seçtiğimde geri kalanlarda veri girişi yasaklanacak sadece örneğin girişi seçtiysem girişin karşısındaki textBox da veri girişine müsede edecek...
Kullanıcı avatarı
aliseatLeon
 
Kayıt: 01 Ağu 2017 16:01
Meslek: Öğrenci
Yaş: 31
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul-Şişli

Cevap: TextBox veri Girişini koşullara bağlı olarak kısıtlam

İleti#2)  Yasin KURT » 02 Ağu 2017 10:05

Kod: Tümünü seç
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
      Case "Giriş": TextBox1.Enabled = True: TextBox2.Enabled = False: TextBox3.Enabled = False: TextBox4.Enabled = False
      Case "Çıkış": TextBox1.Enabled = False: TextBox2.Enabled = True: TextBox3.Enabled = False: TextBox4.Enabled = False
      Case "İade": TextBox1.Enabled = False: TextBox2.Enabled = False: TextBox3.Enabled = True: TextBox4.Enabled = False
      Case "Gelen Ödeme": TextBox1.Enabled = False: TextBox2.Enabled = False: TextBox3.Enabled = False: TextBox4.Enabled = True
End Select
End Sub
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: TextBox veri Girişini koşullara bağlı olarak kısıtlam

İleti#3)  Ali ÖZ » 02 Ağu 2017 10:11

Kod: Tümünü seç
Private Sub ComboBox1_Change()
    For Each aaa In UserForm1.Controls
        If TypeName(aaa) = "TextBox" Then
            aaa.Enabled = False
        End If
    Next
    Controls(ComboBox1.Value).Enabled = True
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe