اولا كود فتح قاعدة الخلفية والمحمية بكلمة مرور هو ولان انا مش فاهم مقصد حضرتك تحديدا
Dim strDbName As String: strDbName = CurrentProject.Path & "\ArchivingTables2018.accdb"
Dim acc As Access.Application: Set acc = New Access.Application
acc.Visible = True
acc.OpenCurrentDatabase strDbName, False, "2018"
acc.UserControl = True
'Application.Quit
وللمزيد برجاء ارفاق مثال من قاعدتتين البيانات الامامية والخلفية