'bu kodun son 10 satırını incele, Ayrıca sorgu çıktısı aynı olacağından Excel çıktısına 'oluşturulduğu tarih ve saati yazıyor ve önceki dosya da klasör içinde 'kalıyor.kolay gelsin

Dim Klasor As String
Dim sorgua As String

Dim ilk As String
Dim son As String
Dim dosyasorguadi
Dim dosyaadı
ilk = İlk_Tarih.Value
son = Son_tarih.Value
isim = sorgu.Column(2)

saati = Time

ssalise = Right(saati, 2)
ssaat = left(saati, 4)
sssaat = left(ssaat, 2)
ssssaat = Right(ssaat, 2)
xsaat = [sssaat] + [sssaat] + [ssalise]
'MsgBox "" & xsaat & ""

dosyasorguadi = isim
arası = "-"
tiresi = "-"
dosyaadım = [ilk] + [arası] + [son] + [tiresi] + [dosyasorguadi] + [tiresi] + [xsaat]
dosya = ".xls"
dosyaadı = [dosyaadım] + [dosya]

sorgua = sorguadi.Value

Klasor = "c:"
With DoCmd
.TransferSpreadsheet acExport, 8, "" & sorgua & "", Klasor & "\" & dosyaadı & "", True, ""
'" & fg & "

MsgBox "Sorgu çıktılarınız: C: Klasörü İçine oluşturuldu.", vbInformation, "Bilgi.."
End With