Accesten Excel' e seçmeli veri aktarma

[tamer42]

Merhabalar,
Forum da çok araştırdım yalnız istediğimi bulamadım..


Form üzerine aşağıdaki kodla sorgudan [QryTakip] veri alıyorum;

......
.......
strSQL = "SELECT* FROM [QryTakip] WHERE(([Gecendk]> " & dak & ")and ([Durumu] like '" & Tip & "'))"

Me.RecordSource = strSQL

daha sonra buradaki verileri excele aktarma istiyorum.

On Error GoTo Err_aktar

strSQL = "SELECT* FROM [QryTakip] WHERE(([Gecendk]> " & dak & ")and ([Durumu] like '" & Tip & "'))"

    Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Lütfen bir klasor seçin !", &H100)
    MyPath = ObjFolder.Items.Item.Path
    

Klasor = MyPath & "\ExcelDosyası.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ExcelDosyası.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "QryTakip", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
    Exit Sub

Err_aktar:
    MsgBox Error$
    Resume Exit_aktar

End If

Burada sorgunun tamamını aktarıyor, ben ise strSQL ile süzülen verilen aktarılsın istiyorum.

DoCmd.TransferSpreadsheet acExport, 8, "QryTakip", Klasor, True, ""

buradaki "QryTakip" yerine strSQL yazdım fakat olmadı, bu işi nasıl çözebilirim.

İyi Çalışmalar.