(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