Skip to main content

AccessTr.neT


Excel'e Aktarma

ertuğrul2022
ertuğrul2022
7
503

Excel'e Aktarma

#7
(24/06/2022, 12:08)berduş yazdı: 1 - ana forma aşağıdaki yordamı ekleyin
bu yordam altformun kullandığı sorgu ve uygulanan filtreyi
Sub SilYap()
On Error Resume Next
FiltreAfrm = ""
SQLAfrm = Me.Ana_sayfa_Sorgu.Form.RecordSource ' altformun veri kaynağı
FiltreAfrm = Me.Ana_sayfa_Sorgu.Form.Filter ' altformun filtresi
If Len(FiltreAfrm & "") > 0 Then FiltreAfrm = " WHERE " & FiltreAfrm
strSQL = "Select * From " & SQLAfrm & FiltreAfrm ' oluşturulacak geçici sorgunun kaynağı

DoCmd.DeleteObject acQuery, "qryTemp" 'geçici sorgu varsa siler
Set qryDEF = CurrentDb.CreateQueryDef("qryTemp", strSQL)' 'geçici sorgu oluşturur
'CurrentDb.QueryDefs.Refresh

End Sub
2 - excele aktar düğmesinin kodu
Private Sub Komut32_Click()
SilYap 'geçici sorgu silip oluşturma yordamını çağırır
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLSX, , True'excele yollar

On Error Resume Next
DoCmd.DeleteObject acQuery, "qryTemp"
End Sub
Allah ne muradın varsa versin inşallah hocam sağolun.
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
Excel'e Aktarma - Yazar: ertuğrul2022 - 23/06/2022, 18:50
RE: Excel'e Aktarma - Yazar: berduş - 23/06/2022, 19:12
RE: Excel'e Aktarma - Yazar: ertuğrul2022 - 23/06/2022, 20:49
RE: Excel'e Aktarma - Yazar: berduş - 23/06/2022, 20:58
RE: Excel'e Aktarma - Yazar: ertuğrul2022 - 23/06/2022, 21:13
RE: Excel'e Aktarma - Yazar: berduş - 24/06/2022, 12:08
RE: Excel'e Aktarma - Yazar: ertuğrul2022 - 24/06/2022, 12:43
RE: Excel'e Aktarma - Yazar: berduş - 24/06/2022, 12:54
Task