تشغيل كود على قاعده محميه بباسورد

[UserUser2]

لدى قاعده بيانات محميه بباسورد 
محتاج اضيف الباسورد فى الكود التالى 
"DoCmd.RunSQL "DELETE * FROM tbe IN 'D:\System\zx\Database.accdb"
 

[Foksh]

هل جربت هذه الفكرة 🤔

Dim db As DAO.Database
Dim strSQL As String

Set db = OpenDatabase("D:\System\zx\Database.accdb", False, False, ";PWD=YourPassword")
strSQL = "DELETE * FROM tbe"
db.Execute strSQL
db.Close

 

[UserUser2]

جزاك الله خيرا 

[UserUser2]

اقتباس

 

من فضلك اخى الكريم 
كيفيه اضافه باسورد الحمايه مع دالهDLookup - NZ 
 

 Nz(DLookup("ER", "TBL", "[EZ]= [forms]![ETR]![EZ]"), 0)

تم تعديل مارس 30 بواسطه UserUser2

[Foksh]

مع الإستعلام لا يمكنك دمج الباسوورد اثناء تنفيذ الاستعلام ..