Listedeki Tüm Kayıtları Alt Forma Aktarmak

Dim GItem As Variant

Dim gogrid As Integer

Dim gadsoyad As String

For Each GItem In Me.listeogrenci.ItemsSelected

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

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

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

MsgBox (gadsoyad & " " & "isimli öğrenciyi eklediniz")

Else

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 GItem

Me.frm_alt_tercih.Requery

Sayın hocalarım; Verdiğim kodda listeogrenciler listesinden seçilen kayıtları  "frm_alt_tercih" alt formuna göndererek "tbl_tercihler" tablosuna kayıtları oluşturuyorum.

* listedeki tüm kayıtları aktarma işlemini nasıl yapabilirim?
* listedeki tüm kayıtları geri alma (silme) işlemini nasıl yapabilirim?


silme butonu kodlarım

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([frm_alt_tercih].Form![txtogradsoyad] & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

 DoCmd.RunSQL "delete ogr_id,adsoyad from tbl_tercihler where (((ogr_id)=" & gogrid & ") and ((adsoyad)='" & gadsoyad & "'));"

 DoCmd.SetWarnings True

 End If

 Me.listeogrenci.Requery

 Forms!frm_tercih_islemleri!.Form.frm_alt_tercih.Requery

eklediğim dosyada dal tercih işlemleri formunda bir butona bastığımda listedeki tüm öğrencilerin alt form aktarılması

tümünü eklemek istediğinizde olmayanları eklemesini istiyorsunuz değil mi?
"tümünü ekle" diye yeni bir buton eklenecek ve kodlar oraya yazılacak?

Evet sayın berduş. Tümünü ekle butonu ekleyerek, mükerrer olmamak kaydıyla listedeki tüm kişileri alt forma ekeyecek. Tümünü sil dediğimdede altformu boşaltacak.

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

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