[abosara]

لو سمحتم أريد كود فتح قاعدة بيانات أكسس محمية بكلمة سر عن طريق الفيجوال بيسيك باستخدام ShellExecute
وشكرا

[GameOver]

هذا التعديل

كود :

App.Path & "\" & "DBF_01.mdb /pwd password"

وهذا التعديل لو كانت كلمة المرور بها مسافة

كود :

App.Path & "\" & "DBF_01.mdb /pwd " & chr(34) & "password" & chr(34)

[abosara]

شكرا أخى الكريم ولكن للاسف الكود لا يعمل وفيمت يلى الكود كامل يفتح ملف أكسس بشرط أنه لا توجد باسورد عليه
ShellExecute Me.hwnd, "open", App.Path & " \" & "DBF_01.mdb", "", "", 3
المطلوب هنا اضافة كلمة السر وشكرا

[GameOver]

فيه عندك خطأ بوجود مسافة في الجزء "\ "

هذا التعديل

كود :

ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd password", "", "", 3

وهذا التعديل لو كانت كلمة السر بها مسافة

كود :

ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd " & chr(34) & "password" & chr(34), "", "", 3

[abosara]

عفوا اخى الكريم
تم اضافة الملف المطلوب فتحه وكلمة السر 12345 برجاء تجربة الكود اللازم لتشغيل هذا الملف وشكرا

---

  dbf_2018.rar (الحجم : 88.24 ك ب / التحميلات : 138)
  dbf_2018.rar (الحجم : 88.24 ك ب / التحميلات : 138)

[GameOver]

تفضل جرب الآن

كود :

ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd 12345", "", "", 3

[abosara]

للاسف الكود لايعمل - مع ملاحظة أنه البرنامج لايعطى رسالة خطأ - ولم يتم فتح الملف وشكرا