şartlı textbox veri girişi engelleme

[bilisim2010]

merhaba userform27 üzerindeki combobox1 de 7 farklı seçimim var 1 adet textbox1000 ve 1 adet de textbox1001 olan kutum var.

sorum şu;

combobox1 deki ilk sıradaki seçimimde textbox1000 veri girilebilir textbox1001 veri girilemez olsun.

combobox1 deki ilk seçenek hariç diğer hangisini seçersem textbox1000 veri girilemez. textbox1001 veri girilebilir olsun.

ilk seçenekteki seçtiğim isim =
KOMPRESÖR GMCC-SARCOOL (SZ59E1HL) (1/8 R-600 A) (95 W - 82 K.cal) --- textbox1000 açık

diğer seçeneklerdeki isimler =
KOMPRESÖR GMCC-SARCOOL (PZ80H1Y) (1/6 R-600 A) (147 W - 127 K.cal) --- textbox1001 kapalı
KOMPRESÖR GMCC-SARCOOL (PZ99H1C) (1/4 R-600 A) (185 W - 160 K.cal) --- textbox1001 kapalı
KOMPRESÖR GMCC-SARCOOL (PZ110H1D) (1/4 + R-600 A) (198 W - 170 K.cal) --- textbox1001 kapalı
KOMPRESÖR GMCC-SARCOOL (PZ120H1A) (1/4 + + R-600 A) (215 W - 185 K.cal) --- textbox1001 kapalı
KOMPRESÖR GMCC-SARCOOL (PZ130H1C) (1/4 + + + R-600 A) (236 W - 203 K.cal) --- textbox1001 kapalı
KOMPRESÖR GMCC-SARCOOL (PE75H1H-9) (1/4 + R-134 A) (215 W - 185 K.cal) --- textbox1001 kapalı

ilk seçenekteki seçtiğim isim =
KOMPRESÖR GMCC-SARCOOL (SZ59E1HL) (1/8 R-600 A) (95 W - 82 K.cal) --- textbox1000 kapalı

diğer seçeneklerdeki isimler =
KOMPRESÖR GMCC-SARCOOL (PZ80H1Y) (1/6 R-600 A) (147 W - 127 K.cal) --- textbox1001 açık
KOMPRESÖR GMCC-SARCOOL (PZ99H1C) (1/4 R-600 A) (185 W - 160 K.cal) --- textbox1001 açık
KOMPRESÖR GMCC-SARCOOL (PZ110H1D) (1/4 + R-600 A) (198 W - 170 K.cal) --- textbox1001 açık
KOMPRESÖR GMCC-SARCOOL (PZ120H1A) (1/4 + + R-600 A) (215 W - 185 K.cal) --- textbox1001 açık
KOMPRESÖR GMCC-SARCOOL (PZ130H1C) (1/4 + + + R-600 A) (236 W - 203 K.cal) --- textbox1001 açık
KOMPRESÖR GMCC-SARCOOL (PE75H1H-9) (1/4 + R-134 A) (215 W - 185 K.cal) --- textbox1001 açık

 

[Biolightant]

Merhaba,

ilk sıradaki seçimimde

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = 0 Then
        textbox1000.Enabled = True
        textbox1001.Enabled = False
    Else
        textbox1000.Enabled = False
        textbox1001.Enabled = True
    End If
End Sub

 

[bilisim2010]

Merhaba,

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = 0 Then
        textbox1000.Enabled = True
        textbox1001.Enabled = False
    Else
        textbox1000.Enabled = False
        textbox1001.Enabled = True
    End If
End Sub

teşekkürler hocam elinize sağlık.