Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Aynı anda 8 tane sorgunun excel olarak çıkartılması

danke
danke
Access Cevaplanmış Soruları
6
3726

Aynı anda 8 tane sorgunun excel olarak çıkartılması

Çözüldü #3
Taruz
Aktif Üye
Taruz
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Belirtilmemiş
Son Oturumu: 10/06/2014,13:15
Yorumları: 104
Konuları: 4
Kayıt Tarihi: 04/10/2009
Teşekkür Puanı: 20
Merhaba..

Bu tüm sorguların ayrı dosyalara çıkartılacak olduğunu varsayarak bir öneride bulunayım size..:

Kod:
Dim Klasor As String
Klasor = "c:"
With DoCmd
.TransferSpreadsheet acExport, 8, "SorguAdi1", Klasor & "\ExcelDosyasıAdı1.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi2", Klasor & "\ExcelDosyasıAdı2.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi3", Klasor & "\ExcelDosyasıAdı3.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi4", Klasor & "\ExcelDosyasıAdı4.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi5", Klasor & "\ExcelDosyasıAdı5.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi6", Klasor & "\ExcelDosyasıAdı6.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi7", Klasor & "\ExcelDosyasıAdı7.xls", True, ""
.TransferSpreadsheet acExport, 8, "SorguAdi8", Klasor & "\ExcelDosyasıAdı8.xls", True, ""
End With
Yukardaki kod içerisine seçenek için mesaj kutuları yerleştirilebilir.. "... İstiyor musunuz?" "... Emin misiniz?" gibi..

Klasor değişkenini istediğiniz şekilde değiştirebilirsiniz.. Bir önceki sorunuzda önerdiğim gibi windowsun dosya/klasör penceresini açarak yolun seçilerek de atanmasını sağlayabilirsiniz..
Son Düzenleme: 06/10/2009, 20:12, Düzenleyen: Taruz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Aynı anda 8 tane sorgunun excel olarak çıkartılması - Yazar: Taruz - 06/10/2009, 20:08