formdan 4 tabloya kayıt ekleme

formdan 4 tabloya kayıt ekleme - Baskı Önizleme

+- 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ığı: formdan 4 tabloya kayıt ekleme (/konu-formdan-4-tabloya-kayit-ekleme.html)

Sayfalar: 1 2

formdan 4 tabloya kayıt ekleme - kokotuna - 27/03/2012

arkadaşlar TERZAGHİ formunda veri girişi yaptığım kutucuğun(denetim kaynağı TERZAGHİ güncelleştirme sonrasındaki olayına aşağıdaki kodu yazdığımda sadece DİKDÖRTGEN VE TERZAGHİ ye veriyi kaydediyor diğer tablolara kaydetmiyor ne denediysem olmadı acaba nasıl düzenlenmeli kod?
NOT: yazmaya çalıştığım kodun orjinalini 2 tablo için bir arkadaş yazmış ve orjinaline ekleme yapmaya çalıştım ancak beceremedim Img-grin

düzenlemeye çalıştığım kod;
[vb]
Private Sub TEMELTİPİ_AfterUpdate()
Dim Re As DAO.Recordset
Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT")
Set Re = CurrentDb.OpenRecordset("TERZAGHİ KARE")
Set Re = CurrentDb.OpenRecordset("TERZAGHİ DİKDÖRTGEN")
Re.AddNew
Re![TEMELTİPİ] = Me.TEMELTİPİ
Re.Update
End Sub

orjinal kod;

Private Sub TEMELTİPİ_AfterUpdate()
Dim Re As DAO.Recordset
Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT")
Re.AddNew
Re![TEMELTİPİ] = Me.TEMELTİPİ
Re.Update
End Sub

şimdiden teşekkür ederim.

Cvp: formdan 4 tabloya kayıt ekleme - ercansahin - 27/03/2012

Örneği görme imkanımız var mı acaba..

Cvp: formdan 4 tabloya kayıt ekleme - kokotuna - 27/03/2012

örnek ekte buyrun...

YENİ.rar

Cvp: formdan 4 tabloya kayıt ekleme - ercansahin - 27/03/2012

Dim Re, Re1, Re2 As DAO.Recordset

Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT"): Set Re1 = CurrentDb.OpenRecordset("TERZAGHİ KARE"): Set Re2 = CurrentDb.OpenRecordset("TERZAGHİ DİKDÖRTGEN")

Re.AddNew: Re![TEMELTİPİ] = Me.TEMELTİPİ: Re.Update

Re1.AddNew: Re1![TEMELTİPİ] = Me.TEMELTİPİ: Re1.Update

Re2.AddNew: Re2![TEMELTİPİ] = Me.TEMELTİPİ: Re2.Update

denermisiniz.

Cvp: formdan 4 tabloya kayıt ekleme - Yandemir - 27/03/2012

ercan hocamızın yaptığı örneğin sadeleştirilmiş halidir. mantığını öğrenmeniz açısından ekledim. basit işlemler için tek recordset eklemenizde fayda vardır çünkü her recordset hafızada yer işgal eder sizin işlemde tek tabloyu set edip işiniz bitince kapatmanız ve diğer tablo ile işleme geçmeniz yüzünden böyle kullanmanızda fayda vardır. büyük uygulamalarda karşınıza çıkacaktır.

Private Sub TEMELTİPİ_AfterUpdate()

 Dim Re As DAO.Recordset



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ KARE")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ DİKDÖRTGEN")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close

End Sub

Cvp: formdan 4 tabloya kayıt ekleme - kokotuna - 28/03/2012

ustalarım çok teşekkür ederim... Elinize sağlık.