اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

user-defined type not defind

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

Dim oShell As IWshShell_Class

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

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

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

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

سؤال آخر

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

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

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

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

تم تعديل بواسطه aimanano
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

windows script host object model

رابط هذا التعليق
شارك

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

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

ولكن عندي طلب

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

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

تم تعديل بواسطه aimanano
رابط هذا التعليق
شارك

اخي الكريم

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

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

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

ولكن لدي سؤال

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

windows script host object model

بواسطة الكود

رابط هذا التعليق
شارك

اخي الكريم

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

أخي العزيز

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

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

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

رابط هذا التعليق
شارك

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

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

nart lebzo

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

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

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

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

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

تم تعديل بواسطه aimanano
رابط هذا التعليق
شارك

أخي العزيز

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

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

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

........

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه aimanano
رابط هذا التعليق
شارك

صديقي العزيز

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

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

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

!!! ???

رابط هذا التعليق
شارك

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

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

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

اخي الكريم

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

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

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

test.rar

تم تعديل بواسطه aimanano
رابط هذا التعليق
شارك

أخي العزيز

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

test2.rar

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information