excele aktar butonunun kodlarını aşağıdaki ile değiştiriniz.

On Error GoTo Err_aktar



Dim Klasor As String

SQL = Me.RecordSource

Set qdf = CurrentDb.CreateQueryDef("Excelsorgu", SQL)

Klasor = CurrentProject.Path & "\3_Aylık_Listesi.xls"

If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "3_Aylık_Listesi.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Excelsorgu", Klasor, False, ""

MsgBox "3_Aylık_Liste Programın bulundugu yere Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

DoCmd.DeleteObject acQuery, "Excelsorgu"

End If

Exit_aktar:

    Exit Sub



Err_aktar:

    MsgBox Error$

    Resume Exit_aktar