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.