الغاء رسالة فتح الرابط

[nogom]

السلام عليكم اخواني الاعزاء

لدي نموذج فيه زر عرض الملف طبعا الملف محفوظ خارج اكسس

والزر شغال تمام التمام ولكن عن الضغط عليه تظهر لدي رسالة كما في الصورة هذه الرسالة فقط اذا كان الملف PDF اما اذا كان صورة لا تظهر تفتح الصورة مباشرة

هل فيه طريقة تجاوز الرسالة المرفقة

وهذه الكود المستخدمة لفتح المرفق

On Error Resume Next
Dim FF As String
FF = Me.IstisnaContracts
Application.FollowHyperlink FF

وشكرا

 

 

[أبوبسمله]

وعليكم السلام

جرب الكود كالتالى

On Error Resume Next
Dim FF As String
FF = Me.IstisnaContracts
Application.FollowHyperlink FF ,,true

واخبرنا بالنتيجه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[Hamdi Edlbi-khalf]

السلام عليكم

المشكلة لا علاقة لها بكودك بل بملفات الأوفيس - لعلك تستخدم أوفيس 2016 فهي ثغرة من ثغراته الكثيرة- هناك طريقة لمعالجة المشكلة سأوافيك بها بعد التأكد من نجاعتها.

تم تعديل فبراير 2, 2020 بواسطه Khalf

[أبوبسمله]

اخى العزيز خلف @Khalf انت دائما سباق بفعل الخير والمساعده وانت اعلم منى بامور كثيره ومنكم نتعلم اخى

جزاك الله خيرا

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[Hamdi Edlbi-khalf]

جزاك الله كل خير

أردت التنبيه على حل المشكلة ولكن لم أكتب إجابتي كوني لم أتأكد من سلامة النتيجة، وقد سبقتني كعادتك جزاك الله كل خير.

[أبوبسمله]

وانا اول المنتظرين للنتيجه وارجو ارفاق مثال لها اخى خلف

وكما قلت لك انت اعلم منى فى امور كثير فكما وضحت انت ان هناك ثغرات كثيره فى اوفيس 2016 فلعلى لم الحظ هذه الثغرات لعدم متابعتى منذ فتره تعدت 3 سنوات وقد عدت منذ اشهر للتعلم والمتابعه من جديد واتعلم منكم اخوانى واساتذتى ولاننى متابع للمواضيع العربيه اكثر من الاجنبيه لعدم اجادتى للانجليزيه ما هى الا بضع كلمات واحاول مع ترجمه جوجل الخنيقه بس بتمشى الحال

جزاك الله كل خير

[Hamdi Edlbi-khalf]

أنت إنسان رفيع متواضع، وهذا الخلق خلق عظيم بارك الله بك، ليتك تعلم كم استفدت من إجاباتك لما كتب هذا الكلام، فعلاً 2016 ويفوقه 2013 بالثغرات حتى الآن تبين لي اثنتان ولا أدري ما يمكن أن أجده في المستقبل ^0^

[أبوبسمله]

هل جربت الكود بعد اضافه true

ام ماذا ؟

[Hamdi Edlbi-khalf]

السلام عليكم

لم يتح لي تطبيق الطريقة في إصلاح المشكلة والتي أشارت مايكروسوف إلى أنها غير مرتبطة بمستوى الأمان، أدعها لمن يرغب بالتجربة علماً أن هناك من قام بتطبيقها بحسب بعض المواقع على ٢٠١٦ ونجحت، أترككم مع الرابط

https://docs.microsoft.com/en-us/office365/troubleshoot/administration/enable-disable-hyperlink-warning

[أبوبسمله]

للاسف اخى خلف سوف اترككم مع الرابط لعدم ايجادتى الانجليزيه ويصعب على متابعتها

وان شاء الله احد اخواننا واساتذتنا يرى الموضوع ويفيدنا اكثر

وياريت لو بمثال

جزاك الله خيرا

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

[Hamdi Edlbi-khalf]

مرحباً بأخي @أحمد الفلاحجى

في الواقع الطريقة لا تتعلق بالأكسس فقط،والمعالجة في ملفات ويندوز.

لم يتح لي تطبيقها على حاسب تظهر به المشكلة.

وربما يكون للأستاذ صاحب السؤال رأي مختلف عند تطبيق الكود الذي تفضلت به والذي قد يكون حلاً للمشكلة.

 

[أبوبسمله]

مرحبا اخى @Khalf

هل هناك مشكله بالموقع ام اننى نائم

كان هناك مشاركه للاخ السائل قبل ردى هذا ولذلك رديت عليه هل قام بتجربته ام لا

????

[nogom]

بالنسبة للكود لقد قمت بالتجربة ولم ينفع

وشكرا لكم واعتذر مرة اخرى

[nogom]

شباب 

بعض الردود لا تظهر

[أبوبسمله]

هل ممكن ارفاق مثال للعمل عليه اخى الفاضل وان شاء الله اخواننا واساتذتنا لا يقصرون

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[nogom]

المشكلة حجم الملف كبير

[nogom]

هذا ملف قمت بإنشائه

 

Desktop.rar

[Hamdi Edlbi-khalf]

السلام عليكم

الحل هو في تغيير نسخة الأوفيس بالكامل وليس بحذفها وإعادة تنصيبها من نفس المصدر.

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

أتمنى لك التوفيق والنجاح.

[Hamdi Edlbi-khalf]

السلام عليكم

من التجربة فأنت تستخدم أوفيس ٢٠١٦ في جهاز ليس به قارئ بي دي إف، الحل هو تنصيب قارئ بي دي إف أو استخدام أوفيس ٢٠١٠ مع ويندوز٧ كون هذه المشكلة لا تظهر عندها حتى مع عدم وجود قارئ بي دي إف.