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 !
[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 !