+- 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ığı: Yeni Kayıta Eski Verilerin Kopyalanması (/konu-yeni-kayita-eski-verilerin-kopyalanmasi.html)
Yeni Kayıta Eski Verilerin Kopyalanması - notrino - 21/08/2018
Merhabalar,
Ekli örneğimde o anda hangi kayıt ekranda görünüyorsa, butona basıldığında yeni kayıt açılmalı, devamında o veriler yeni kayıt altına eklenmeli. Örnek;
Ekranda;
Kimlik = 1
alan1 = A
alan2 = 1-2-3-4-5
görünürken butona basılınca "yeni kayıt" açılsın ve yine;
alan1 = A
alan2=1-2-3-4-5
şeklinde yeni kayıt oluşsun. Yani sadece yeni bir kimlik değeri oluşmalı, diğer veriler aynen kopyalanıp yapıştırılmalı.Nasıl bir VB kod ile yapılabilir?
Cvp: Yeni Kayıta Eski Verilerin Kopyalanması - ozanakkaya - 27/08/2018
Butonun tıklandığında olayına
Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String
AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.alan1
DoCmd.GoToRecord , , acNewRec
Me.alan1 = AccessTr_EskiAlan
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tablo2 ( alan2, Kimlik ) SELECT Tablo2.alan2, " & Me.Kimlik & " FROM Tablo2 WHERE (((Tablo2.Kimlik)= " & AccessTr_EskiKimlik & "));"
DoCmd.SetWarnings True
Kodu ekleyerek deneyiniz.
Cvp: Yeni Kayıta Eski Verilerin Kopyalanması - notrino - 27/08/2018
Evet aradığım buydu teşekkürler..