Örnekteki uygulamamda alt formdaki verileri TblDagitim tablosuna almak istiyorum.
Saygılarımla,
#1
ornek.rar
(Dosya Boyutu: 46,77 KB | İndirme Sayısı: 4)
Alt Formdan Tabloya Veri Aktarımı
#1
ornek.rar
(Dosya Boyutu: 46,77 KB | İndirme Sayısı: 4)
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
Ü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.
İlgilendiğiniz için teşekkürler.
Yeniornek.rar
(Dosya Boyutu: 53,69 KB | İndirme Sayısı: 2)
#4
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
Konuyu Okuyanlar: 1 Ziyaretçi
