كود للتحويل قاعدة بيانات 2 ACCDEمن خلال قاعدة بيانات 1

Private Sub makeAccde_Click()
'starnet(http://www.accesswordkingdome.com/)
sourcedb = "D:\folderA\test.accdb"
targetdb = "D:\folderA\test.accde"
Dim accessApplication As Access.Application
Set accessApplication = New Access.Application
With accessApplication
.SysCmd 603, sourcedb, targetdb
End With
 Set accessApplication = Nothing
 DoCmd.Close acForm, "makeAccde"
 DoCmd.Quit
End Sub