İf Then Else Hk

[ahmed_ummu]

Merhaba rakadaşlar

Aşağıdaki kod ile Textbox232 nin değeri sadece "A" değerini alıyor. Combobox31 den diğer seçenekleri seçtiğimde Textbox232 nin değeri herhangi bir değer alımıyor. Nerede hata var yardımcı olabilir misiniz.

If ComboBox31.Value = "Sağlık Özrü Nedeniyle" Then
TextBox232.Value = "A"
End If

If ComboBox31.Value = "Doğum Yapmam Nedeniyle" Then
TextBox232.Value = "B"
End If

If ComboBox31.Value = "Evlatlık Edinmemiz Nedeniyle" Then
TextBox232.Value = "C"
End If

If ComboBox31.Value = "Eşimin Yurtdışı Görevi nedeniyle" Then
TextBox232.Value = "D"
End If

If ComboBox31.Value = "Hizmet Yılından Dolayı İsteğe Bağlı Olarak" Then
TextBox232.Value = "E"
End If

If ComboBox31.Value = "Askere Gitmem Gedeniyle" Then
TextBox232.Value = "G"
End If

 

[Muzaffer Ali]

Merhaba.

Kodu aşağıdaki gibi kısaltabilirsiniz.
Ancak sorunu anlayabilmek için kodların tamamını incelemek lazım.
Burada bir sorun görünmüyor.

    Select Case ComboBox31.Text
        Case "Sağlık Özrü Nedeniyle"
            TextBox232.Value = "A"
        Case "Doğum Yapmam Nedeniyle"
            TextBox232.Value = "B"
        Case "Evlatlık Edinmemiz Nedeniyle"
            TextBox232.Value = "C"
        Case "Eşimin Yurtdışı Görevi nedeniyle"
            TextBox232.Value = "D"
        Case "Hizmet Yılından Dolayı İsteğe Bağlı Olarak"
            TextBox232.Value = "E"
        Case "Askere Gitmem Gedeniyle"
            TextBox232.Value = "G"
    End Select

 

[ahmed_ummu]

Teşekkürler Muzaffer Ali bey.

Aslında ben de ilk Select Case ile yapmıştım ama sonucu vermeyince İf then else ile yapmaya çalıştım.
Şart kelimelerinin sonunda ) parantez varmış kusura bakmayın yeni gördüm. Sadece "Sağlık Özrü Nedeniyle" şartında yokmuş. Parantezleri silince düzeldi.

Select Case ComboBox31.Text
Case "Sağlık Özrü Nedeniyle"
TextBox232.Value = "A"
Case "Doğum Yapmam Nedeniyle)"
TextBox232.Value = "B"
Case "Evlatlık Edinmemiz Nedeniyle)"
TextBox232.Value = "C"
Case "Eşimin Yurtdışı Görevi nedeniyle)"
TextBox232.Value = "D"
Case "Hizmet Yılından Dolayı İsteğe Bağlı Olarak)"
TextBox232.Value = "E"
Case "Askere Gitmem Nedeniyle)"
TextBox232.Value = "G"
End Select