O zaman kodu şu şekilde düzeltin

Private Sub Komut6_Click()
Dim Kaydet As DAO.Recordset
Set Kaydet = CurrentDb.OpenRecordset("Tablo1")

For sayi = 1 To Me.Metin3
    Kaydet.AddNew
    Kaydet![Metin1] = Me.Metin1
    Kaydet![Metin2] = Me.Metin2
    Kaydet![Metin3] = sayi
    Kaydet.Update

Next


Me.Metin1 = ""
Me.Metin2 = ""
Me.Metin3 = ""


End Sub