Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim GKayit As DAO.Recordset

Dim GTarih As Date



Set GKayit = CurrentDb.OpenRecordset("Select * From Tablo1")



    GTarih = Me!Metin0.Value

    While DateDiff("d", GTarih, Me!Metin2.Value) >= 0

            GKayit.AddNew

            GKayit!TARİH.Value = GTarih

            GKayit.Update

            GTarih = DateAdd("d", 1, GTarih)

    Wend

    GKayit.Close

    Set GKayit = Nothing