+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel'e Aktarma (/konu-excel-e-aktarma.html)
Sayfalar:
1
2
RE: Excel'e Aktarma - ertuğrul2022 - 24/06/2022
(24/06/2022, 12:08)berduş yazdı: 1 - ana forma aşağıdaki yordamı ekleyinAllah ne muradın varsa versin inşallah hocam sağolun.
bu yordam altformun kullandığı sorgu ve uygulanan filtreyi
2 - excele aktar düğmesinin koduSub 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
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
RE: Excel'e Aktarma - berduş - 24/06/2022
rica ederim
iyi çalışmalar
Not: kodlarda anlamadığınız yerleri muhakkak sorun/araştırın, mantığını kavramaya çalışın