bu yordam altformun kullandığı sorgu ve uygulanan filtreye uygun geçici bir sorgu oluşturur
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 koduPrivate 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