بحث و فتح ملف PDF بدلالة الـ Textbox

[ranie]

أخواني الأعزاء بعد التحية اود أن اطرح مشكلتي التي أرهقتني ولم أجد لها حل

في ملف الإكسل عندي فورم للبحث يقوم بإيجاد اللقيمة المطلوبة و في هذا الفورم يوجد زر لفتح الملف الخاص بهذه القيمة و هو ملف PDF  .

سوف أقوم بوضع الكود و أرجو منكم التصحيح لانه عند القيام بالعملية تظهر رسالة (

(  there was an error opening this document , this file cannot be found  )

 

مع العلم أن الملف موجود في نفس الفولدر الموجود في الكود  و عند فتحه بشكل منفصل يفتح بشكل طبيعي .

 

الكود هو :

</p>
<p>Private Sub CommandButton4_Click()
Dim PDFDir As String, FName As String, PDFFile As String
Dim READERPath As String
FName = TextBox2.Text + ".pdf"
pdf_dir = "C:\Users\Acer\Desktop\package calculation\" 
PDFFile = pdf_dir & FName

READERPath = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" 

Shell READERPath & " " & PDFFile, vbNormalFocus

End Sub</p>
<p>

و مرفق معه صورة للفورم .

 

وشكراً لكم مقدماً

[ranie]

للرفع

 

الأخوة الخبراء

الرجاء متابعة موضوعي و شكراً