[VBA] Dosya Yolu Yazdırma
#1
Merhaba,

Aşağıdaki şekilde form üzerinden butonla masaüstündeki bir klasör'e belge gönderiyor ve DB'ye yolunu yazdırıyorum.

Sorum şu: Bir şey eklemek için bu kodun bulunduğu butona tıkladığımda, sistem yüklemekten vazgeçsemde DB'ye dosyanın yolunu yazdırıyor. Bunu engellemenin bir you var mıdır? Bilgi ve desteklerinizi rica ederim

Umarım ne istediğimi anlatabilmişimdir.

Teşekkürler




Visual Basic
  1. Private Sub Komut196_Click()
  2.  
  3. On Error Resume Next
  4.  
  5. Dim dialog As FileDialog
  6.  
  7. Set dialog = Application.FileDialog(msoFileDialogFilePicker)
  8. With dialog
  9. .AllowMultiSelect = False
  10. .Show
  11.  
  12. Tutanak.Value = .SelectedItems.Item(1)
  13.  
  14. End With
  15.  
  16. FileCopy Tutanak.Value, "D:\Users\MyPC\Desktop\X\" & BelgeId.Value & ".pdf"
  17.  
  18. Tutanak.Value = "D:\Users\MyPC\Desktop\X\" & BelgeId.Value & ".pdf"
  19.  
  20. DoCmd.RunCommand acCmdSaveRecord
  21. DoCmd.RunCommand acCmdRefreshPage
  22.  
  23. If Me.NewRecord Then
  24.  
  25.  
  26. End If
  27.  
  28. End Sub





  Alıntı
Bu mesajı beğenenler:
#2
Private Sub Komut196_Click()
....
With dialog
.AllowMultiSelect = False
.Show
If MsgBox("Kaydetmek İstiyor musunuz?", vbYesNo, "DOSYA") = vbYes Then Tutanak.Value = .SelectedItems.Item(1) Else Exit Sub
End With
...
end sub

Soruyla secim yapabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 136 14-03-2024, 11:07
Son Mesaj: yahyamacit
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 113 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.181 29-12-2023, 10:24
Son Mesaj: burhanb
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 117 26-10-2023, 14:11
Son Mesaj: serdem48
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 241 22-06-2023, 19:04
Son Mesaj: dsezgin
access-sql-18 Access.db , Yüksek Dosya Boyutu. BeyTor 9 350 13-05-2023, 22:43
Son Mesaj: BeyTor
  [TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma omergenc7 13 560 26-03-2023, 13:11
Son Mesaj: dsezgin
  Raporda şablona Yazdırma ankaram 6 235 30-01-2023, 10:53
Son Mesaj: alperalper

Foruma Git:


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