Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Formdaki Metin Kutusu Değerinin Adıyla Excel Dosyasına Isim Vererek Excele Aktarma

Formdaki Metin Kutusu Değerinin Adıyla Excel Dosyasına Isim Vererek Excele Aktarma
caytug
Yeni Üye 15-40

*
Kayıt Tarihi: 28.05.2010
Toplam 5 konu açtı.
Toplam 30 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
20-10-2021, 11:39
İyi günler, access formumda sorguyu iki tarih arası filtreleyip aşağıdaki kodlarla excele aktarıyorum, mümkünse formumda ilktarih adıyla olan kutucuğa girilen tarih değeriyle aktarılan excel dosyasına isim vermek istiyorum,Teşekkürler.

Visual Basic
  1. Private Sub Komut29_Click()
  2. Dim Klasor
  3.  
  4. Klasor = CurrentProject.Path & "\dosyaadı.xls"
  5. DoCmd.OutputTo acQuery, "sorguadı", "MicrosoftExcel(*.xls)", Klasor, True, ""
  6.  
  7. MsgBox "Dosyanızın bulunduğu dizine (dosyaadı.xls) adıyla aktarıldı", 0, " V E R İ  A K T A R I M I "
  8.  
  9. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
20-10-2021, 13:19
Visual Basic
  1. Private Sub Komut29_Click()
  2. Dim Klasor
  3. Dim ilktarihal as string
  4.  
  5. ilktarihal = Me.ilktarih.Value
  6. Klasor = CurrentProject.Path & "\" & ilktarihal & "\dosyaadı.xls"
  7. DoCmd.OutputTo acQuery, "sorguadı", "MicrosoftExcel(*.xls)", Klasor, True, ""
  8.  
  9. MsgBox "Dosyanızın bulunduğu dizine " & ilktarihal & " (dosyaadı.xls) adıyla aktarıldı", 0, " V E R İ  A K T A R I M I "
  10.  
  11. End Sub



kodunuz üzerinde düzenleme yaptım.



  Bul
  Alıntı
Bu mesajı beğenenler:
caytug
Yeni Üye 15-40

*
Kayıt Tarihi: 28.05.2010
Toplam 5 konu açtı.
Toplam 30 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
20-10-2021, 15:29
Sayın onur_can





DoCmd.OutputTo acQuery, "sorguadı", "MicrosoftExcel(*.xls)", Klasor, True, ""
bu satırda hata veriyor.

Runtime error: 2302
Microsoft Access çıktı verilerini seçtiğiniz dosyaya kaydedemiyor.


 



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#4
20-10-2021, 15:56
Kodları güncelledim. Kopyalayıp Yeniden yapıştırın.



  Bul
  Alıntı
Bu mesajı beğenenler:
caytug
Yeni Üye 15-40

*
Kayıt Tarihi: 28.05.2010
Toplam 5 konu açtı.
Toplam 30 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#5
20-10-2021, 16:18
Sayın onur_can

Klasor = CurrentProject.Path & "\" & ilktarihal & "dosyaadı" & ".xls"

satırı bu şekilde düzenleyince düzgün çalıştı, ayırdığınız zaman için teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#6
20-10-2021, 16:20
rica ederim, iyi çalışmalar...



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma Pasham 1 213 19-02-2026, 21:18
Son Mesaj: adnan
access-sql-2 [FORM] Liste kutusu biçimlendirme... rafetgulmez 7 4.115 28-11-2025, 13:18
Son Mesaj: osman06
  [FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma kertiller_55 1 345 03-10-2025, 15:32
Son Mesaj: dsezgin
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 411 11-09-2024, 13:09
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 495 09-09-2024, 17:14
Son Mesaj: ozan028
  Excele Aktarma evren89 1 359 09-08-2024, 20:50
Son Mesaj: dsezgin
  [FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak TheREDROSE 2 422 02-08-2024, 11:56
Son Mesaj: TheREDROSE
  Excel'e Biçimli Aktarma evren89 3 508 01-07-2024, 22:56
Son Mesaj: evren89

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi