AccessTr.neT

Tam Versiyon: Sorgu Sonuçlarını Excele aktarmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
İ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