Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] tablodar satır çoğaltmak

[VBA] tablodar satır çoğaltmak
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#1
14-05-2017, 12:59
MERHABA
Tablo1 de Kimlik ve Adet alanları var

benim yabmak istediğim
tablo1 de adet alanındaki sayı kadar Tablo2 de satır açmak ve Kimlik numarasını
Tablo2 de sıra kutusuna yazmak.

örnek

tablo1
Kimlik Adet
100 2
101 3

tablo2
sıra
100
100
101
101
101

şimdiden teşekürler...





  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
14-05-2017, 15:50
Visual Basic
  1. Sub Yukle()
  2. Dim Kayit As Recordset, Sayac As Long
  3. Set Kayit = currentdb.openrecordset("Select Kimlik, Adet from Tablo1 order by Kimlik")
  4. Kayit.MoveFirst
  5. Do While Not Kayit.EOF
  6.     For Sayac = 1 To Kayit!Adet
  7.     CurrentDb.Execute "Insert Into Tablo2 ( Sira ) VALUES(" & Kayit!Kimlik) & ")"
  8.     Next Sayac
  9. Kayit.MoveNext
  10. Sayac=0
  11. Loop
  12. Kayit.Close
  13. Set Kayit = Nothing
  14. End Sub


Proseduru ile yapilabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#3
14-05-2017, 16:53
SAYIN dsezgin
ilgin için teşekürler fakat aşağıdaki satırda hata veriyor

CurrentDb.Execute "Insert Into Tablo2 ( Sira) VALUES(" & Kayit!Kimlik) & "')"

sorgu ifasesi içide söz dizimi hatası diyor



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#4
14-05-2017, 17:12
(14-05-2017, 16:53)hedefkaya demiş ki: CurrentDb.Execute "Insert Into Tablo2 ( Sira) VALUES(" & Kayit!Kimlik) & "')"
sorgu ifasesi içide söz dizimi hatası diyor

( Sira ) olarak degistirin
VALUES(" & Kayit!Kimlik) & "')" sonda ki kesme isaretini kaldirin.

Sira alani veri turu metin ise kesme isareti ile sinirlamali, sayi ise kesme isareti kullanmamali.
Veri girilecek yer de ( Sira, Kimlik, Vb... ) seklinde olamali.

Benzer yazim hatalari degistirebilirsiniz dusuncesi ile dikkat etmemisim.

Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#5
14-05-2017, 18:29
TEŞEKÜRLER SAYIN dsezgin

çok işimi gördü



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Row-number() Yada Satır Sayısı kahramanselim 2 381 15-10-2024, 16:26
Son Mesaj: kahramanselim
  [RAPOR] Satır Aralarında Boşluk Olması meceka 1 353 31-05-2024, 15:16
Son Mesaj: dsezgin
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 996 24-12-2023, 14:38
Son Mesaj: dsezgin
  Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. OGUZTURKYILMAZ 1 451 22-04-2023, 23:48
Son Mesaj: OGUZTURKYILMAZ
  [SORGU] Son 10 Kayıt Hariç Tabloda Satır Silme hedefkaya 9 841 03-09-2022, 17:59
Son Mesaj: halily
  [RAPOR] Rapor Alt Bilgisinde Rapor Alanındaki Satır Sayısını Gösterme bobili 6 795 23-02-2022, 13:37
Son Mesaj: bobili
  [TABLO] Hata Kodu 3822.eni Satir Kaydedilene Kadar Değer Bu Satıra Kaydedilemez rerdem1903 21 1.737 01-02-2022, 03:02
Son Mesaj: rerdem1903
  "blok şifresi Ile şifreleme, Satır Düzeyinde Kilitleme Ile Uyumlu Değil..." Hatası adnnfrm 1 644 21-11-2021, 00:08
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):