A.S.C Filtre, Grafik ve Raporlama Eklentisi

Raporu Günün Tarihi Ve Firma Adıyla Pdf Yapmak
#13
Sayın onur_can 
klasör yok oluşturulsun mu? geliyor Evet i tıklayınca Run-time error '76': Path not found hatası veriyor. Debug deyince "MkDir ("c:\Users\" & uname & "\Desktop\alkan")" bu alanı seçiyor.


Daha sonra kendim dosyaları oluşturdum. Olmasına rağmen klasör yok oluşturulsun mu? uyarısı yine geldi.



  Alıntı
Bu mesajı beğenenler:
#14
Yukarıda verdiğim kodla bende gayet güzel çalışıyor. referansları kontrol edip MISSING ifadesi varmı, belki kütüphane eksikliğinden kaynaklanıyor olabilir. Bu kodu kopyalarken ilgili click olayında başka kod varmı, önceden kalan. eğer varsa onları tamamen silin, sadece yukarıdaki kodu kullanın.
Hatayı yine almaya devam ederseniz, kod eklenmiş uygulamanızı buraya tekrar ekleyin bakalım.



  Alıntı
Bu mesajı beğenenler:
#15
Sadece sizin en son eklediğiniz kodları koydum. Önceki kodu temizledim. MISSING  olayı da yok. Yine de aynı hatayı verdi.
ya bende bir sıkıntı var ya da sitede örneği ekliyemedim. Bağlantı kopuyor. uğraşıyorum.


Eklenti Dosyaları
.rar   Teklif11.rar (Boyut: 219,49 KB / İndirilme: 4)



  Alıntı
Bu mesajı beğenenler:
#16
Onur_can bey ilk gönderideki örneği değiştirdim. Eklentiyi birinci mesaja ekledim. 16. mesaja da eklenmiş. Çok zorladı eklerken. Eklenmedi diye birinci mesajdakini de değiştirmiştim.



  Alıntı
Bu mesajı beğenenler:
#17
Sayın onur_can bey aşağıdaki kod işimi gördü. Örnek olması bakımından ekliyorum. Önceki örneklerden yararlandım. İlginize teşekkür ederim.
Visual Basic
  1. Dim RptName, FilePath As String
  2. Dim appOutLook As Outlook.Application
  3. Dim FilePath2 As String
  4.  
  5.  
  6.  
  7. FilePath = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Alkan\"
  8. FilePath2 = FilePath & "\Teklifler\"
  9.  
  10. If Dir(FilePath, vbDirectory) = "" Then MkDir FilePath
  11. If Dir(FilePath2, vbDirectory) = "" Then MkDir FilePath2
  12.  
  13. RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
  14.  
  15.  
  16. DoCmd.OutputTo acOutputReport, "TEKLIF", acFormatPDF, FilePath2 & RptName
  17. MsgBox "PDF Aktarma Tamamlandı", vbInformation, "Report Exported as PDF"
  18.  
  19. If Len(Dir(RptName)) > 0 Then
  20.  Kill RptName
  21. End If





  Alıntı
Bu mesajı beğenenler:
#18
Visual Basic
  1. MkDir ("C:\Alkan")



Sadece yukarıdaki komutu çalıştırın C sürücüsünde Alkan klasörü oluşturabiliyormusunuz?



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Istenilen Raporu Alma Da Yaşanan Sıkıntı charisma1907 4 159 04-06-2021, 23:56
Son Mesaj: charisma1907
  [FORM] Chrome Ile Veri Tabanına Giriş Yapmak conquerora 1 148 19-05-2021, 12:36
Son Mesaj: dsezgin
  [FORM] Durum Raporu Yapmak Mr.Midnight 2 202 26-03-2021, 12:39
Son Mesaj: Mr.Midnight
  Formda Ki Resim üzerinde Zoom ın-out Yapmak. adnnfrm 2 176 09-03-2021, 02:02
Son Mesaj: adnnfrm
access-sql-11 Liste Kutusunda Bazı Satırları Isteğe Bağlı Enable Yapmak mfincezli 1 185 23-02-2021, 23:38
Son Mesaj: onur_can
  [RAPOR] Raporu PDF formatında istenen klasöre kaydetme abahceci 5 3.233 19-02-2021, 15:20
Son Mesaj: hedefkaya
  "malzeme Stok Takip Uygulaması" Yapmak Istiyorum Da Yardımcı Olabilir Misiniz? muzafferemre 3 392 12-11-2020, 01:49
Son Mesaj: dsezgin
  [VBA] Başka Bir Access Deki Raporu Yazdırma hedefkaya 2 205 02-11-2020, 02:17
Son Mesaj: hedefkaya

Foruma Git:


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