ComboBox daki değere göre, Textboxun kitlenmesi

[sukruyilmaz1]

Arkadaşlar merhaba.

BomboBox1 de "evet" ve "hayır" değerlerim var. eğer ComboBox1 de "hayır" seçersem, textbox1 e veri girmeyi engelleyecek; eğer "evet" seçersem textbox a veri girmeye izin verecek...

Bunu nasıl yaparız..

Saygılarımla.

 

[Murat OSMA]

BomboBox'u bilmiyorum ama ComboBox için şu kodları deneyiniz;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub ComboBox1_Change()
    If ComboBox1.Text = "Evet" Then
        TextBox1.Locked = True
    Else
        TextBox1.Locked = False
    End If
End Sub[/FONT][/SIZE]

 

[sukruyilmaz1]

BOMBOBOX

Üstad yaptım ama olmadı. örneği ekliyorum. sana zahmet bi bakar mısın?

 

[sukruyilmaz1]

BOMBOBOX

Üstad yaptım ama olmadı. örneği ekliyorum. sana zahmet bi bakar mısın?

 

[Murat OSMA]

Verdiğim koddaki Evet'i büyük harfle yazın. "EVET"
Combobo1.additem' de büyük yazıyor...

 

[sukruyilmaz1]

Teşekkürler Murat hocam. Dediğiniz gibi oldu.

Peki hocam Combobox daki seçime göre textbox'ın görünümünü şeffaf yapabilir miyiz? Yani combobox u "hayır" seçtiğimde textbox a veri girilemeyeceği görsel olarak belli olsun.

Teşekkürler.

 

[Murat OSMA]

ComboBox'ın Style özelliğini 2 yapın.

Sonra da tüm kodlar şöyle olsun;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub ComboBox1_Change()
    If ComboBox1.Text = "HAYIR" Then
        TextBox1.Text = "Veri Girişi Yasak !"
        TextBox1.Locked = True
        TextBox1.BackColor = &H8000000F
        TextBox1.SpecialEffect = 0
    Else
        TextBox1.Text = ""
        TextBox1.Locked = False
        TextBox1.BackColor = &H80000005
        TextBox1.SpecialEffect = 2
    End If
End Sub


Private Sub TextBox1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If ComboBox1.Text = "HAYIR" Then
        ComboBox1.SetFocus
    End If
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "EVET"
        .AddItem "HAYIR"
    End With
End Sub[/FONT][/SIZE]

 

[Seyit Tiken]

Bu şekilde programınıza entegre ediniz.

Me.TextBox1.Enabled = False
Me.TextBox1.BackColor = &H8000000F

 

[Murat OSMA]

Enabled özelliğini tamamen unutmuşum.

Teşekkürler Seyit Bey... k::

Not: 500. mesajım olmuş... :dusun:

 

[Seyit Tiken]

Murat bey normaldır bunlar, bazen insan zor olana odaklanıyor, basiti hatırlamayabiliyor.

 

[Murat OSMA]

Haklısınız Seyit Bey, biraz da yoğunluktan olsa gerek...

Hoşça kalın !!!

 

[Taruz]

Merhaba..

Ben de farklı bir yaklaşımda bulunayım..

TextBox1.Enabled = IIf(ComboBox1 = "EVET", -1, 0)

.

 

[Murat OSMA]

"Seç beğen al" gibi oldu biraz.
Şükrü Bey alternatiflerden bir seçim yapar artık.

 

[sukruyilmaz1]

BEN MURAT BEYİN KODLARINI İLE YAPTIM. diğerlerini de denedim hepsi oldu. Sayın Seyit, Taruz ve Murat üstadlarıma çok teşekkürler.

iyi çalışmalar.

 

[sukruyilmaz1]

ÜStadlarım bu konu ile alakalı değil ama listbox ile soruma bakabilir misiniz?

http://www.excel.web.tr/f48/listview-yapmak-ve-kaydetmek-t114391.html