Skip to main content

AccessTr.neT


Listedeki Tüm Kayıtları Alt Forma Aktarmak

Listedeki Tüm Kayıtları Alt Forma Aktarmak

Çözüldü #1
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Listedeki Tüm Kayıtları Alt Forma Aktarmak - Yazar: SeferŞANLI - 10/05/2020, 02:57