AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Alt Formdan Tabloya Veri Aktarımı

11/03/2021, 22:14

volkan.gulbahar

Örnekteki uygulamamda alt formdaki verileri TblDagitim tablosuna almak istiyorum.
Saygılarımla,
12/03/2021, 12:02

ozanakkaya

Merhaba, sorunuzdan malesef bir şey anlamadım. Uygulamada TblDagitim adında tablo yok. Hangi formdaki alt formdaki veri hangi tabloya aktarılacak isimleri ile yazarsanız çözüm bulmaya çalışırız
12/03/2021, 13:29

volkan.gulbahar

Üstadım kusura bakma ekte yeniornek.rar içindeki dosyamı, sizlerin örneklerinden yaparak belirli bir aşamaya getirdim.  Frmdagitim formu içinde yer alan alanları ve listeSec liste kutusunu, AltFrmTbldolap altformunda birleştirdim. Ama yapamadığım ve yardımınızı istediğim şey, bu alt formda birleştirdiğim verileri TblDagitim tablosuna alabilmek.
İlgilendiğiniz için teşekkürler.
19/03/2021, 07:06

ozanakkaya

FrmDagitim isimli forma komut butonu ekle, tıklandığında olayına aşağıdaki kodu ekle.


Kod:
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strSql As String

Dim varRecCnt, cntr


strSql = Forms!FrmDagitim.AltFrmTblDolap.Form.RecordSource


Set rs = CurrentDb.OpenRecordset(strSql)
rs.MoveLast
rs.MoveFirst

varRecCnt = rs.RecordCount

Set rs2 = CurrentDb.OpenRecordset("TblDagitim")

For cntr = 1 To varRecCnt
     rs2.AddNew
     rs2.Fields("SeriNo").Value = rs.Fields("SeriNo").Value
     rs2.Fields("Marka").Value = rs.Fields("Marka").Value
     rs2.Fields("Model").Value = rs.Fields("Model").Value
     rs2.Fields("IrsNo").Value = Me.IrsNo
     rs2.Fields("IrsTrh").Value = Me.IrsTrh
     rs2.Fields("StokYeri").Value = Me.StokYeri
     rs2.Fields("Musteri").Value = Me.Musteri

     rs2.Update

     rs.MoveNext
Next cntr

rs2.Close
Set rs2 = Nothing

rs.Close
Set rs = Nothing