Soru userform dan buton ile pdf çağırma

[bycakir]

merhaba

elimde bir personel userformu var listboxtan tex boxa verileri alıyorum texboxda yazan sicile göre pdf göster diye bir commatbuton koydum fakat butona pdf kodlarını bağlayamadım ne yaptıysan hatadan kurtulamadım yardımcı olursanız sevinirim pdf adresini desktop/sicil.pdf yapabiliriz

dosya ektedir. dosyam buyukmuş dış link verdim.
kullanıcı adı = TEST
şifre =1234
vba şifre =15243526

şifreler için kusura bakmayın bizde meraklı çok kodları bozuyorlar diye kilitledim. isteyene farklı bir dosyada kodları paylasıyorum tabi emeklerimiz çöp olmasın.
BURADAN İNDİRİN

 

[bycakir]

güncel

 

[halit3]

Merhaba
TextBox2 nesnesinde isim olacak ve bu isimde masa üstünde pdf dosyası olacak
Örnek isim ALİ ALİ
bu isimle masa üstünde ALİ ALİ.pdf isimli dosya olması gerekiyor

kod.

Private Sub CommandButton11_Click()

klasör = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya_adi = klasör & "\" & TextBox2.Text & ".pdf"

If dosya_adi <> "" Then
CreateObject("Shell.Application").Open (dosya_adi)
End If

End Sub

 

[bycakir]

teşekkurler hocam çok güzel oldu peki aradıgı pdf dosyası yok ise mesaj ile aşı kartı yok dedirtebilirmiyiz

 

[Asri]

teşekkurler hocam çok güzel oldu peki aradıgı pdf dosyası yok ise mesaj ile aşı kartı yok dedirtebilirmiyiz

Bunu kullanabilirsiniz.

Function dosyavarmi(dosya)
  Dim ds, a
  Set ds = CreateObject("Scripting.FileSystemObject")
  a = ds.FileExists(dosya)
  If a = True Then
    dosyavarmi = True
  Else
    dosyavarmi = False
  End If
End Function

 

[bycakir]

Bunu kullanabilirsiniz.

Function dosyavarmi(dosya)
  Dim ds, a
  Set ds = CreateObject("Scripting.FileSystemObject")
  a = ds.FileExists(dosya)
  If a = True Then
    dosyavarmi = True
  Else
    dosyavarmi = False
  End If
End Function

hocam eklemem gereken yeri anlamadım

 

[halit3]

kod

Private Sub CommandButton11_Click()

klasör = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya_adi = klasör & "\" & TextBox2.Text & ".pdf"

If CreateObject("Scripting.FileSystemObject").FileExists(dosya_adi) = False Then
MsgBox "pdf dosyası yok"
End If

If dosya_adi <> "" Then
CreateObject("Shell.Application").Open (dosya_adi)
End If


End Sub

 

[halit3]

veya

Private Sub CommandButton11_Click()

klasör = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya_adi = klasör & "\" & TextBox2.Text & ".pdf"

If CreateObject("Scripting.FileSystemObject").FileExists(dosya_adi) = False Then
MsgBox "pdf dosyası yok"
Else
CreateObject("Shell.Application").Open (dosya_adi)
End If


End Sub

 

[bycakir]

ilk verdiğiniz çalıştı teşekkurler. fakat bu pdf klasoru şirkette ordak paylasımda bunun yolunu nasıl gösterebiliriz

 

[halit3]

siz masa üstündeki klasörden pdf dosyaları almak istediğinizi belirtmişsiniz.
""desktop/sicil.pdf yapabiliriz ""

ortak klasörün yolunu bununla değiştirin.

klasör = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")

 

[bycakir]

teşekkurler pazartesi deneyecegim