Kod:
Private Sub kmtsil_Click()
Dim GItem As Variant
For Each GItem In Me.Liste491.ItemsSelected
If MsgBox(Me.Liste491.Column(0, GItem) & "adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "delete ogrenciID from TbLevci where (((ogrenciID)=" & Me.Liste491.ItemData(GItem) & "))"
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc
'isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then
End Sub