AccessTr.neT
iki tablo arası Kayıt Güncelleme - 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ığı: iki tablo arası Kayıt Güncelleme (/konu-iki-tablo-arasi-kayit-guncelleme.html)



iki tablo arası Kayıt Güncelleme - derbederali1971 - 07/04/2014

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.


Cvp: iki tablo arası Kayıt Güncelleme - ozanakkaya - 07/04/2014

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

[Resim: do.php?img=4254]


Ayrıca Sorgu yardımı linkindeki sorunuza geri bildirimde bulununuz.


Cvp: iki tablo arası Kayıt Güncelleme - derbederali1971 - 07/04/2014

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