أخواني الأعزاء:
قمت بنسخ مجموعة كبيرة من الروابط التشعبية الى قاعدة البيانات وهذه الروابط لعناوين في الإنترنت ، لكن عند الضغط على أي من هذه الروابط لا يفتح متصفح الإنترنت ،
أيضاً لاحظت في خصائص الروابط التشعبية أن خانة العنوان فارغة وقد تكون هي السبب ، فكيف أقوم بإضافة عناوين الروابط بشكل الى.
وشكراً لكم
أخي الكريم لاحظ الصورة التالية آمل ان تفي بالمطلوب ...
(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)
«´¨`.¸ أبو رهـــــــف ¸.´¨`»
(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )
¸.•’’ ’’
( `•.¸
`•.¸
أخي العزيز أبو رهف:
الطريقة التي ذكرتها مناسبة في حالة كون الارتباطات التشعبية محدودة ، لكن في حالتي يوجد لدي أكثر من عشرة الاف ارتباط تشعبي قمت بنسخها من ملف أكسل فأريد طريقة عملية ، وليست بإضافة السجلات يدوياً.
لك مني كل الأحترام والتقدير لمحاولة مساعدتي ، وأرجو الأستمرار في طرح الحلول المناسبة.
لا زلت أنتظر الأجابة من الخبراء
السلام عليكم ورحمة الله،،
تحية طيبة ومعطرة لأخي أبو رهف ومجهود ممتاز وشرح جميل مفعم بالصور..
وتحية طيبة كذلك للأخ إبداع ..
أولا:-
من الافضل دائما ان ترفق مثالك حتى يتم الاطلاع عليه لأنه طلبك قد يكون غير واضح ويقوم العضو بالبحث وكتابة الاجابة والتعب لما يتصوره انه طلبك.
ثانيا:-
بالنسبة الى طلبك وهو فتح رابط تشعيبي لعناوين في الانترنت وهذه العنواين محفوظه لديك في قاعدة البيانات وهذا يعني انها محفوظة بالتأكيد بحقل .. هل هذا صحيح؟
طيب كيف نقوم بذلك ؟
1- انشئ زر أمر وليكن اسمه cmd1
2- في اجراء حدث عند النقر اكتب الكود التالي :
Dim stAppName As String Dim InterPath As String InterPath = Me.filename stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & InterPath Call Shell(stAppName, 1)
ترجمه الكود:
InterPath = اسم الحقل الذي يحتوي على عناوين الانترنت في القاعدة واسمه في مثالنا هذا filename
stAppName = اسم الدليل الافتراضي explore
& InterPath= الصاق العنوان الذي تريد فتحه وهو الذي تختاره من النموذج طبعا.
تنفيذ التشغيل
هذا كل شيء ومرفق مثال لذلك
أخوك مشكاة
شكراً ل مشكات أبراهيم للمساعدة وهي فعلاً ما ابحث عنه ، والشكر موصول ل أبو رهف لمحاولة المساعدة.
الله يجزاكم الجنة