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

[محمد ايمن]

الاصدقاء الاكارم

تحية طيبة

في المرفق التالي كيف استطيع اضافة الوحدة النمطية الموجودة في مجلد البرنامج الى الاكسسز ( برمجيا ) ؟؟

addmodule.rar

[Bluemind]

اخوي محمد

جرب هذا الكود

Dim dd As Variant

Application.VBE.ActiveVBProject.VBComponents.Import (CurrentProject.Path & "\mod1.bas")

DoCmd.Save acModule, "mod1"

If dd <> "" Then

MsgBox dd


Else

MsgBox "áã íÊã ÇáÚËæÑ Úáì ÇáæÍÏÉ ÇáäãØíÉ ÇáãÍÏÏÉ"

End If

[محمد ايمن]

الف شكر اخي الكريم

الكود يعمل 100%

تمت الإجابة

[ابوخليل]

هل يعني هذا انه يمكن قراءة ملفات فيجوال بيسك من الاكسس في حال عدم وجود الفيجوال على الجهاز ؟

[محمد ايمن]

نعم يمكن لان الوحدات النمطية للفيجوال و الاكسسز هي واحدة