[SORGU] Excel Aktar Butonu

ramazanke · 29-01-2019, 17:00

Merhaba,

Ekteki dosyada bulunan sorgulama sonucunu listbox yazdırıyorum ancak bu sorguyu excel almak istiyorum desteğinizi rica ederim

iyi çalışmalar

dsezgin · 29-01-2019, 21:44

Visual Basic
Private Sub Command7_Click()
Dim GTablo As String
GTablo = Me.Combo9
Me.List0.RowSource = "SELECT * FROM " & GTablo & " WHERE ((Clng(Row_date) Between " & CLng(Nz(Me.Text2, DateAdd("m", -(12 - Month(Date)), Date))) & "  And  " & CLng(Nz(Me.Text4, DateAdd("m", 12 - Month(Date), Date))) & "))"
Me.List0.Requery
End Sub
 
Private Sub Command8_Click()
CurrentDb.Execute Replace(Me.List0.RowSource, "FROM", " INTO Aktar FROM")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Aktar", CurrentProject.Path & "\Aktar.xls", False
DoCmd.DeleteObject acTable, "Aktar"
End Sub

ile yapilabilir...

ramazanke · 30-01-2019, 10:03

Merhaba,

kodda galiba "SELECT " & Me.Combo9 & ".* INTO Aktar FROM " & Me.Combo9 where komutu eksik ayrıca sonuç vermiyor

dsezgin · 30-01-2019, 10:33

Command8_Click prosedur ilk satir komutunu liste kutusuna yonlendirmemisim. Mesaj: #2'i guncelledim. Excel dosyasi VT bulundugu klasore olusturuluyor.

ramazanke · 30-01-2019, 10:39

Merhaba,

Çok teşekküreler desteğiniz için aşağıdaki gibi düzenleyince oldu

Private Sub Command8_Click()
CurrentDb.Execute "SELECT " & Me.Combo9 & ".* INTO Aktar FROM " & Me.Combo9 & " WHERE ((Clng(Row_date) Between " & CLng(Nz(Me.Text2, DateAdd("m", -(12 - Month(Date)), Date))) & " And " & CLng(Nz(Me.Text4, DateAdd("m", 12 - Month(Date), Date))) & "))"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Aktar", CurrentProject.Path & "\Aktar.xls", False
DoCmd.DeleteObject acTable, "Aktar"
End Sub

ramazanke · 30-01-2019, 10:46

Emeğiniz için çok teşekkürler

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Ileri Butonu Sona Geldiğinde Uyarı Vermiyor Yeni Kayıt Açıyor.	programmer67	2	466	25-06-2024, 16:49 Son Mesaj: programmer67
	[TABLO] Excel Aktarımı	kahramanselim	6	748	06-04-2024, 21:11 Son Mesaj: kahramanselim
	Boş Alan Kontrolü (taruz) : Rapor Butonu	prtkl	5	676	31-05-2023, 22:48 Son Mesaj: hnakis
	Excel Birleştir Ve Süz	Bora34	6	1.284	16-02-2023, 18:33 Son Mesaj: Bora34
	Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak	snapper	1	516	17-12-2022, 03:13 Son Mesaj: dsezgin
	Form Yeni Kayıt Ekle Butonu	SümeyyeK	1	421	17-12-2022, 03:07 Son Mesaj: dsezgin
	Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme	snapper	2	598	06-12-2022, 11:51 Son Mesaj: snapper
	Accessten Excel Veri Aktar	golf2000	9	888	24-08-2022, 17:36 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL