AccessTr.neT

Merhaba değerli arkadaşlar... Access veritabanımdaki farklı tablolardaki bilgileri aynı exceldeki farklı satırlara aktarmak istiyorum yardımcı olabilirmisiniz... Şimdiden teşekkürler...

nereye neyi aktarmak istediğiniz anlaşılmıyor
isterseniz aktarılacak verileri gösteren bir sorgu oluşturup sorguyu excele yollayabilirsiniz.

(01/07/2022, 00:04)berduş yazdı: [ -> ]nereye neyi aktarmak istediğiniz anlaşılmıyor
isterseniz aktarılacak verileri gösteren bir sorgu oluşturup sorguyu excele yollayabilirsiniz.

Hocam sıfırdan bir Excel e örneğin aktaracağım Excel de Personel isimleri yazacak ve altına o tablodaki bilgileri Müşteri bilgileri yazacak onun altınada diğer tablodaki verileri aktarmak istiyorum.

Açtığınız konuyu takip edin ve sorularınızı anlaşılır şekilde sorun.
Veritabanında 2 tablonuz var birine personel birine müşteri demişsiniz excele sıfırdan aktaracağım diyorsunuz. Personel bilgisi aktarılacak müşteri hangi personel bilgisi ile eşlecek nasıl listelenecek, ilişkiler formatlar ile ilgili zerre bilgi yok. Konunuza dönüş yapın, yapmak istediğinizi açık net ve kısaca ifade edin. İlişkileri, yapıyı ortaya koyun yardımcı olmaya çalışalım aksi halinde konuyu çöpe taşıyacağım.

(06/07/2022, 13:20)atoykan yazdı: [ -> ]Açtığınız konuyu takip edin ve sorularınızı anlaşılır şekilde sorun.
Veritabanında 2 tablonuz var birine personel birine müşteri demişsiniz excele sıfırdan aktaracağım diyorsunuz. Personel bilgisi aktarılacak müşteri hangi personel bilgisi ile eşlecek nasıl listelenecek, ilişkiler formatlar ile ilgili zerre bilgi yok. Konunuza dönüş yapın, yapmak istediğinizi açık net ve kısaca ifade edin. İlişkileri, yapıyı ortaya koyun yardımcı olmaya çalışalım aksi halinde konuyu çöpe taşıyacağım.

Hocam haklısınız isteğim şudur ki her iki tablo daki bilgileri de aynı Excel sayfasına nasıl yazdırabilriim. Hiçbir bilgi birbiri ile eşleşmeyecek 2 tablodaki kayıtları aynı Excel sayfasına altlı üstlü aktarmak istiyorum... Daha açık nasıl anlatabilirim bilmiyorum...

Aşağıdaki kodu deneyin. İhtiyacınıza göre düzenlersiniz.

Private Sub Komut0_Click()

    Dim xlApp, xlwkb As Object, strdb As Database, rstbl1, rstbl2 As Recordset, strPath As String



    Set strdb = CurrentDb()

    Set xlApp = CreateObject("Excel.Application")



    strPath = "C:\xxx/yyy/abc.xlsx"  'verilerinizin aktarılacağı Excel dosyanızın yolu

    Set xlwkb = xlApp.Workbooks.Open(strPath)



    Set rstbl1 = strdb.OpenRecordset("tbl_musteri", dbOpenDynaset) ' ilk tablo verilerinden recorset oluştur

    rstbl1.MoveFirst

    xlwkb.Worksheets(1).Range("A1").CopyfromRecordset frst  ' ilk tablo verilerini A1'den başlayarak excele aktar

    rstbl1.Close

    

    Set rstbl2 = strdb.OpenRecordset("tbl_personel", dbOpenDynaset) ' ikinci tablodan recorset oluştur

    rstbl2.MoveFirst

    xlwkb.Worksheets(1).Range("A20").CopyfromRecordset srst ' ikinci tablo verilerini A20'den başlayarak excele aktar

    rstbl2.Close



    xlwkb.Close True ' Excel dosyasını kaydet kapat

    xlApp.Quit



    Set xlwkb = Nothing

    Set xlApp = Nothing

    Set rstbl1 = Nothing

    Set rstbl2 = Nothing

    Set strdb = Nothing



End Sub