تحويل قاعدة البيانات الى accde برمجيا

[أبو امين]

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

Function accdeConvert() 
Dim app 
Dim strDBName 
Dim strADEName
Set app = CreateObject("Access.Application")
strDBName = CurrentProject.Path & "1.accdb" ' اسم قاعدة البيانات الاصلية 
strdeName = CurrentProject.Path & ".accde"
app.SysCmd 603, CStr(strDBName), CStr(strdeName)
Set app = Nothing
Follow
Kill strDBName
End Function
Function Follow()
FollowHyperlink strADEName
End Function

لاحظ اننا استخدمنا السطر'

'strDBName = CurrentProject.Path & “1.accdb”
و الذي يحتوي علي 1'.accdb حيث تمثل اسم قاعده البيانات المراد تحويلها
كما اننا استخدمنا السطر'

'strdeName = CurrentProject.Path & “.accde”
لتحديد اسم و مسار ملف قاعده البيانات بعد تحويلها'
كما استخدمنا'

'Kill strDBName
لحذف ملف قاعده البيانات من النوع' accdb 'بعد اتمام عمليه التحويل

 

تم تعديل أغسطس 7, 2022 بواسطه derbali ammar

[أبو امين]

جربت ه\ا المثال في موديل و انشات نموذج فيه زر لاستدعاء الموديل لكن للاسف بائت العملية بالفشل

[أبو امين]

و اخيرا عثرنا على حل من الاستا\ الكريم في احد المشاركات بالمنتدى

[Shamerany]

Public Sub ConvertToaccDE()
sourcedb = "C:\Users\Usr\Documents\Database2.accdb"
targetdb = "C:\Users\Usr\Documents\Database2.accde"
Dim accessApplication As Access.Application
Set accessApplication = New Access.Application
With accessApplication
.SysCmd 603, sourcedb, targetdb
End With
'Set accessApplication = Nothing

End Sub

[أبو امين]

شكرا على المرور لكن لم تنجح معي : تكرم لو ترفق مثال استا\ي الكريم