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
