حفظ الباسورد للقاعدة المرتبطة بالكود

[User user]

لدى قاعدة بيانات مقسمه وتم وضع باسورد على جزء الجداول 
ولدى زر عليه الكود التالى 
DoCmd.RunSQL "DELETE * FROM EDD_tbl IN 'E:\System\Database.accdb
عند تشغيله يظهر الخطا 3031 
محتاج اكتب الباسورد فى الكود لكى ينفذ الامر 

 

تم تعديل يناير 2, 2022 بواسطه User user

[ابو جودي]

اولا كود فتح قاعدة الخلفية والمحمية بكلمة مرور هو ولان انا مش فاهم مقصد حضرتك تحديدا

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

 وللمزيد برجاء ارفاق مثال من قاعدتتين البيانات الامامية والخلفية

[ابو جودي]

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

 

Autolink Table.zip

[User user]

 

21 ساعات مضت, ابو جودي said:

اولا كود فتح قاعدة الخلفية والمحمية بكلمة مرور هو ولان انا مش فاهم مقصد حضرتك تحديدا

محتاجة ينفذ الامر بدون ما يفتح الداتا بيز امام العميل 

[User user]

"Dim strDbName As String: strDbName = "E:\System\Database.accdb
Dim acc As Access.Application: Set acc = New Access.Application
acc.Visible = True
" acc.OpenCurrentDatabase strDbName, False, "123
'acc.UserControl = True
 'Application.Quit
SubDoCmd.SetWarnings False
"DoCmd.RunSQL "DELETE * FROM tbl IN 'E:\System\Database'.accdb
DoCmd.SetWarnings True
الكود اللى حضرتك ارفقته بيفتح الداتا بيز امام العميل
ومش بينفذ امر حذف البيانات من الجدول 

تم تعديل يناير 3, 2022 بواسطه User user

[User user]

up