مشاكل نقل ملفات قواعد البيانات من جهاز الي اخر و طرق حلها

مشاكل نقل ملفات قواعد البيانات من جهاز الي اخر و طرق حلها

#If VBA7 Then

    ' ففي هذا الكود نقوم بفحص اذا كان محرر الاكود من النوع vba7   و في هذه الحاله تكون نسخه 64 و نقوم باستدعاء الداله Declare PtrSafe Function و المستخدمه للعمل مع هذه النواه

    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _

        Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean

#Else

#If VBA6 Then

    ' اذا كان محرر الاكواد من النوع vba6  ففي هذه الحاله يقوم الكود باستدعاء الداله Declare Function 

    Private Declare Function GetOpenFileName Lib "comdlg32.dll" _

        Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long

#End If

#End If

Option Compare Database

Sub addListReferences()
‘ قمنا بافتراض متغر لتخزين مسار قاعده البييانات و الذي سنقوم بتخزين المكتبات البرمجيه في نفس المسار
Dim SourceFile
‘هنا وضعنا مسار افتراضي لملفات المكتبات البرمجيه بجوار ملف قاعده البيانات
SourceFile = Application.CurrentProject.Path & "MSO.DLL"
'في حاله وجود مشكله في الكود انتقل الي نقطه التصحيح
On Error GoTo CanNotAddWord
'لتنشيط المكتبات برمجيا
Application.VBE.ActiveVBProject.References.AddFromFile SourceFile

Exit Sub
'نقطه التحصيح البرمجي

CanNotAddWord:
‘للتاكد من وجود الملف المراد تنشيطه برمجيا داخل مسار قاعده البانات
‘ فاذا لم ياكد من ان هذا الملف هو الملف المطلوب  سيقوم الكود بارسال رساله تنبيهيه للمستخدم
If Right(SourceFile, 7) <> "MSO.DLL" Then
'رساله تنبيه في حاله عدم وجود الملف
MsgBox "MSO.DLL" & " " & "لا يمكن العثور علي الملف", vbCritical, "انتبه"
End If
End Sub

مواضيع ذات صله

• يمكنك أيضا مشاهده تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde
• يمكنك أيضا مشاهده الاستعلامات في الاكسيس
• كما يمكنك أيضا مشاهده تصميم شريط ريبون احترافي في الاكسيس
• يمكنك أيضا مشاهده ايقاف الحفظ التلقائي في الاكسيس

يمكنك الاطلاع علي هذا المقال لفهم الفكره