Kod Yardım

[nihatra]

Kolay gelsin
Private Sub ComboBox3_Change()

If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Okul Öncesi Öğretmeni" Then
TextBox12.Text = 18
TextBox36.Text = 12
TextBox6.Text = ComboBox3.Text
TextBox19.Text = ComboBox3.Text
Else
TextBox12.Text = ""
TextBox6.Text = ""
TextBox36.Text = ""
TextBox19.Text = ""
End If

If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Rehber Öğretmen" Then
TextBox12.Text = 18
TextBox36.Text = 12
TextBox6.Text = ComboBox3.Text
TextBox19.Text = ComboBox3.Text
Else
TextBox12.Text = ""
TextBox6.Text = ""
TextBox36.Text = ""
TextBox19.Text = ""

End If

End Sub

yukarıdaki kod ile Rehber öğretmeni seçtiğimde textbox lara geliyor. Sınıf öğretmeni seçtiğimde textbox lara gelmiyor. hata nereden kaynaklanıyor.

 

[vivident]

Örnek bir dosya paylaşsaydınız daha iyi olurdu ama, anladığım kadarıyla combobox3'den veri seçiyorsunuz. Yalnız yazılan kodda "sınıf öğretmenliği" ile ilgili kodda bir şey yazılmamış. Şöyle deneyin

Okul öncesi öğretmeni yerine ; sınıf öğretmeni

If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Sınıf öğretmeni" Then

 

[nihatra]

Özür dilerim ben yanlış yazmışım kodda sınıf öğretmeni yazıyor.Sizin de dediğiniz gibi ComboBox3.Text 'den veri çekiyorum.

If ComboBox1.Text = "Anaokulu" And ComboBox3.Text = "Sınıf Öğretmeni" Then

 

[vivident]

Dosya ekleyebilirimisiniz