sn arkadaşlar liste kutusundaki seçili kaydı silmek için kullandığım kod aşağıda. kodda liste kutusunda kayıt seçili iken silme işlemi başarılı. kayıt seçili değilken seçim yapılması gerektiği mesajı da tamam. ancak silme işlemine hayır cevabı verildikten sonra liste kutusunda herhangi bir kayıt seçili değilken sil butonuna basıldığında silme mesajı yeniden geliyor. bu konuda yardım ederseniz sevinirim. SAYGILAR....


VBA Kodu;

Private Sub Komut82_Click()
If IsNull(Me.Liste51) Then

MsgBox "Lütfen bir kayıt seçiniz.", vbExclamation, ""

Else
If MsgBox("listedeki seçili kayıt silinsin mi?", vbCritical + vbYesNo, "") = vbYes Then
CurrentDb.Execute "delete from SERVİS where SERVİS_KODU=" & Liste51
Liste51.Requery
Liste69.Requery
Me.SERVİSKODU = ""
Me.SERVİSADI = ""
kayitsay.Caption = ""

Else

Me.Liste51 = ""
Me.SERVİSKODU = ""
Me.SERVİSADI = ""
Exit Sub
End If
End If
End Sub

Sn hnakis76; Liste51 kutusunun secili oldugunun kontrolu ve silme mesajinin gosterilmesi asagida ki gibi yapilabilir.
Private Sub Komut82_Click()
Dim Ctl As Long, Kyt As Long
For Ctl = 1 To Me.Liste51.ListCount
If Me.Liste51.Selected(Ctl) = True Then Kyt = Kyt + 1
Next Ctl
If Kyt = 0 Then
MsgBox "Lütfen bir kayit seçiniz.", vbExclamation, ""
Else
If MsgBox("listedeki seçili kayit silinsin mi?", vbCritical + vbYesNo, "") = vbYes Then CurrentDb.Execute "delete * from SERVÝS where SERVİS_KODU=" & Liste51
End If
Liste51.Requery
End Sub

sn dsezgin83260
formda 2 adet liste var.liste1 kişiler, liste 2 kişilerle ilgili bilgiler. liste1 de bir kişi seçildiğinde sadece seçilen kişini bilgilerini liste2den nasıl silebilirim.
saygılar

Sn hnakis76; If MsgBox("listedeki seçili kayit silinsin mi?", vbCritical + vbYesNo, "") = vbYes Then CurrentDb.Execute "delete * from [liste2_TabloAdi] where KisiID=" & me.liste1.columns(0)
Satirinda ki silme sorusunu tablo adlari ve riter sutun adini kendi projenize gore degistirin.

sn dsezgin83260
ilginize teşekkürler.

şöyle bir kod ile hem tüm listenin seçilmesini hem de silinmesini sağlıyorum;
Private Sub Komut114_Click()

On Error GoTo ErrorHandler

Set lst = Me![Liste69]
lngListCount = Me![Liste69].ListCount

For lngCount = 0 To lngListCount
lst.Selected(lngCount) = True
Next lngCount
'Me.Metin2 = Me.Liste0.ItemsSelected.Count
'Me.Requery

CurrentDb.Execute "delete from kst111 where KİMLİK=" & Liste51
Liste51.Requery
Liste69.Requery
Me.Liste69.RowSource = ""
'Me.Liste51 = ""
'Me.SERVİSKODU = ""
'Me.SERVİSADI = ""
'Me.Metin94 = ""
'Me.TKAYITTARİHİ = ""
kayitsay.Caption = ""
Me.gönder.Caption = ""
Me.GonmSayi = ""
Me.GonSayi = ""
ErrorHandlerExit:
Exit Sub

ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit

End Sub

Sn hnakis76; Liste69 sorusu kst111 tablosunundan besleniyorsa.
CurrentDb.Execute "delete * from kst111 where [KİMLİK]=" & me.Liste51.column(0)
satiri ikinci kst111 tablosunda ki kriter kayitlar daha kisayoldan silinecektir.