[SORGU] Excele Aktarma - Kayıtları Yan Yana Görüntüleme Sorunu
#1
Merhaba arkadaşlar.

Ekteki örnek veritabanında da görüleceği üzere;
Veritabanı 4 tablodan oluşmakta.

Ana Tablo olan Personel tablosu ve;
Notlar-Kitaplar ve Filmler olmak üzere toplamda 4 tablom mevcut. Personel Ana tablosundan personel numarası ile diğer tablolar arasında ilişki kurarak formu oluşturdum. Verileri girmekte ve görüntülemekte hiçbir problem yok. Ben bu ana tablodan, ilgili personelin film, kitap ve notlarını excele aktarmak istiyorum.

Yani exceldeki başlıklar;

Personelno-adı-soyadı-kitap1-kitap2-kitap3-kitap4...-not1-not2-not3-not4-....-film1-film2-film3-film4

Bu şekilde, personellere ne kadar film, not ya da kitap eklenmişse yanyana yazdırsın istiyorum.

Böyle bir şeyi sorgu ile ya da başka bir yöntem ile yapmak mümkün müdür arkadaşlar?

Saygı ve selamlarımla.


Eklenti Dosyaları
.rar   örnek.rar (Boyut: 33,51 KB / İndirilme: 15)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Public Function YanYana(Sicil As Long, Tablo As String) As String
  2. Dim Kayit As New ADODB.Recordset
  3. Dim Cevap As String
  4. Kayit.Open " Select * From " & Tablo & " Where (((personel_no)=" & Sicil & "))", _
  5. CurrentProject.Connection, adOpenStatic, adLockReadOnly
  6. Do Until Kayit.EOF
  7. Cevap = Cevap & Kayit.Fields(2) & "-"
  8. Kayit.MoveNext
  9. Loop
  10. Kayit.Close
  11. Set Kayit = Nothing
  12. YanYana = Mid(Cevap, 1, Len(Cevap) - 1)
  13. End Function



Module yukarida ki proseduru tasiyin.

Visual Basic
  1. private sub buton_click()
  2. Currentdb.execute "SELECT T_Personel.numarası, [adi] & ' ' & [soyadi] AS Kimo,
  3. YanYana([numarası],'T_film') AS Sinema, YanYana([numarası],'T_kitaplar') AS
  4. Kitap, YanYana([numarası],'T_notlar') AS Notu INTO Gecici FROM T_Personel"
  5.  
  6. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Gecici", "C:\aktar.xlsx", True
  7.  
  8. docmd.DeleteObject acTable, "Gecici"
  9. end sub



Buton araciligi ile excel'e aktarabilirsiniz..



  Alıntı
Bu mesajı beğenenler:
#3
Hocam söylediğiniz şekilde yapmaya çalıştım ama beceremedim.
Visual Basic
  1. Public Function YanYana(Sicil As Long, Tablo As String) As String
  2. Dim Kayit As New ADODB.Recordset
  3. Dim Cevap As String
  4. Kayit.Open " Select * From " & T_Personel & " Where (((personel_no)=" & Forms!F_Personel!no & "))", _
  5. CurrentProject.Connection, adOpenStatic, adLockReadOnly
  6. Do Until Kayit.EOF
  7. Cevap = Cevap & Kayit.Fields(2) & "-"
  8. Kayit.MoveNext
  9. Loop
  10. Kayit.Close
  11. Set Kayit = Nothing
  12. YanYana = Mid(Cevap, 1, Len(Cevap) - 1)
  13. End Function



İlk başta yukarıdaki kodları bir module yazdım. Module1 olarak kaydettim.

Daha sonra da; forma yerleştirdiğim bir butonun tıklandı olayına;

Visual Basic
  1. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Gecici", "D\test.xlsx", True



kodunu yerleştirdim. Beceremedim aceba nerede hata yapıyorum ?



  Alıntı
Bu mesajı beğenenler:
#4
Sorgu(SQL) kaydedip, calistirma sonu Gecici tablo olusmasi sonrasi transfer islemi yapabilirsiniz.

Mesaj: #2 'yi guncelledim.



  Alıntı
Bu mesajı beğenenler:
#5
Nihayet halledebildim. Çok teşekkür ediyorum hocam, ellerinize sağlık Smile



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  kullanıcı formunda pdf, word, vs.. dosya görüntüleme, ve ilgili işlemeler... tarkanay 6 107 07-09-2019, 22:20
Son Mesaj: tarkanay
  Access Raporu Göründüğü Gibi Excele Aktarma akinokrizo 1 101 05-08-2019, 00:44
Son Mesaj: dsezgin
  [SORGU] Bir Tablodaki Satırların Toplamını UPDATE İle Başka Tabloya Aktarma ahmet025896 1 255 29-01-2019, 16:44
Son Mesaj: jon206
  [ADO / DAO] Accessten Excele aktarırken Hata mmert06 13 576 27-01-2019, 21:42
Son Mesaj: mmert06
  [SORGU] Excele aktarmada sorun orderyazbim 2 258 28-11-2018, 15:36
Son Mesaj: orderyazbim
  [VBA] mssql deki resmi görüntüleme hedefkaya 2 196 17-11-2018, 22:22
Son Mesaj: hedefkaya
  [VBA] Excel tablosundan istenilen verileri Access tablosuna aktarma @MSC 3 454 07-11-2018, 00:29
Son Mesaj: dsezgin
  Dinamik Kayıt Arama, Listeleme ve Aktarma Aracı asoha 2 411 11-10-2018, 14:37
Son Mesaj: asoha

Foruma Git:


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