+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo (/konu-1-bilgisayarda-uygulamadan-pdf-i-kopru-ile-bagliyorum-2-bilgisayarda-pdf-i-acamiyo.html)
Sayfalar:
1
2
RE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - Acemi54 - 30/11/2023
(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.
RE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - atoykan - 30/11/2023
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 IfRE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - Acemi54 - 30/11/2023
(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.
RE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - atoykan - 30/11/2023
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.
RE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - Acemi54 - 30/11/2023
(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.
RE: 1. Bilgisayarda Uygulamadan Pdf İ Köprü İle Bağlıyorum. 2. Bilgisayarda Pdf İ Açamıyo - atoykan - 30/11/2023
Amin hepimizi inşallah, iyi çalışmalar.