Ö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.