[VBA] Seçilene Göre Tabloya Birden Fazla Satırda Veri Aktarma
#1
Tablo1 de servis ve personel isimleri yazılı olsun. Boş olan Tablo2 ye Formdan seçtiğim servise göre Tablo2 ye yazdırmak istiyorum malum beceremiyorum. Daha önce benzerini sordum cevaplanmıştı ama o tek bir veri için yapıyordu. Burada serviste birden fazla personel olduğunda satır satır yazdırmasını istiyorum. Çok denedim ama sadece ilk personeli yazdırabiliyorum. Döngü yapmaya çalıştım olmadı, yardım ederseniz sevinirim. Yazdıklarım anlaşılmamış olabilir diye örnek programı ekte verdim. Mesela örnekte servisi bakım olarak seçilse tüm servisi bakım olan personelleri kod yardımıyla nasıl Tablo2 ye atabilirim.  Şimdiden teşekkürler.


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 17,92 KB / İndirilme: 120)



  Alıntı
Bu mesajı beğenenler:
#2
forma ekleyeceğiniz açılır kutudan (AKServis) servisi seçtiğiniz varsayılırsa aşağıadki kod işinize yarayabilir
Visual Basic
  1. Dim SqlEkle As String
  2. SqlEkle = "INSERT INTO Tablo2 ( Servis, Personel ) " & _
  3.          "SELECT Servis, Personel " & _
  4.          "FROM Tablo1 where [Servis]='" & Me.AKServis.Value & "'"
  5. CurrentDb.Execute SqlEkle





  Alıntı
Bu mesajı beğenenler:
#3
Çok Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#4
Rica ederim
Iyi calismalar



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma Pasham 1 291 19-02-2026, 21:18
Son Mesaj: adnan
  [SORGU] Kelime Içinde Geçen 2 3 4 Harfe Göre Veri Doldurma toros333 1 283 16-02-2026, 02:12
Son Mesaj: dsezgin
  Tabloya Göre Veri Doldurma toros333 2 212 15-02-2026, 01:48
Son Mesaj: toros333
  [SORGU] Birden Fazla Sorguyu Tek Ekranda Görebilme MERAK 1 282 03-11-2025, 08:27
Son Mesaj: dsezgin
  [FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma kertiller_55 1 366 03-10-2025, 15:32
Son Mesaj: dsezgin
  [VBA] Birden çok Seçenek Seçili Alandaki Verileri Kopyalama evidi 9 685 26-02-2025, 17:36
Son Mesaj: evidi
  Kullanıcıya Göre Tablodan Veri çekme semyross 1 348 20-12-2024, 00:30
Son Mesaj: halily
  Sorguda Birden Fazla Ifadeli Sütunu Toplatma halil.tefci 8 777 03-12-2024, 15:01
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi