Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FONKSiYON] Butona Tıklandığında Klasör Oluşturma(masaüstüne)

[FONKSiYON] Butona Tıklandığında Klasör Oluşturma(masaüstüne)
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#1
20-02-2020, 12:00
Visual Basic
  1. Beep
  2.     MsgBox "Bu Ay Ayrılanları İsim Giriş Formunda İşaretlediniz Mi?", vbQuestion, "DİKKAT"
  3.     Dim KlsYol As String
  4.     KlsYol = "C:\Users\ahmet.aydınlar\Desktop"
  5.     If Len(Dir(KlsYol, vbDirectory)) = 0 Then
  6.        MkDir KlsYol
  7.     Else
  8.         If yzdrsecenek = 1 Then
  9.         DoCmd.OpenReport "ÜCRETLİLER LİSTESİ", acViewPreview
  10.         ElseIf yzdrsecenek = 2 Then
  11.         DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "PDFFormat(*.pdf)", KlsYol & "\" & "ÜCRETLİLER LİSTESİ.pdf", True
  12.         ElseIf yzdrsecenek = 3 Then
  13.         DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "XPSFormat(*.xps)", KlsYol & "\" & "ÜCRETLİLER LİSTESİ.xps", True
  14.         End If
  15. End If




Saygıdeğer Hocalarım yukarıda ki kodda  KlsYol = "C:\Users\ahmet.aydınlar\Desktop" de ahmet.aydınlar kullanıcı adıdır.

Kodumuz bu şekli ile şunu yapmaktadır. Ücretliler Listesi  Raporunu " Masaüstüne" (Desktop) Pdf veya Xps olarak klasör olmadan kayıt yapmaktadır.

Bu uygulamamız bazı arkadaşlar ile paylaşılacağından, sizde takdir edersiniz ki içeriği ile oynanıp bozmamaları için kod alanına şifre konulacaktır.
Bu nedenle kişilerin koda girip ilgili yere kullanıcı adlarını yazmaları mümkün olmayacağından, bu alana ne yazılabilir.

Kodun yine aynı şekilde çalışması gerekmektedir.

Bu konuda değerli hocalarımın yardımlarını bekliyorum.

Şimdiden kendilerine teşekkürlerimi sunarım.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
20-02-2020, 13:10
KlsYol = "C:\Users\ahmet.aydınlar\Desktop" yerine
Visual Basic
  1. KlsYol = Environ$("USERPROFILE") & "\Desktop\"


şeklinde dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#3
20-02-2020, 13:50 (En son düzenleme: 20-02-2020, 14:01 Ahmet51.)
(20-02-2020, 13:10)halily demiş ki: KlsYol = "C:\Users\ahmet.aydınlar\Desktop" yerine
Visual Basic
  1. KlsYol = Environ$("USERPROFILE") & "\Desktop\"


şeklinde dener misiniz?

Halily hocam harikasın eline emeğine sağlık işlem tamamdır.

Çok çok teşekkür ederim.

Sabah 9 dan bu yana bununla uğraştım deneme yanılma yöntemleri uyguladım. Demekki ezbere olmuyormuş.

Hocam birde aynı mantıkla yola çıkarak  kod içine "Raporlar" ismi yazılıp bu isimde D sürücüsüne bir klasör oluştursun ve bu raporları içine kayıt etsin.

Yani kişi kendisi manuel olarak klasör oluşturmasın mümkünmüdür.

Butona tıkladığımızda

D sürücüsüne Raporlar isminde bir Klasör oluşturacak ve bu klasörün içine "Ücretliler Listesi" isimli raporu kayıt edecek.

Bu konudada yardım edebilir iseniz çok sevinirim.

Teşekkür ederim



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#4
20-02-2020, 14:02
Ne demek istediğinizi tam olarak anlamadım??? D sürücüsünde klasör oluşturmak için gerekli kod zaten kendi mesajınızda var



  Bul
  Alıntı
