[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 140 14-03-2024, 11:07
Son Mesaj: yahyamacit
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 120 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.188 29-12-2023, 10:24
Son Mesaj: burhanb
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 122 26-10-2023, 14:11
Son Mesaj: serdem48
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 247 22-06-2023, 19:04
Son Mesaj: dsezgin
access-sql-18 Access.db , Yüksek Dosya Boyutu. BeyTor 9 358 13-05-2023, 22:43
Son Mesaj: BeyTor
  [TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma omergenc7 13 573 26-03-2023, 13:11
Son Mesaj: dsezgin
  Raporda şablona Yazdırma ankaram 6 241 30-01-2023, 10:53
Son Mesaj: alperalper

Foruma Git:


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