Öncelikle Tüm Access ailesine Günaydın,
Benim sorunum Formda 3 adet Metin kutusu var. Metin1 ve Metin2 aynı olacak ve metin3 gireceğimiz sayıya göre tekrarlayacak, sayarak tabloya yazacak. for next döngüsü ile olacak diye tahmin ediyorum ama... örnek ilave ettim. Şimdiden teşekkürler.

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] = Me.Metin3

    Kaydet.Update



Next





Me.Metin1 = ""

Me.Metin2 = ""

Me.Metin3 = ""

kodunu deneyiniz.

Ozan Hocam teşekkürler. Lakin Kaydı istediğimiz sayı kadar ekliyor lakin Metin3 yazdığımız sayı kadar ekleyecek ve "Metin3 1 den istediğimiz sayıya kadar da artarak devam edecek (5 yazdı isek metin3 = 1 , 2, 3, 4, 5 gibi)

Lütfen sorularınızı açık yazınız. Önceki mesaja yazdığım 

Kaydet![Metin3] = Me.Metin3

Kodunu aşağıdaki ile değiştir.

Kaydet![Metin3] = SAyi

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

Ozan yazdığını görmemişim. Kusura bakma kardeşim.