Sn. aobendes'in dediği gibi Excele veri gönderirken kayıt kaynağı olarak "sorgu" veya "tablo" kullanabilirsiniz.
Bu nedenle sizin filtreleme işlemini sorguya aldım, alt formu sorguya bağladım.
Aynı sorguyu da excel'e gönderdim.
Örnek ektedir.
Private Sub Bul_Click()
Form_FrmBulAlt.Requery
End Sub
Private Sub Komut121_Click()
Dim DosyaninAdi
DosyaninAdi = CurrentProject.Path & "\Rapor.xls"
If MsgBox("Verileri " & DosyaninAdi & " adlı Excel dosyasına aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "frmBulAlt_Sorgu", DosyaninAdi, True
MsgBox "Dikkat Programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
End If
End Sub
