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

28/09/2011, 15:54

mahirozcan

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
28/09/2011, 16:00

Kur@l

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
28/09/2011, 16:19

mahirozcan

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.
28/09/2011, 16:26

Kur@l

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
28/09/2011, 16:44

mahirozcan

Teşekkürler

Şimdi Oldu.

Saygılar