Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu

Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu (/konu-formdaki-sayiya-gore-tabloda-tekrarlatma-sorunu.html)

Sayfalar: 1 2

Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - MURAT42 - 03/10/2018

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

Cvp: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - ozanakkaya - 03/10/2018

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.

Cvp: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - MURAT42 - 04/10/2018

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)

Cvp: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - ozanakkaya - 04/10/2018

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

Cvp: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - mehmetdemiral - 04/10/2018

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

Cvp: Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu - mehmetdemiral - 04/10/2018

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