كود ارسال اختصار الى سطح المكتب

[محمد ايمن]

اصدقائي الاعزاء

تحية طيبة و بعد

وجدت في المنتدى اكثر من برنامج لارسال اختصار لقاعدة البيانات الى سطح المكتب

جميعها كانت تحوي مشاكل و هي ارسال اختصارين عوضا عن واحد اما برنامج الاخ ZAHOF فهو الوحيد الذي ارسل اختصار

المشكلة الآن انه عند استيراد النموذج و الوحدات النمطية تظهر رسالة الخطا

user-defined type not defind

ويظهر السطر التالي مظللا باللون الازرق

Dim oShell As IWshShell_Class

علما انه عند تشغيل البرنامج الاصلي لم يظهر اي خطا و لكن عند الاستيراد ظهر هذا الخطا

ماهو سبب هذا الخطا

المرفق الأول يحتوي على نموذج لانشاء قاعدة بيانات جديدة و النموذج الثاني لارسال اختصار الى سطح المكتب

المرفق الثاني و هو البرنامج الاصلي للاخ ZAHOF

سؤال آخر

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

عذرا للاطالة و لكم جزيل الشكر سلفا

انشاء قاعدة جديدة بجداول فارغة.rar

كود إرسال إختصار إلى سطح المكتب.rar

تم تعديل مارس 11, 2012 بواسطه aimanano

[ابوخليل]

السلام عليكم

يوجد مكتبة ناقصة في مثالك الجديد

افتح محرر الفيجوال / References / Tools

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

تجد ان مثالك الجديد ينقصه :

windows script host object model

[محمد ايمن]

بارك الله فيك اخي الكريم

فعلا كلامك صحيح

ولكن عندي طلب

هل يمكن اضافة هذه الخاصية الى القاعدة بواسطة الكود ؟؟؟؟؟؟؟؟

ولك جزيل الشكر سلفا

تم تعديل مارس 11, 2012 بواسطه aimanano

[أبو آدم]

أخي العزيز

جرب

http://www.officena.net/ib/index.php?showtopic=39156&hl=%2B%D8%B3%D8%B7%D8%AD+%2B%D8%A7%D9%84%D9%85%D9%83%D8%AA%D8%A8&fromsearch=1

[محمد ايمن]

اخي الكريم

البرنامج الموجود في الرابط يقوم بوضع اختصارين عوضا عن اختصار واحد

بينما البرنامج الموجود في المرفقات لدي يرسل اختصار واحد فقط

على العموم شكرا للجميع

ولكن لدي سؤال

كيف اضيف الخاصية

windows script host object model

بواسطة الكود

[أبو آدم]

اخي الكريم

البرنامج الموجود في الرابط يقوم بوضع اختصارين عوضا عن اختصار واحد

بينما البرنامج الموجود في المرفقات لدي يرسل اختصار واحد فقط

.................

هو يضع اختصاراً واحداً ، جرب مرة أخرى ...

من أين سيأتي الإختصار الثاني ؟؟؟

...............

[محمد ايمن]

اخي الكريم لقد جربت

قم بتجربة ما يلي

شغل الملف الذي ارسلته لي و اضغط على زر Create A Shortcut

سترى ان اختصارا قد انشئ على سطح المكتب

قم بعمل تحديث ( لسطح المكتب )

سترى انه قد اصبح اختصارين عوضا عن واحد

[أبو آدم]

جربت ... وحدثت سطح المكتب

ولم يصبحوا إختصارين ..؟؟؟

.................

[محمد ايمن]

اخي الكريم

هذا رابط يحتوي على فيديو يوضح المشكلة

http://www.4shared.com/rar/kCu0Ayk0/Untitled.html

[أبو آدم]

أرجو من مجموعة من الإخوة تجربة التطبيق وموافاتنا بالنتيجة .......

شخصياً جربت التطبيق و الكود على 4 أجهزة ... ويندوز 7 و XP وباصدارات وتحديثات مختلفة ، وهو يعمل بشكل ممتاز ، ولم ينتج عن تحديث سطح المكتب تكرار إختصار المكتب

أخي العزيز

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

عملية التحديث لسطح المكتب تتعلق بأداء نظام التشغيل ، وأظن -والله أعلم- أن المسألة تتعلق بجهازك أو بنظام التشغيل -الويندوز- .

بانتظار نتائج تجارب الإخوة ...

[ابوخليل]

القاعدة 2003 لا يمكن فتحها والصورة المرفقة تبين الحال

