Çok Alanlı Kopyala-yapıştır Uygulaması

1 2
01/09/2018, 10:35

notrino

Merhabalar,

Ekli örneğimde butonun tıklama olayındaki kodlarda Tablo2 de sadece alan2 olur, alan3'ü silersem ve aşağıdaki kodu yazarsam gayet düzgün çalışıyor. Yani alan2'yi problemsiz bir şekilde kopyalayıp yeni kayda yapıştırıyor.

Bu kod:

Kod:
Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String
Dim GRevizyon As Integer
AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.revizyon
DoCmd.GoToRecord , , acNewRec
Me.revizyon = 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
GRevizyon = Val(Mid(Me.revizyon, 2, Len(Me.revizyon)))
Me.revizyon = "R" & GRevizyon + 1

Ancak Tablo3'e alan3 eklediğimde, (ki ekli örneğim böyledir) ve kodları da ekli örneğimdeki gibi organize ettiğimde bir türlü iki alanı birden kopyalayıp yeni kayda yapıştıramıyorum.Kopyalanıp yapıştırılacak alan sayısının 2 ve daha fazla olması durumunda bu mesele nasıl çözülecek? Tşk.
01/09/2018, 11:33

mehmetdemiral

Bu formlar arasında birden çok kaydın başka bir kayda aktarılmasıyla ilgili yaklaşık 10 tane konu açtınız. Lütfen aynı türden konularınızı alt alta devam ettirir misiniz? Konu anarşisi yaşanıyor sitede. Bakıyorum her açtığınız konu aynı konunun aşamaları veya ilerleyişi biçiminde. Açıklar mısınız, neden böyle yapıyorsunuz?
01/09/2018, 11:47

notrino

(01/09/2018, 11:33)mehmetdemiral yazdı: Bu formlar arasında birden çok kaydın başka bir kayda aktarılmasıyla ilgili yaklaşık 10 tane konu açtınız. Lütfen aynı türden konularınızı alt alta devam ettirir misiniz? Konu anarşisi yaşanıyor sitede. Bakıyorum her açtığınız konu aynı konunun aşamaları veya ilerleyişi biçiminde. Açıklar mısınız, neden böyle yapıyorsunuz?

Dediğiniz şekilde bu başlık altında 10 tane konu açılmış değil. Açılan her konu bir meselenin çözümüne yöneliktir, genelde Ozan Bey ile yazıştığımız detaylarda bunlar mevcut, inceleyebilirsiniz. Bu örnekte de konu karmaşası yaratan bir detay göremiyorum. Şöyle ki;

Daha önceki çözüm Tablo2'de "tek bir alanın" kaydının kopyalanıp yapıştırılmasını içeriyordu. Ancak bu son gönderdiğim uygulama, Tablo2'de birden fazla alanın kopyalanıp yapıştırılmasının ne tarz bir Sql deyimiyle yapılması gerektiğini ifade ediyor. Buna benzer bir önceki konuda, Sql deyimiyle ilgili bir hata mesajı söz konusuydu, o hata mesajının çözümünü Ozan Bey bildirdi. Şimdiki mesele ise herhangi bir hata mesajı vermeyip, Tablo2'de birden fazla alan söz konusu olduğunda kopyala-yapıştır işleminin nasıl gerçekleşeceğidir. Yani bu son soru, hiç bir hata mesajı vermediği halde kopyala-yapıştır işlemi "yapmamaktadır." Bu nasıl çözülebilir araştırdığım bu..
05/09/2018, 10:43

notrino

Bu konuda bir çözüm var mıdır acaba?
06/09/2018, 21:45

mehmetdemiral

(05/09/2018, 10:43)notrino yazdı: Bu konuda bir çözüm var mıdır acaba?

Evet var. Düğmenin olay yordamını şu şekilde düzeltin:

Kod:
Private Sub Komut13_Click()


Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String

AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.alan

DoCmd.GoToRecord , , acNewRec

Me.alan = AccessTr_EskiAlan

DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tablo2 (alan3, alan2, Kimlik ) SELECT Tablo2.alan3,alan2, " & Me.Kimlik & " FROM Tablo2 WHERE (((Tablo2.Kimlik)= " & AccessTr_EskiKimlik & "));"

DoCmd.SetWarnings True

End Sub
08/09/2018, 08:54

mehmetdemiral

Sorununuz ile ilgili bu konuya dönüş yapmamışsınız. Problem çözüldüyse bildirir misiniz?
1 2