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
'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