البحث في الموقع
Showing results for tags 'ملحق الملف accdr'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاتة بالمرفق احاول فتح قاعدة بيانات بملحق accdr محمية بكلمة مرور لكن يظهر خطأ لايتم التعرف على التنسيق او ان القاعدة مفتوحه من قبل مستخدم اخر عند استخدام نفس الاكواد لفتح قاعدة بيانات بملحق accdb يتم فتح القاعدة بدون مشاكل استخدمت هذا الكود Private Sub أمر0_Click() With New Access.Application .OpenCurrentDatabase "C:\Users\User pc\Desktop\Trb.accdr", , "123" .UserControl = True .RunCommand acCmdAppMaximize End With Application.Quit End Sub واستخدمت هذا الكود Private Sub أمر1_Click() Dim strAccessExe As String, strDB As String Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = GetDBDir & "C:\Users\User1 pc\Desktop\Trb.accdr" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123") acc.RunCommand acCmdAppMaximize acc.OpenCurrentDatabase strDbName db.Close Set db = Nothing DoCmd.Quit End Sub ولكن الكود الاول والثاني لم يأتي بنتيجة المطلوب : التعديل على الكود إن أمكن لفتح قاعدة بيانات بصيغة accdr
