textboxların özelliği...

[bulentc76]

herkese merhaba...
benim elimde 2 adet textbox ve 1 adet combobox var.Bunlar textbox9 ve 10
Şimdi comboda iki seçenek var.Bunlar "TAHSİLAT MAKBUZU" ve "TEDİYE MAKBUZU".Yapmak istediğim şu ;

Eğer Comboda "TAHSİLAT MAKBUZU" seçili ise textbox 9 a veri girişine izin versin,ama 10 a veri girilemesin.Tersi durumda ise textboxlara veri giriş özelliği ters olsun.Yani ;

comboda "tediye makbuzu" seçili ise textbox 10 a veri girişi yapılabilsin, ama 9 a veri girişi yapılamasın.

İlgi ve alakanıza şimdiden teşekkürederim.Saygılarımla...

 

[nziya]

Private Sub TextBox10_Change()
If ComboBox1 = "TAHSİLAT MAKBUZU" Then
TextBox10 = ""
End If
End Sub

Private Sub TextBox9_Change()
If ComboBox1 = "TEDİYE MAKBUZU" Then
TextBox9 = ""
End If
End Sub

Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "TAHSİLAT MAKBUZU"
.AddItem "TEDİYE MAKBUZU"
End With
End Sub

 

[bulentc76]

teşekkür ederim.

 

[bulentc76]

Bu veri girişi olsun ya da olmasın özelliğini True ve False olarak yapabilirmiyiz...
Çünkü kullanıcı textbox9 yada 10 veri girdikten sonra comboya dönüp veriyi değiştirirse ( tediye ya da tahsilat makbuzu ) girilen veri yanlış hücreye girilmiş oluyor.Halbuki veri girildikten sonra eğer combo kullanılırsa ve tahsilat tediye olarak değiştirilirse textboxlardaki veri yeniden silinsin.Sanırım bunun için exit olayını kullanmak lazım ama yapamadım...
Yardımcı olursanız çok sevinirim...

 

[Ali]

Private Sub ComboBox1_Change()
If ComboBox1.Value = "TEDİYE MAKBUZU" Then TextBox9.Locked = True Else TextBox9.Locked = False
If ComboBox1.Value = "TAHSİLAT MAKBUZU" Then TextBox10.Locked = True Else TextBox10.Locked = False
End Sub

Private Sub TextBox9_Change()
TextBox10.Value = ""
End Sub
Private Sub TextBox10_Change()
TextBox9.Value = ""
End Sub
Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "TAHSİLAT MAKBUZU"
.AddItem "TEDİYE MAKBUZU"
End With
End Sub