Excel'e gönderilen dosyanın adını kodla değiştirme
Tarih
28/09/2011 15:54
Konu Sahibi
mahirozcan
Yorumlar
4
Okunma
1346
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
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


Ek Dosyalar
.rar   excel e isim verme.rar (Dosya Boyutu: 17,87 KB / İndirme Sayısı: 8)
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,22:37
Çözüldü 
Sponsor Reklam
Komut Botonunun kodunu aşağıdaki ile değiştirin oalacaktır.
Kolay Gelsin.

Visual Basic Code
1
2
3
4
5
6
7
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


Cevapla

mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
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.
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,22:37
Çözüldü 
Sponsor Reklam
Aşağıdaki şekilde denermisiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
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


Cevapla

mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
Teşekkürler

Şimdi Oldu.

Saygılar
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Checkbox Etiket Adını Yazdırma yahzee_61 12 147 Dün, 22:49 yahzee_61
  Access 2003 De Yapılan Dosyanın Access 2010 Da Çalıştırılması Kullanıcı Güvenlik Prob keskin78 9 187 14/05/2017, 14:54 keskin78
  Kasa Devir Yaptırmada En Son Çalışılan Kasa Adını Forma Yazdırma haziran4 3 114 13/05/2017, 12:28 atoz112
  Yapmış Olduğum Dosyanın Simgesini Değiştirme ? pelitt 9 202 10/05/2017, 10:35 atoz112
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 360 27/03/2017, 11:18 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status