İki tabloya aynı anda kayıt.

[drummers]

Dim sql As New String("INSERT INTO data (Firmaunvani) values ('{0}')")
sql = String.Format(sql, TextBox1.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM data'")
baglanti.Close()
Temizle()

Bu kod ile "data" tabloma veri ekliyebiliyorum. Sıkıntım şurda

Eğer, Textbox2.Text,Textbox3.Text de veri varsa yukarıdaki işleme ek olarak
Textbox1.Text ve Textbox2.Text,Textbox3.Text deki verileri "ortak" tablosuna yazacak.


Sonuçta şu olmuş olacak
Textbox1.Text = Omur Can diyelim
Textbox2.Text = Osman Ak
Textbox3.Text = Can Aska


"data" tablosuna = Omur Can ı kaydetti


Textbox2 ve Textbox3 de veri var
"ortak" tablosuna = Omur Can, Osman Ak, Can Aska kaydedecek
Textbox2 veya Textbox3 ün herhangi birinde veri olması yeterli bir şart olacak.

Teşekkür ederim

 

[akd]

Merhabalar,
bakın ben aynı anda 3 tabloya birden kayıt yapabiliyorum,
aşağıdaki kodu iyice incalarseniz anlarsınız.
Dim Rc As DAO.Recordset
Set Rc = CurrentDb.OpenRecordset("YCari")
Rc.AddNew
Rc![SiraNo] = Me.T20
Rc![isim] = Me.T1
Rc![AlTar] = Me.T2
Rc![Ambalaj] = Me.T4
Rc![Miktar] = Me.T5
Rc![PesBirFiy] = Me.T10
Rc![Kdv] = Me.T12
Rc![isk] = Me.Ti
Rc![Tutari] = Me.T6
Rc.Update
Set Rc = Nothing


Dim Re As DAO.Recordset
Set Re = CurrentDb.OpenRecordset("Ggelirler")
Re.AddNew
Re![grup] = Me.T0
Re![Tarih] = Me.T2
Re![Aciklama] = Me.T1
Re![Türü] = Me.T3
Re![Miktar] = Me.T8
Re.Update
Set Re = Nothing

Dim Rf As DAO.Recordset
Set Rf = CurrentDb.OpenRecordset("giderler")
Rf.AddNew
Rf![Aciklama] = Me.T1
Rf![Tarih] = Me.T2
Rf![grup] = Me.T0
Rf![Türü] = Me.T3
Rf![Miktar] = Me.T8
Rf.Update
Set Rf = Nothing

 

[drummers]

Merhabalar,
bakın ben aynı anda 3 tabloya birden kayıt yapabiliyorum,
aşağıdaki kodu iyice incalarseniz anlarsınız.
Dim Rc As DAO.Recordset
Set Rc = CurrentDb.OpenRecordset("YCari")
Rc.AddNew
Rc![SiraNo] = Me.T20
Rc![isim] = Me.T1
Rc![AlTar] = Me.T2
Rc![Ambalaj] = Me.T4
Rc![Miktar] = Me.T5
Rc![PesBirFiy] = Me.T10
Rc![Kdv] = Me.T12
Rc![isk] = Me.Ti
Rc![Tutari] = Me.T6
Rc.Update
Set Rc = Nothing


Dim Re As DAO.Recordset
Set Re = CurrentDb.OpenRecordset("Ggelirler")
Re.AddNew
Re![grup] = Me.T0
Re![Tarih] = Me.T2
Re![Aciklama] = Me.T1
Re![Türü] = Me.T3
Re![Miktar] = Me.T8
Re.Update
Set Re = Nothing

Dim Rf As DAO.Recordset
Set Rf = CurrentDb.OpenRecordset("giderler")
Rf.AddNew
Rf![Aciklama] = Me.T1
Rf![Tarih] = Me.T2
Rf![grup] = Me.T0
Rf![Türü] = Me.T3
Rf![Miktar] = Me.T8
Rf.Update
Set Rf = Nothing

Kod bilgim zayıf ve VB2010 ile çalışıyorum.
Kodlarınızdan bişey anladım (ayıp olmadıysa)

 

[akd]

Ben 2003 kulandığım için, 2010 için birşey diyemeyecegim,
yukarıdaki kod ile aynı anda 3 tabloya kayıt yapabiliyorum.