06-12-20, 03:31 AM
(آخر تعديل لهذه المشاركة : 06-12-20, 03:58 AM {2} بواسطة أبو عبدالله الحلواني.)
السلام عليكم ورحمة الله وبركاته
لدي تطبيق أكسس محمي بكلمة مرور محتاج مساعدة لفتحه من خلال الفجول بيسك مع تمرير كلمة المرور
أولا استخدمت هذا الكود وكان يعمل بشكل جيد بدون كلمة المرور وهذا هو الكود
ولكن عند محاولة فتح قاعدة بيانات محمية بكلمة مرور يتم المطالبة بها وهذا ملا أريده وانما اريد تمرير كلمة المرور من خلال الكود أيضا وقد وجد هذا بمساعدة ميكروسوفت وحاولت التطبيق ولكن لا يحدث شئ بل لا زال الأمر علي ما هو عليه .
أرجو المساعدة من أهل الخبرة
وجزاكم الله خيرا
قد وجدت هذا الموضوع ولكن لم أستطع فهم الكود بشكل صحيح وهذا هو رابط الموضوع
https://www.vbforums.com/showthread.php?...ase-method
لدي تطبيق أكسس محمي بكلمة مرور محتاج مساعدة لفتحه من خلال الفجول بيسك مع تمرير كلمة المرور
أولا استخدمت هذا الكود وكان يعمل بشكل جيد بدون كلمة المرور وهذا هو الكود
كود :
Public Sub CretAndOpen(ByVal Strpath As String)
Dim AccessApp As Object
AccessApp = CreateObject("Access.Application")
With AccessApp
.AutomationSecurity = 1
.RunCommand acCmdAppMaximize
.DoCmd.RunCommand acCmdAppMaximize
.OpenCurrentDatabase(Strpath)
.docmd.runcommand(10)
End With
Application.Exit()
End Sub
أرجو المساعدة من أهل الخبرة
وجزاكم الله خيرا
قد وجدت هذا الموضوع ولكن لم أستطع فهم الكود بشكل صحيح وهذا هو رابط الموضوع
https://www.vbforums.com/showthread.php?...ase-method