AccessTr.neT

Sayfalar: 1 2

(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.

rica ederim
iyi çalışmalar
Not: kodlarda anlamadığınız yerleri muhakkak sorun/araştırın, mantığını kavramaya çalışın

Sayfalar: 1 2

ertuğrul2022

berduş