iki tablo arası Kayıt Güncelleme

07/04/2014, 11:53

derbederali1971

Merhaba,

Ben 2 tablo yaptım Tablo1 ve tablo2. Ve Tablo1 veri girdiğim bir form yaptım aynı forma koyduğum bir metin kutusundaki değeride dahil Tablo2 ye yazmak için bir buton var ve tıklayınca yazıyor.Yapamadığım yazarken aynı Kkodu ile yaptığımda tablo2 ye yeni kayıt atıyor ben aynı kKodu olduğunda eski kaydı güncellesin istiyorum bir türlü yapamadım.
İlginiz için teşekkürler.
07/04/2014, 16:12

ozanakkaya

ADO ile kayıt ekleme, güncelleme, silme ve yürüyen bakiye örneği linkindeki kodu örneğinize uyguladım. Veritabanına 2 ado referansı ekledim.

strSQL = "SELECT * FROM Tablo2 "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[KayitNo]=" & "'" & Me![KNo] & "'"
If Not rstkayit.EOF Then
.Fields("KayitNo") = Me.KNo
.Fields("ad") = Me.ad
.Fields("soyad") = Me.soyad
.Fields("KSoyad") = Me.KSoyad
MsgBox ("Tablodaki " & Me.ad & " " & Me.soyad & " isimli kişiye ait veri güncellendi")

.Update
Else
.AddNew
.Fields("KayitNo") = Me.KNo
.Fields("ad") = Me.ad
.Fields("soyad") = Me.soyad
.Fields("KSoyad") = Me.KSoyad
MsgBox ("Tabloya " & Me.ad & " " & Me.soyad & " isimli kişi eklendi")
.Update
End If
End With




Ayrıca Sorgu yardımı linkindeki sorunuza geri bildirimde bulununuz.
07/04/2014, 17:33

derbederali1971

Çok teşekkür ederim. Bu örnek çok işime görecek. Bilginize sağlık.