Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
05/10/2009 22:03
Konu Sahibi
danke
Yorumlar
6
Okunma
2700
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

danke

Aktif Üye
Aktif Üye
 33
 186
 37
 10/05/2009
0
 Ankara
 
 Ofis 2007
 18/09/2018,13:20
Çözüldü 
Arkadaşlar kolay gelsin, formda bulduğum örnekle programımda kullandığım sorgunun Excel olarak çıkartılmasını sağladım.

Ancak ihtiyaç anında program kullanıcılarından bilgisi en az kullanıcıları düşünerek bir düğmeyle 8 sorgunun excele aktarılmasını beceremedim.

Form üzerinde bulunacak bir düğmeyle 8 sorgunun benim belirlediğim klasöre Excel olarak çıkartılmasını sağlayacak bir yöntem varsa ve belirtilirse çok sevinirim,

İlgilenip yardımcı olacak herkese teşekkürler.


danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.

Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
Çözüldü 
yaptığın örneği ekleyebilirmisin.



Kullanici Avatari

Taruz

Aktif Üye
Aktif Üye
 Belirtilmemiş
 104
 4
 04/10/2009
20
 Belirtilmemiş
 
 Belirtilmemiş
 10/06/2014,13:15
Çözüldü 
Merhaba..

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

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
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..



Kullanici Avatari

danke

Aktif Üye
Aktif Üye
 33
 186
 37
 10/05/2009
0
 Ankara
 
 Ofis 2007
 18/09/2018,13:20
Çözüldü 
Sayın Taruz cevabınız için teşekkürler, denedikten sonra dönecem, kolay gelsin.


danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.

Kullanici Avatari

danke

Aktif Üye
Aktif Üye
 33
 186
 37
 10/05/2009
0
 Ankara
 
 Ofis 2007
 18/09/2018,13:20
Çözüldü 
Sayın Taruz ilginiz için teşekkür ediyorum, kodu kullandım, işime yaradı.

Dediğiniz gibi sorgu çalışmadan çalışsın mı diye uyarı da verdirdim, kullanıcı sorgu çalışmasın diye seçtiğinde de çalışsada önemi yok, ayrıca Excel çıktısı olarak hazırlandığında yine uyarıyor.

İlginiz ve emeğiniz için teşekkürler, kod ilgilenenler için aşağıya eklendi kolay gelsin..

Alıntı:Private Sub Komut83_Click()
Dim Klasor As String
Klasor = "c\Excel çıktıları"
With DoCmd
MsgBox "Verileri Excele aktarmak istiyor musunuz? ", 36, "Veriler için Excel çıktıları klasörüne bakabilirsiniz"
.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor & "\Excell1.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu2", Klasor & "\Excell2.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu3", Klasor & "\Excell3.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu4", Klasor & "\Excell4.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu5", Klasor & "\Excell5.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu6", Klasor & "\Excell6.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu7", Klasor & "\Excell7.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu8", Klasor & "\Excell8.xls", True, ""

MsgBox "Sorgu çıktılarınız: C\Excel çıktıları adresine atıldı.", 0, "VERİ AKTARIMI"
End With
End Sub


danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.

Kullanici Avatari

Taruz

Aktif Üye
Aktif Üye
 Belirtilmemiş
 104
 4
 04/10/2009
20
 Belirtilmemiş
 
 Belirtilmemiş
 10/06/2014,13:15
Çözüldü 
Merhaba..

Mesajınızı bir şarta bağlarsanız istediğiniz şekilde çalışacaktır.. Düzenlenmiş halini ekliyorum..

İyi çalışmalar..


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Klasor, mesaj As String
Klasor = "c\Excel çıktıları"
mesaj = MsgBox("Verileri Excele aktarmak istiyor musunuz? ", vbYesNo, "Veriler için excel çıktıları klasörüne bakabilirsiniz")
If mesaj = vbYes Then
With DoCmd
TransferSpreadsheet acExport, 8, "Sorgu1", Klasor & "\Excell1.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu2", Klasor & "\Excell2.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu3", Klasor & "\Excell3.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu4", Klasor & "\Excell4.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu5", Klasor & "\Excell5.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu6", Klasor & "\Excell6.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu7", Klasor & "\Excell7.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu8", Klasor & "\Excell8.xls", True, ""
End With
MsgBox "Sorgu çıktılarınız: C\Excel çıktıları adresine atıldı.", 0, "VERİ AKTARIMI"

Else
MsgBox "İşlem iptal edildi"
End If




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdan Girilen Kaydın Aynı Form'dan Sadece O Kayıt İçin Rapor Çıktısı Alamıyorum. Oğuz Türkyılmaz 9 206 20/09/2018, 18:26
Son Yorum: Oğuz Türkyılmaz
Çözüldü Etiket Adını Kalıcı Olarak Butonla İle Değiştirme sertac76 12 225 14/09/2018, 15:14
Son Yorum: sertac76
Çözüldü Ana Form'a Birkaç Tane Alt Form Ekleme kursun 4 115 25/08/2018, 02:43
Son Yorum: kursun
Çözüldü Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. antoryum 17 420 07/08/2018, 08:37
Son Yorum: antoryum
Çözüldü Access'i Birden Çok Kişinin Aynı Anda Kullanması enotr 4 190 25/07/2018, 11:20
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.