آمل رفع المرفق مرة اخرى

[محمد ايمن]

اخي ابو خليل كلامك صحيح و لكن القاعدة تعمل على 2007

اما بانسبة الى اخي

nart lebzo

انا لدي ويندوز 7 sp1

اخي الكريم الغريب في الموضوع اني جربت اربع برامج واحد للاخت زهرة و واحد لك وواحد للاخ ZAHOF اما الرابع فهو لواحد من اخوتنا في المتندى

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

اما الرابع فلديه كود مختلف ووحدتين نمطيتين عوضا عن واحد

لكن الى الآن لم اصل الى جواب سؤالي الاصلي : وهو هل يمكن اضافة الخاصية windows script host object model بواسطة الكود ام لا ؟؟؟

تم تعديل مارس 14, 2012 بواسطه aimanano

[أبو آدم]

_{أخي العزيز}

_{الجواب على سؤالك الأصلي (مما لدي) لا أعرف ان ملفات المكتبات يمكن اضافتها عبر الكود -وهي غير موجودة اصلاً على الجهاز-}

_{ولم أجرب كوداً يفحص وجود ملف المكتبة ويضيفه للتطبيق}

_{و إن كان الأمر متاحاً ، وأتيح لأحد من إخوتنا ، فعلمونا مما علّمكم الله ....}

_........

[osama ababneh]

الاخوة الكرام

تم تجريب الملف

ظهر ملف واحد فقط

[محمد ايمن]

اخي الكريم nart lebzo لقد حلت المشكلة

بما ان البرنامج بقوم بانشاء قاعدة مماثلة تماما ولكن بجداول فارغة

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

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

ولكن مايحيرني لماذا ظهر عندي اختصارين ؟؟؟؟

انشاء قاعدة جديدة بجداول فارغة.rar

تم تعديل مارس 14, 2012 بواسطه aimanano

[أبو آدم]

صديقي العزيز

جربت آخر مرفق لك

ما زال ينتج نسخة مطابقة للقاعدة مع بيانات الجداول كما هي (ليست فارغة) على المحرك C

ينشئ إختصار (واحد) على سطح المكتب للقاعدة الأصلية

!!! ???

[محمد ايمن]

تضارب النتائج

لماذ تظهر عندي القاعدة فارغة بينما تظهر عندك بنفس الجداول و يظهر عندي اختصارين و عندك اختصار

في البداية مشكور اخي الكريم نارت على المتابعة و اعتذر عن التقصير

اخي الكريم

هل تظهر القاعدة الجديدة بنفس الاسم الاساسي ام تظهر حسب الاسم المكتوب في صندوق الادخال ( الاسم الاساسي هو انشاء قاعدة جديدة بجداول فارغة )

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

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

test.rar

تم تعديل مارس 19, 2012 بواسطه aimanano

[أبو آدم]

أخي العزيز

أنا أتفاعل معك كأي مستخدم بسيط ، دون تدقيق المرفق ... أطبق فقط و أوافيك بالنتائج تفاعلاً وتشجيعاً وإسناداً لجهدك الطيب.

سيتم التحميل و التدقيق وموافاتك بالنتائج ، بإذن الله

مع طمعنا بتفاعل الإخوة ........

..................

[محمد ايمن]

مشكور اخي الكريم و جزاك الله كل خير

و اتمنى من الإخوة التفاعل حتى تعم الفائدة

[محمد ايمن]

!!!!!!!!!!!!!!!!!!!!!!!!!!

اخي نارت هل نغني انا و انت فقط في هذا الموضوع ؟

[ابوخليل]

كما ذكرت لكم المرفق الاول استعصى على الفتح

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

[محمد ايمن]

^{مشكور اخي ابو خليل ولكن لي سؤال صغير}

^{هل ظهرت لك قاعدة جديدة بجداول فارغة ام ممتلئة ؟}

تم تعديل مارس 21, 2012 بواسطه aimanano

[ابوخليل]

لا يتم انشاء قاعدة على الاطلاق

رغم اظهار رسالة بنجاح العملية

والعجيب انني اذا نقرت الزر ثانية يظهر لي وندز ان هناك نسخة موجودة بهذا الاسم

مكان النسخة الافتراضي :C/ اليس كذلك ؟

[محمد ايمن]

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

[محمد ايمن]

حرف واحد يقلب الموازين رأسا على عقب

ارجو من الاخوة التجربة و موافاتي بالنتائج

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

الاختلاف كان بين path و patch

test2.rar