forma mtn_vadesayisi adında metin kutusu ekle, butonun tıklandığında olayına aşağıdaki kodu ekle

On Error Resume Next

    For X = 1 To Me.mtn_vadesayisi 

    

    DoCmd.GoToRecord , , acNewRec

    Me.kısım = "GİDER"

        If X = 1 Then

            Me.tarihi = Me.Metin124

        Else

            Me.tarihi = Controls("M" & X)

        End If

    Me.onayı = "Bekliyor"

    Me.adı = Forms![YENİ DAİMİ GİDER GİRİŞİ]![adi]

    Me.tutarı = [tutari]

    Next



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70



MsgBox (" Vade Oluşturuldu")

mtn_vadesayisi metin kutusuna yazdığın sayı kadar kayıt ekler.