If Koşulu

[nihatra]

Eğer ComboBox2 "İKİLİ EĞİTİM" ise ve ComboBox3 "Müdür" ise TextBox52'ye "25" yaz kodu nasıl yazılır?

 

[Emir Hüseyin Çoban]

. . .

If ComboBox2.Text = "İKİLİ EĞİTİM" And ComboBox3.Text = "Müdür" Then TextBox52.Text = "25"

. . .

 

[nihatra]

. . .

If ComboBox2.Text = "İKİLİ EĞİTİM" And ComboBox3.Text = "Müdür" Then TextBox52.Text = "25"

. . .

Bu kodu nereye yazmam gerek? ComboBoxlara mı yoksa TextBox52'ye mi?

 

[Emir Hüseyin Çoban]

. . .

TextBox52' ye veriyi hangi aşamada yazdırmak istiyorsanız ona göre değişir.

Comboboxda seçim yaptığımda yazsın derseniz comboboxlara yazmak gerekir.

. . .

 

[nihatra]

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür" Then TextBox52.Text = 25 Else TextBox52.Text = ""
If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür Yardımcısı" Then TextBox52.Text = 20 Else TextBox52.Text = ""
If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Okul Öncesi Öğretmeni" Then TextBox12.Text = 18 Else TextBox12.Text = ""
If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Okul Öncesi Öğretmeni" Then TextBox6.Text = ComboBox3.Text Else TextBox6.Text = ""
End Sub

kodunda müdür kısmı çalışmıyor. eksiğim nedir

 

[Emir Hüseyin Çoban]

. . .

Private Sub ComboBox1_Change()
    If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür" Then
        TextBox52.Text = 25
        ElseIf ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür Yardımcısı" Then
        TextBox52.Text = 20
    Else
        TextBox52.Text = ""
    End If
    
    If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Okul Öncesi Öğretmeni" Then
        TextBox12.Text = 18
        TextBox6.Text = ComboBox3.Text
    Else
        TextBox12.Text = ""
        TextBox6.Text = ""
    End If
    
End Sub

. . .

 

[nihatra]

. . .

Private Sub ComboBox1_Change()
    If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür" Then
        TextBox52.Text = 25
        ElseIf ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Müdür Yardımcısı" Then
        TextBox52.Text = 20
    Else
        TextBox52.Text = ""
    End If
    
    If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Okul Öncesi Öğretmeni" Then
        TextBox12.Text = 18
        TextBox6.Text = ComboBox3.Text
    Else
        TextBox12.Text = ""
        TextBox6.Text = ""
    End If
    
End Sub

. . .

Teşekkürler..