اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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


 

prob.JPG

prob2.JPG

تم تعديل بواسطه 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

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

قام بنشر

 

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

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

 

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

قام بنشر (معدل)

"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
الكود اللى حضرتك ارفقته بيفتح الداتا بيز امام العميل
ومش بينفذ امر حذف البيانات من الجدول 

تم تعديل بواسطه User user

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information