MsgBox uyarısı ekleme

[sirkülasyon]

Private Sub TextBox1_Change()
    Dim t As String
    Dim i As Integer
    t = TextBox1.Text
    ListBox2.ListIndex = -1
    If TextBox1.Text = "" Then Exit Sub
    For i = 0 To ListBox2.ListCount - 1
        If UCase(ListBox2.List(i)) Like UCase(t & "*") Then
            ListBox2.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub

TextBox1 de yazılan değer ListBox2 de bulunmadığı durumda "Aranan Değer için lütfen Diğer İlçeyi Seçin" uyarısını eklemek istiyorum. Yardımcı olabilir misiniz?

 

[Tevfik_Kursun]

Merhaba,

Private Sub TextBox1_Change()
    Dim t As String
    Dim i As Integer
    t = TextBox1.Text
    ListBox2.ListIndex = -1
    If TextBox1.Text = "" Then Exit Sub
    For i = 0 To ListBox2.ListCount - 1
 99:
        If UCase(ListBox2.List(i)) Like UCase(t & "*") Then
            ListBox2.ListIndex = i
                 MsgBox "Aranan Değer için lütfen Diğer İlçeyi Seçin !", vbCritical: GoTo 99
            Exit Sub
        End If
    Next i
End Sub

Deneyin lütfen,
İyi çalışmalar

 

[sirkülasyon]

Sayın Tevfik_KURSUN
Textbox1'e veri girer girmez kilitliyor.

 

[Tevfik_Kursun]

Merhaba,
99: satırını End Sub satırından önce koyup dener misin?
İyi çalışmalar

 

[sirkülasyon]

Bu sefer kilitleme yok
Ancak bir karakter girer girmez Uyarıyı veriyor. Yani Arama Yapacağım veriyi girmeme izin vermiyor.

 

[Tevfik_Kursun]

Merhaba,
Ben denemedim. 99: ifadesinin yeri yanlış.
t = TextBox1.Text
satırın öncesine koyup deneyin.
Kolay gelsin

 

[sirkülasyon]

99: satırını End Sub satırından önce olursa kilitlemiyor