Bu mesajı beğenenler:
Ahmet51
Önemli Üye 300-400

*
Kayıt Tarihi: 22.03.2011
Toplam 57 konu açtı.
Toplam 302 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#5
20-02-2020, 14:31
(20-02-2020, 14:02)halily demiş ki: Ne demek istediğinizi tam olarak anlamadım???  D sürücüsünde klasör oluşturmak için gerekli kod zaten kendi mesajınızda var

Şunu demek isitiyorum halily hocam KlsYol ="D:\DSS YIL SONU CETVELLERİ\RAPORLAR" biçimin de  butona basıldığında D sürücüsüne otomatik olarak DSS YIL SONU CETVELLERİ isminde bir kalsör oluşturacak; bu klasörün içine de RAPORLAR isminde bir klasör oluşturacak ve RAPORLAR Klasörünün içine de Ücretli listesi, Kişi Raporu vb. raporları kayıt edecek.

KlsYol ="D:\RAPORLAR" bu şekilde RAPORLAR klasörünü oluşturuyor ancak üstteki gibi yapınca işlem yapmıyor.



  Bul
  Alıntı
Bu mesajı beğenenler:
userx53
Önemli Üye 200-300

*
Kayıt Tarihi: 08.08.2012
Toplam 0 konu açtı.
Toplam 278 yorum yaptı.
Toplam 137 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 4 / 14
#6
20-02-2020, 16:05 (En son düzenleme: 20-02-2020, 16:12 userx53.)
Sayın ahmet51 alttaki kodu dener misin ?
Visual Basic
  1. Beep
  2.     MsgBox "Bu Ay Ayrılanları İsim Giriş Formunda İşaretlediniz Mi?", vbQuestion, "DİKKAT"
  3.     Dim KlsYol, KlsYol1 As String
  4.     KlsYol = "D:\DSS_YIL_SONU_CETVELLERİ\"
  5.     KlsYol1 = "D:\DSS_YIL_SONU_CETVELLERİ\RAPORLAR"
  6.     If Len(Dir(KlsYol, vbDirectory)) = 0 Then
  7.        MkDir KlsYol
  8.        MkDir KlsYol1
  9.     Else
  10.         If yzdrsecenek = 1 Then
  11.         DoCmd.OpenReport "ÜCRETLİLER LİSTESİ", acViewPreview
  12.         ElseIf yzdrsecenek = 2 Then
  13.         DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "PDFFormat(*.pdf)", KlsYol1 & "\" & "ÜCRETLİLER LİSTESİ.pdf", True
  14.         ElseIf yzdrsecenek = 3 Then
  15.         DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "XPSFormat(*.xps)", KlsYol1 & "\" & "ÜCRETLİLER LİSTESİ.xps", True
  16.         End If
  17. End If





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Rapor üzerinde Hyperlink Oluşturma ulsogr 1 261 21-01-2025, 00:10
Son Mesaj: dsezgin
  Form Oluşturma sfgungor 0 200 26-10-2024, 06:33
Son Mesaj: sfgungor
  [FORM] Gmaile Etiket Oluşturma Access Ziyaretçisi 90 4.258 27-09-2024, 13:55
Son Mesaj: Access Ziyaretçisi
  Klasör Yaratmak evren89 1 352 22-06-2024, 02:46
Son Mesaj: dsezgin
  Qrbarkod Oluşturma ates2014 5 636 09-04-2024, 10:15
Son Mesaj: ates2014
  [FORM] Alt Forum Dan Tıklandıgında Yenı Form Acmak sevincili 2 444 29-03-2024, 15:54
Son Mesaj: sevincili
  [FORM] QR Kod Oluşturma ebenli 20 5.323 08-02-2024, 13:24
Son Mesaj: BeyTor
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.499 29-12-2023, 10:24
Son Mesaj: burhanb

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):