Sayın atoz112, Çok özür dileyerekten başlıyorum. Aşağıdaki kodları sizin istediğiniz gibi buton tıklandığında olayına kodları yazdım, değerler sayı olduğu için tek tırnağıda kaldırdım. yinede aktarım yapmadı. Birde Acces çalışma sayfasınıda 2007 olarak kaydettim. herhalde açabilirsiniz. Tıkandığım bu sorunuda aşmama yardım ederseniz çok memnun olurum.Saygılarımla.

Private Sub Komut358_Click()

Dim i, e As Integer
i = Me.adet
For e = 0 To i - 2
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
Next e


DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO kurban_tablo([krbn_küpe_no],[Sat_hisse_adet]) VALUES (" & Me.Sat_hisse_adet & "," & Me.adet & ")"
DoCmd.SetWarnings True


On Error GoTo Err_Form_Yenile_Click

DoCmd.RunCommand acCmdRefresh

Exit_Form_Yenile_Click:
Exit Sub

Err_Form_Yenile_Click:
MsgBox Err.Description
Resume Exit_Form_Yenile_Click

End Sub