Skip to main content

AccessTr.neT


Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu

Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu

Çözüldü #1
Ö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.
.rar Deneme.rar (Dosya Boyutu: 20,04 KB | İndirme Sayısı: 4)
Cevapla
#2
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.
Cevapla
#3
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)
Cevapla
#4
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
Cevapla
#5
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
İnadına, ille de Accesstr.net...
Cevapla
#6
Ozan yazdığını görmemişim. Kusura bakma kardeşim. Img-grin
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da