Skip to main content

AccessTr.neT


Yeni Kayıta Eski Verilerin Kopyalanması

Yeni Kayıta Eski Verilerin Kopyalanması

Çözüldü #1
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?
.zip Kopyala-Yapistir Uygulamasi.zip (Dosya Boyutu: 28,57 KB | İndirme Sayısı: 8)
Cevapla
#2
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.
Cevapla
#3
Evet aradığım buydu teşekkürler..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task