(15/09/2025, 00:15)C*e*l*o*y*c*e yazdı: 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
' Sql düzeltildi
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = " & Me.Liste491.ItemData(GItem)
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc




End Sub

eğer bu alan metin ise tırnak içine almalısınız:
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = '" & Me.Liste491.ItemData(GItem) & "'"

kodlarında hata yokmuş. sadece ilişkili sütunu 4 yapınca konu çözüldü. Emeği geçen tüm arkadaşlara teşekkür ederim. SAyın atokyan dediğiniz gibi silme işlemini butana atadım. Satın celoyce sizlerede teşekkür ediyorum.