مساعدة ف حفظ نسخة من فاعدة البيانات

[ازهر عبد العزيز]

السلام عليكم احتاج كود لحفظ قاعدة بيانات بصيغة accde

[kanory]

منذ ساعه, ازهر عبد العزيز said:

السلام عليكم احتاج كود لحفظ قاعدة بيانات بصيغة accde

كلامك عام وايضا الكود عام ...ز تفضل .....

'starnet(http://www.accesswordkingdome.com/)
sourcedb = "D:\sterile_dep\pre_db\Main_program.accdb"
targetdb = "D:\sterile_dep\Main_program.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