(30/11/2023, 17:06)atoykan yazdı: Dosya yolu eklemeniz hatalı yukarıda her iki mesajımda da belirttim hyperlink olarak eklemek istiyorsanız UNC formatında eklemelisiniz ancak sanıyorum ne demek olduğunu anlamıyorsunuz. Belge ekle kodunuzu aşağıdaki ile değiştirin ve referanslardan Microsoft Office Object Library'yi ekleyin. Dosyanızı seçer ve yolunu tam olarak yazar belge verisini tıklandığında da açarsınız.

Kod:

    Dim dosyasec As FileDialog
    Set dosyasec = Application.FileDialog(msoFileDialogFilePicker)
   
    dosyasec.Title = "Dosya Seç"        ' Dosya seçme penceresine istediğğiniz başlığı vermenizi sağlar
    dosyasec.AllowMultiSelect = False      ' False ise sadece bir dosya seçimi True ise çok sayıda dosya seçimi yapılmasını sağlar
    'dosyasec.Filters.Clear    ' İsteğinize bağlı olarak tanımlayabilirsiniz sadece belirli türde dosyaların seçilebilmesini sağlar
    'dosyasec.Filters.Add "PDF Dosyaları", "*.pdf", 1    ' İsteğinize bağlı olarak yukarıdaki filtrelemeyi tanımlarsanız dosya seç ekranında sadece pdflerin seçilebilmesini sağlar
   
    If dosyasec.Show = -1 Then
        Me.BELGESİ.Value = dosyasec.SelectedItems(1)    ' Kullanıcı dosya seçtiyse seçilen dosyanın yolu ve adı textboxa yazdırılır
    Else
        MsgBox "Dosya seçimi iptal edildi!", vbExclamation    ' Kullanıcı dosya seçiminde iptale basarsa işlemi iptal ettiği uyarısı verir.
    End If

Hocam kusura bakmayın kızmazsanız size bir sorum olacak.
Referanslardan Microsoft Office Object Library'yi nasıl ekleyeceğiz acaba.
Sağolun hocam zahmet verdim. Allah razı olsun.