(تمت الاجابة) فتح ارتباط تشعيبي (HiberLink)

[الخليفي]

بسم الله

الاخوة الاعزاء حياكم الله الموضوع عندي زر في النموذج اريد منة ان يفتح ملف pdf عن طريق رابط في مربع نص. مع العلم ان كل سجل لة رابط خاص بة. بالنسبة لمربع النص عند الضغط عليىة فانة يفتح الملف المرتبط بنجاح ولكن اردت ان اجعل عملية الفتح عن طريق زر امر.

اسم الزر = OpenLink

اسم مربع نص = Link

اسم الفورم= Links Form

لم استطع ارفاق الملف لانه محضور في الشبكة ارفاق ملفات Rar

استطعت ارفاق صورة للفورم

وشكرا لكم

[الخليفي]

عذرا لقد استطعت ان ارفق الملف الى احد المواقع

الرابط

http://www.wobzip.org/file/54IIIIIQ

الملف ظاهر في الرابط باسم HLink.accdb

وشكرا

[الخليفي]

عذرا اضغط في نفس الصفحة على الزر Dwonload As Zip

وسوف يتحمل الملف

ارجو الاطلاع علية والمساعدة في ايجاد الحل

[ابوخليل]

Private Sub OpenLink_Click()

Me.OpenLink.HyperlinkAddress = Trim(Me![Link])

End Sub

[الخليفي]

شكرا اخي ابو خليل

بس الموضوع انة لكل ريكورد لنك خاص بة تم حفضة مسبقا

والمطلوب فقط تشغيل وفتح اللنك الخاص بالسجل المطلوب

[الخليفي]

اخي ابو خليل حاولت اطبق الكود ولكن تظهر لي هذة الرسالة:

[ابوخليل]

حاولت انقل مثالك الى جهاز آخر ولكني وجدته مضروب

وعلى كل حال في المرفقات تطبيق للكود السابق

قبل التشغيل اجعل مستند pdf على قرص c واجعل اسمه مثلا xx

ملحوظة / لرفع المرفقات لا بد من ضغطها باحد برامج الضغط winrar او winzip

runapplication.rar

[الخليفي]

اخوي أبـوخليل فرج الله همك فعلا هذا هو المطلوب

جزاك الله خير