اضافة مكتبة DAO

عن طريق فجول بيسك 6 اى

project __________ثم references ثم من القائمة microsoft DAO object library

ثم نضغط ok

والسلام عليكم

عن طريق فجول بيسك 6 اى

project __________ثم references ثم من القائمة microsoft DAO 3.51 object library

ثم نضغط ok

والسلام عليكم

السلام عليكم

كتب هذا الكود ابو حمود

ضع هذا الكود في زر امر عند الضغط عليه .

On Error Resume Next
Application.References.AddFromFile _
"C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL"

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

On Error Resume Next
Application.References.AddFromFile Left(Application.References.Item(1).FullPath, _
InStr(Application.References.Item(1).FullPath, "VBA") - 1) & "DAO\DAO360.DLL"