Dediğiniz gibi sorgu çalışmadan çalışsın mı diye uyarı da verdirdim, kullanıcı sorgu çalışmasın diye seçtiğinde de çalışsada önemi yok, ayrıca Excel çıktısı olarak hazırlandığında yine uyarıyor.
İlginiz ve emeğiniz için teşekkürler, kod ilgilenenler için aşağıya eklendi kolay gelsin..
Alıntı:Private Sub Komut83_Click()
Dim Klasor As String
Klasor = "c\Excel çıktıları"
With DoCmd
MsgBox "Verileri Excele aktarmak istiyor musunuz? ", 36, "Veriler için Excel çıktıları klasörüne bakabilirsiniz"
.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor & "\Excell1.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu2", Klasor & "\Excell2.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu3", Klasor & "\Excell3.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu4", Klasor & "\Excell4.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu5", Klasor & "\Excell5.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu6", Klasor & "\Excell6.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu7", Klasor & "\Excell7.xls", True, ""
.TransferSpreadsheet acExport, 8, "Sorgu8", Klasor & "\Excell8.xls", True, ""
MsgBox "Sorgu çıktılarınız: C\Excel çıktıları adresine atıldı.", 0, "VERİ AKTARIMI"
End With
End Sub