metin kutusunun adı: txtadsoyad
Tablo adı: tbl_ogrenciler
tablodaki alan adi: adi_soyadi
Dim GItem As Variant
For Each GItem In txtadsoyad.ItemsSelected
If MsgBox(Me.txtadsoyad(GItem) & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE adi_soyadi FROM tbl_ogrenci WHERE (((adi_soyadi)='" & Me.txtadsoyad.ItemData(GItem) & "'))"
DoCmd.SetWarnings True
End If
Next GItem