tümünü eklemek için bir butona aşağıdaki kodu ekleyip dener misiniz?

Dim GItem As Variant

Dim gogrid, xList As Integer

Dim gadsoyad As String



For xList = 1 To Me.listeogrenci.ListCount - 1

    gogrid = Me.listeogrenci.Column(0, xList)

    gadsoyad = Me.listeogrenci.Column(1, xList)

    

    If DCount("trc_id", "tbl_tercihler", "[is_id]=" & is_id & "and [ogr_id]=" & gogrid) = 0 Then

        DoCmd.SetWarnings False

        DoCmd.RunSQL "insert into tbl_tercihler(ogr_id,adsoyad,is_id)values(" & gogrid & ",'" & gadsoyad & "'," & is_id & ")"

        DoCmd.SetWarnings True

    End If

Next xList

Me.frm_alt_tercih.Requery