+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Formdan Tabloya Veri Aktarımı (/konu-alt-formdan-tabloya-veri-aktarimi.html)
Alt Formdan Tabloya Veri Aktarımı - volkan.gulbahar - 11/03/2021
Örnekteki uygulamamda alt formdaki verileri TblDagitim tablosuna almak istiyorum.
Saygılarımla,
RE: Alt Formdan Tabloya Veri Aktarımı - ozanakkaya - 12/03/2021
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
RE: Alt Formdan Tabloya Veri Aktarımı - volkan.gulbahar - 12/03/2021
Ü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.
Re: Alt Formdan Tabloya Veri Aktarımı - ozanakkaya - 19/03/2021
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