Excel'e gönderilen dosyanın adını kodla değiştirme

Merhabalar

Ekteki basit uygulamada anlattığım gibi benim isteyipte yapamadığım sorguyu Excel e gönderirken adının değişkene göre değişmesi.

Yani bir Sorgum var adı: sorgu1

Excel gönderince de adı sorgu1.xls oluyor. Ben bunu formun içindeki değişkene göre adlandırmasını istiyorum Mesela Değişken Ali olsun Ali'nin bilgileri.xls gibi

Teşekkürler

Komut Botonunun kodunu aşağıdaki ile değiştirin oalacaktır.
Kolay Gelsin.

Private Sub Excel_Click()

Dim Klasor As String

Klasor = CurrentProject.Path & Me.adı.Value & " Bilgileri.xls"

If MsgBox(Me.adı.Value & " Bilgilerini Excele aktarmak istiyor musunuz? ", 36, "Sorgu1 Aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor, True, "Bilgiler"

End If

End Sub

Sayın Kur@l

Kodu yazdım. Çalışıyor Ancak dosyayı Access dosyasının bulunduğu klasorde değilde masaüstünde oluşturuyor. Bir de oluşturduğu dosyanın adının önüne "yeni klasör" ifedesi ekliyor

---

Pardon
access dosyasının bulunduğu klasörün adını dosyanın önüne ekliyor.

Aşağıdaki şekilde denermisiniz.

Private Sub Excel_Click()

Dim Klasor As String

Klasor = CurrentProject.Path

 

If MsgBox(Me.adı.Value & " Bilgilerini Excele aktarmak istiyor musunuz? ", 36, "Sorgu1 Aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor & "\" & Me.adı.Value & " Bilgileri.xls", True, "Bilgiler"

End If

End Sub

Teşekkürler

Şimdi Oldu.

Saygılar