Error Uygulaması ?

[idogus]

Herkeze Merhaba

[vb:1:b00d49eee8]
Private Sub cmdSil_Click()
On Error GoTo Hata
lvwOgretmenKayitlari.ListItems.Remove KayitSil
shOgretmenler.Rows(KayitSil + 1).Delete
txtKayitNo.Value = Int(txtKayitNo) - 1
Hata:
Select Case lvwOgretmenKayitlari.ListItems.Count
Case Is > 0
If Cek <= 0 Then
MsgBox "Lütfen Silinecek kaydi seçin"
End If
Case Is <= 0
MsgBox "Silinecek kayıt yok"
End Select
End Sub
[/vb:1:b00d49eee8]

Yukarıdaki kodda koyu olarak işaretlenmiş yerde bir sorun var. Listede kayıt yoksa mesaj vemesini ancak son kayıt silindikten sonra bu mesajı vermemesini istemiyorum.

Teşekkür ederim !

 

[idogus]

Teşekkür ederim çözdüm
[vb:1:2474ca8113]
Private Sub cmdSil_Click()
On Error GoTo Hata
lvwOgretmenKayitlari.ListItems.Remove KayitSil
shOgretmenler.Rows(KayitSil + 1).Delete
txtKayitNo.Value = Int(txtKayitNo) - 1
Exit Sub
Hata:
Select Case lvwOgretmenKayitlari.ListItems.Count
Case Is > 0
If Cek <= 0 Then
MsgBox "Lütfen Silinecek kaydi seçin"
End If
Case Is <= 0
MsgBox "Silinecek kayıt yok"
End Select
End Sub
[/vb:1:2474ca8113]

 

[danersin]

4 dkkada,, bu ne hız. Kolay gelsin.