accessde acrobat reader.ocx kodu

[gulsum1]

accessde acrobat reader.ocx kodu lazım aynen nortwindeki resim olayı gibi ama biraz farklı bunda liste kutusu var ve orda belirlediğim klasördeki pdf lerin isimleri görünüyor benim istediğim listedeki isme tıklayınca pdf nesne ekranında ilgil pdf görünecek ve onun yolunu tabloya ekleyecek bir sonraki açışımda ilgili kayıta geldiğimde o pdf görünecek ve daha önce eklediğim için eklenecek ler listesinde adı çıkmayacak yani kısaca bu evrak kayıt programına eklenecek bir uygulama artık teknolojiye ayak uydurduk ve evraklar pdf olarak geliyor

 

[gulsum1]

cevap

sanırım cevap veren yok en iyisi kendim yapayım yada bir yerden bulayım ve forma ekleyeyim

 

[Türk-Han]

Gulsum1 aslına bakarsan sizin accesle ilgili soru sormanıza şaşırdım. Takip ettiğim kadarı ile siz hep cevaplayan taraf olmuşsunuz. Ama inanıyorum ki siz bu problemede çözüm bulursunuz. Başarılarınız daim olsun.

 

[Haluk]

Ben ilk mesajı birkaç defa okudum ama, problemi anlayamadım.

Acaba, bir şekilde seçilen herhangibir PDF dosyası mı görüntülenmek isteniyor ?

Eğer konu bu ise, ben Excel'de UserForm üzerine yerleştirdiğim bir WebBrowser nesnesinde igili PDF dokümanını görüntülemek için aşağıdakine benzer bir kod kullanıyorum.

Herhalde Accss için de geçerlidir.

    WebBrowser1.Navigate "C:\Temp\Test.pdf"

 

[gulsum1]

cevap

Private Sub pdfekle_Click()

getFileName

End Sub



Private Sub pdf_AfterUpdate()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub

Sub getFileName()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "pdf", "*.pdf"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))


Me![pdf].Value = fileName
Me![SAYI].SetFocus

End If
End With
End Sub
Private Sub Form_Current()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370


End Sub

 

[modalı]

Sayın gulsum1,

Çok güzel olmuş. Teşekkür ederim.

İyi çalışmalar

 

[veyselemre]

Sayın Gülsüm hanım, bu reader.ocx kütüphanesini nerden bulabiliriz, eklemeniz mümkün mü? Saygılar.

 

[gulsum1]

cevap

acrobat readeri yükleyince kendi yüklenir zaten

 

[veyselemre]

Gülsüm hanım konuyla ilgili bir örnek bir dosya eklemeniz mümkün mü?

 

[baydeniro]

Gülsüm Hanım verdiğiniz bilgiler için çok teşekkürler. Örnek bir dosya lutfeder misiniz acaba !!

 

[akd]

Sayın gulsum,
bende aynı listeden hem pdf hemde resim çağırıyorum,
listeye tıkladığımda, o link pfd ise sorun yok
eger resim linki ise o zaman hata iletisi alıyorum,
linkteki belgenin pdf mi yoksa resimmi olduğunu onlayan,
bir kodu nasıl yaparız yada başka yol varmı?
selamlar...

 

[pcman]

ilk aklıma gelen, linki ringht ile sağdan sola tıraşla ve dosya uzantısını oku

link = c:\deneme\abc.pdf

if right(link,3) = "pdf" then
msgbox "dosya pdf"
else
if right(link,3) = "jpg" then
msgbox "dosya jpg"
end if
end if

gibi...

 

[modalı]

Sayın akd,

İki adet kontrolü üst üste ekleyin (aynı boyutta), seçiminizi ilgili kontrole uzantısına göre gönderin ve diğer kontrolü görünmez yapın.

İyi çalışmalar

 

[akd]

Çok teşekkür ederim sayın Pcman ve sayın modalı...