Yardım Listboxta seçilen satıra göre textboxda uyarı verme

istiklal · 10 Tem 2021

textbox3' e rakam girerken aşağıda arz ettiğim kontrolü gerçekleştirecek kod için yardımcı olabilir misiniz ?

1 - Listbox3 de "10-16 Kapasiteli Araç" seçildi ise
Eğer Textbox3' e girilen rakam 1 ile 16 arasında ise veri girişine izin versin. 16 Sayısından yüksekse Textbox3' deki girilen veriyi temizlesin ve "Lütfen Öğrenci sayısını en fazla 16 olarak belirleyin" diye uyarı versin

2 - Listbox3 de "17-23 Kapasiteli Araç" seçildi ise
Eğer Textbox3' e girilen rakam 1 ile 23 arasında ise veri girişine izin versin. 23 Sayısından yüksek ise Textbox3' deki girilen veriyi temizlesin ve "Lütfen Öğrenci sayısını en fazla 23 olarak belirleyin" diye uyarı versin

3 - Listbox3 de "24-29 Kapasiteli Araç" seçildi ise
Eğer Textbox3' e girilen rakam 1 ile 29 arasında ise veri girişine izin versin. 29 Sayısından yüksek ise Textbox3' deki girilen veriyi temizlesin ve "Lütfen Öğrenci sayısını en fazla 29 olarak belirleyin" diye uyarı versin

4 - Listbox3 de ""30 ve Üstü Kapasiteli Araç" seçildi ise
Eğer Textbox3' e girilen rakam 1 ile 40 arasında ise veri girişine izin versin. 40 Sayısından yüksek ise Textbox3' deki girilen veriyi temizlesin ve "Lütfen Öğrenci sayısını en fazla 40 olarak belirleyin" diye uyarı versin

azraep · 12 Tem 2021

Örnek olmadığı için kontrolü butona atadım kendinize göre düzenleyebilrisiniz.

Kod:

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = 0 Then
        If TextBox3.Value < 1 Or TextBox3.Value > 16 Then
            MsgBox "Lütfen Öğrenci sayısını en fazla 16 olarak belirleyin", vbInformation, "UYARI"
            TextBox3.Value = ""
        End If
    ElseIf ListBox1.ListIndex = 1 Then
        If TextBox3.Value < 1 Or TextBox3.Value > 23 Then
            MsgBox "Lütfen Öğrenci sayısını en fazla 23 olarak belirleyin", vbInformation, "UYARI"
            TextBox3.Value = ""
        End If
    ElseIf ListBox1.ListIndex = 2 Then
        If TextBox3.Value < 1 Or TextBox3.Value > 29 Then
            MsgBox "Lütfen Öğrenci sayısını en fazla 29 olarak belirleyin", vbInformation, "UYARI"
            TextBox3.Value = ""
        End If
    ElseIf ListBox1.ListIndex = 3 Then
        If TextBox3.Value < 1 Or TextBox3.Value > 40 Then
            MsgBox "Lütfen Öğrenci sayısını en fazla 40 olarak belirleyin", vbInformation, "UYARI"
            TextBox3.Value = ""
        End If
    Else
        MsgBox "Seçim yapınız"
    End If
End Sub

istiklal · 13 Tem 2021

Sayın azraep çok çok teşekkür ederim. Hakkınızı helal edin.

azraep · 13 Tem 2021

istiklal' Alıntı:
Sayın azraep çok çok teşekkür ederim. Hakkınızı helal edin.

Rica Ederim. Helal olsun.