combobox değerine göre texboxa sabit değer atama

[airborne]

s.a.

comboboxta taki değer ahmet ise texboxa 1, Mehmet ise 2 atamak istiyorum ama bir türlü texbox değeri almıyor. yazmaya çalıştığım kodlar aşağıda. nerede hata yapıyorum.

Private Sub TextBox7_Change()
If ComboBox1.Value = "Ahmet" Then
Texbox7.Value = 1
ElseIf ComboBox1.Value = "Mehmet" Then
Texbox7.Value = 2
End If
End Sub

 

[Korhan Ayhan]

Yanlış nesnenin olayına kodu uygulamışsınız. Burada değişen ComboBox nesnesidir. Koduda bu nesneye yazmalısınız.

 

[airborne]

s.a.

üstadım kodu comboboxa yerleştirdim ama

Texbox7.Value = "1"

bu satırda hata veriyor.

 

[Korhan Ayhan]

TextBox nesnesindeki kodu silip deneyin. Yine hata veriyorsa dosyanızı ekleyin inceleyip hatanızı söyleyelim.

 

[airborne]

s.a.

texboxtaki kodu sildim bu seferde

Ru-time error "424

object required hatası veriyor

 

[Korhan Ayhan]

Merhaba,

Sorununuz çözüldümü bilemiyorum. Örnek dosyanızı eklerseniz hatanın sebebini açıklayabiliriz.