AccessTr.neT

İyi günler diliyorum değerli arkadaşlar.Yaptığım bir formda sorgu sonuçlarını Excel sayfasında göstermesini istiyorum.Bu konuda yardımcı olabilirmisiniz

yeni bir makro oluştur,

Makroda

Eylem : Çıktı
seç

Eylem Değişkenlerinde

Nesne Türü: Sorgu
Nesne Adı: "İlgili Sorgunu Seç"
Çıktı Biçimi: MicrosoftExcelBiff8(*.xls)
Otomatik Başlat :Evet
seçebilirsin.

Daha Sonra butonunu oluturup makroyu seç
en kısa haliye

Bunuda deneyebilirsiniz.

Select Case MsgBox("Excele Aktarma İşlemi Yapılacak." _

                   & vbCrLf & "" _

                   & vbCrLf & "Devem Edilsin mi?" _

                   , vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



    Case vbYes

    Dim adres As String

    adres = Environ("userprofile") & "\Desktop\AccessTr.xls"

    DoCmd.TransferSpreadsheet acExport, 8, "SORGU_ADI", adres, True, "AccessTr"

    MsgBox "Aktarma İşlemi Gerçekleşti.", , "Tebrikler"

    Case vbNo



End Select