Skip to main content

AccessTr.neT


Alt Formdan Tabloya Veri Aktarımı

volkan.gulbahar
volkan.gulbahar
3
637

Alt Formdan Tabloya Veri Aktarımı

Çözüldü #1
Örnekteki uygulamamda alt formdaki verileri TblDagitim tablosuna almak istiyorum.
Saygılarımla,
.rar ornek.rar (Dosya Boyutu: 46,77 KB | İndirme Sayısı: 4)
Cevapla
#2
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
Cevapla
#3
Ü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.
.rar Yeniornek.rar (Dosya Boyutu: 53,69 KB | İndirme Sayısı: 2)
Cevapla
Çözüldü #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

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task