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.