Tümünü silmek için de alttaki kodu dener misin?

Private Sub Komut179_Click()

Dim GItem As Variant

Dim gogrid As Integer

Dim gadsoyad As String

gogrid = [frm_alt_tercih].Form![ogr_id]

gadsoyad = [frm_alt_tercih].Form![txtogradsoyad]



 If MsgBox("Ekli olan liste silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

 DoCmd.RunSQL "delete ogr_id,adsoyad from tbl_tercihler where ((is_id)=" & is_id & ") "

 DoCmd.SetWarnings True

 End If

 Me.listeogrenci.Requery

 Forms!frm_tercih_islemleri!.Form.frm_alt_tercih.Requery

 

End Sub