(30/11/2023, 13:06)berduş yazdı: Anlamaya çalıştığım şey şu
1. kullanıcı hangi bilgisayardaki pdf'yi seçip kayıt yolunu ekliyor?
Veri tabanı, pdf'in olduğu klasör ve 12 kullanıcının olduğu acces uygulamalar hepsi bir klasörün icinde ve klasör serverda
1. kullanıcı kendi bilgisayarından, kendi uygulamasından kayıt ekliyor pdf ile beraber.
2. kullanıcı kendi bilgisayarından kendi uygulamasından 1. kullanıcının kaydını görüyor ama pdf açılmıyor.
1 ana server var ve bütün bilgisayarlar bu server a bağlanıp çalışıyorlar.
Başka word
Excel vb. uygulamalarda serverden açıp çalışıyorlar. Kendi bağımsız C, D kullanmıyorlar.
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
(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.
Estağfurullah neden kızalım,
Vba Editörünüzde Tools Menüsünden References'i seçin. Gelen ekranda Microsoft Office xx.0 Objecy Library olanı seçin. Buradaki xx Office sürümünüze göre 15 - 16 gibi bir sayıdır.
(30/11/2023, 19:17)atoykan yazdı: Estağfurullah neden kızalım, Vba Editörünüzde Tools Menüsünden References'i seçin. Gelen ekranda Microsoft Office xx.0 Objecy Library olanı seçin. Buradaki xx Office sürümünüze göre 15 - 16 gibi bir sayıdır.
Allah razı olsun hocam. Allah sizi hayırlı insanlarla karşılaştırsın.
Amin hepimizi inşallah, iyi çalışmalar.