كيف يمكن تسجيل اداة Active X تلقائيا

وعليكم السلام ورحمة الله وبركاته ..

أخي الكريم قم بفتح محرر الفيجول للنموذج وفي بدايته ( أي تحت Option Compare Database ) ضع الكود التالي :

Function MyRefrance()
End Function

وفي حدث عند التحميل للنموذج ضع الكود التالي :

On Error GoTo Errr
Dim zh As Reference
For Each zh In Application.References
Next zh
Application.References.AddFromFile "C:\WINDOWS\system32\comdlg32.ocx"
Errr:
If Err.NUMBER = 32813 Then Resume Next
If Err.NUMBER = 29060 Then Resume Next

وبالتوفيق

السلام عليكم

مشكور اخي ابو رهف

ولكن لم تنجح العملية

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

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

جرب هذه الطريقة

1- قم بعمل ملف بامتداد .bat

2- قم بلصق السطرين التاليين

Copy /b /y comdlg32.ocx%SystemRoot%\System32\*.*

بالتوفيق

مشكور يا غالي

ولكن كيف استخدم هذا الملف الذي بامتداد bat

واين اضعه

وهل ادخله ضمن ملف الاعداد للبرنامج

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

السلام عليكم

اخى الفاضل

انسخ الكود الذى وضعه اخونا هانى فى ملف نصى عادى جدا و نسمية مثلا N و نحفظه على الدرايف D مثلا

ثم قم بتغيير امتداده من خلال الدوس ..

طيب هتسال اوصل للدوس ازاى ؟؟ سؤال منطقى جدا

اضغط مفتاح الويندوز مع مفتحا حرف R لتشغيل خاصيية Run و اكتب بها الأمر Command

هفيتح لك شاشه سوداء اذهب للمكان المحفوظ فيه الملف النصى و اذهب للدريف D المحفوظ عليه الملف النصى بالأمر D : ثم الضغط على مفتاح الادخال ستنتقل الى الدريف D

منها اكتب الامر ren n.txt n.bat

و معناه اعد تسمية الملف N بامتداد txt إلى اسم N بامتداد bat و هو اختصار لكلمة Batch و هو ملف تنفيذى تتابعى اى يقوم بتنفيذ الاوامر المكتوبة بداخلة بصورة تتابعيه يعنى السطر الاول ثم الذى يلية

بالتوفيق

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

خالص تمنياتى للجميع بالتوفيق

الاصيل

شاكر لك أخي هاني وبارك الله فيك ..

أخي الكريم بالنسبة للكود الذي وضعته مهمته يقوم بتسجيل المكتبة بالاكسس فقط وليس تسجيلها في النظام وهذا ما كنت اظن أنك تريده ولكن الحمد لله تفضل استاذي هاني بوضع الطريقة ولقد استفدت منها جزاءه الله خيراً وبارك فيه ..

أخي الكريم فقط قم بنسخ السطرين الذي وضعها أخي هاني والصقها في المفكرة لديك وقم بوضع لها أي اسم وبعد الاسم اضف فقط bat. ولنفترض بانك سميت الملف R سوف يكون بهذا الشكل R.bat ومن ثم حول حفظ كنوع من txt إلى All Files وبعدها قم بحفظه وسوف يتنج لك ملف من نوع باتش ...

بالتوفيق

الف شكر لكم جميعا يا اخواني على جهودكم معي

ولكن السؤال المهم هو

كيف استخدم هذا الملف xx.bat

يعني انا عامل لبرنامجي ملف setup يقوم بتنصيبه على الكمبيوتر

فهل اقوم باضافة هذا الملف xx.bat الى ملف الاعداد ويقوم بوضعه على القرص D لدى الزبون

او اضعه في الويندوز او اين؟؟

وهل هذا الملف يعمل تلقائيا ام يجب ان اشغله يدويا حتى يقوم بتسجيل الاداة؟؟؟

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

السلام عليكم

اخي الكريم بدون نسخ الاداة وبدون باتش

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

Shell "regsvr32 /s " & """" & Application.CurrentProject.Path & "\comdlg32.ocx " & """"

تحياتي