formdan 4 tabloya kayıt ekleme
Tarih
27/03/2012 18:11
Konu Sahibi
kokotuna
Yorumlar
7
Okunma
2128
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
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.
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
22/12/2016,18:59
Çözüldü 
Örneği görme imkanımız var mı acaba..
Cevapla

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
örnek ekte buyrun...

Ek Dosyalar
YENİ.rar

Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
22/12/2016,18:59
Çözüldü 

Visual Basic Code
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.

Cevapla

Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
17/01/2017,22:09
Çözüldü 
Sponsor Reklam
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
ustalarım çok teşekkür ederim... Elinize sağlık.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  alt formdan çıkışta ana formdaki alanı güncelleme hknct 2 104 20/01/2017, 11:45 hknct
  Tabloya Resim Yolu Eklenen Resmi Raporda Gösterme siyahca 2 90 19/01/2017, 16:59 siyahca
  Yemek Sipariş Portalı 4 Sorgu Ekleme al1en 2 136 18/01/2017, 00:26 ozanakkaya
  toplu ekleme hakkında. hbal09 7 296 16/01/2017, 08:27 hbal09
  ekleme sorgusunu istenilen sayıda çalıştırmak hbal09 12 361 06/01/2017, 15:37 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya