تلميذ بدأ يتمرد كيف تدخل إلى نماذح هذا الــ MDB

[جرير الصغير]

تلميذ بدأ يتمرد كيف تدخل إلى نماذح هذا الــ MDB

مع شكر من درسنا على أيديهم من إخوتنا الكرما

http://www.officena.net/ib/index.php?showtopic=10516

[التقني]

يبدو أن النموذج محمي بكلمة سر لإلغاء وإبطال عمل الشفت

ما هي هذه الكلمة بارك الله بك :(

لاحظ أن الملف كبير جداً 380 كيلوبايت !!

حاول أت تعمل له اصلاح وضغط من خلال :

1- أدوات

2- أدوات مساعدة لقواعد البيانات

3- ضغط قاعدة بيانات واصلاحها

[جرير الصغير]

ماشي يا حلو

أصبح 32 بايت الآن

http://www.officena.net/ib/index.php?act=S...st=0#entry45209

[التقني]

ماشي يا حلو :(

تم الدخول على النموذج

[جرير الصغير]

ماشي يا حلو

لكن لو فقدنا : ( ماشي يا حلو )

ما ذا نصنع أيها النبلاء الحلوين

هنا السؤال

[euro_999]

جرير الصغير

غيرها الى اي رقم انت تحب ............

[جرير الصغير]

ليست المشكلة في كلمة المرور يا إيرو

السؤال :

ما العمل في حال فقدان كلمة المرور

مازال السؤال ملحا يا مبدعون

[أبو هادي]

السلام عليكم

ما العمل في حال فقدان كلمة المرور

تنفيذ الكود عن طريق قاعدة بيانات أخرى .

تحياتي .

[جرير الصغير]

السلام عليكم

تنفيذ الكود عن طريق قاعدة بيانات أخرى .

لم أفهم يا أبا هادي

[euro_999]

حمل هذا المثال يمكن يساعدك

[أبو هادي]

السلام عليكم

نفس الكود المسئول عن الغا؟ الكود ولكن بدل أن تشير إلى قاعدة البيانات كالتالي :

Set dbsCurrent = CurrentDb

يمكنك عن طريق قاعدة بيانات أخرى الإشارة إلى قاعدة البيانات المحمية كالتالي :

Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Path&DatabaseName")

تحياتي .

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

اخي الكريم

كما قال اخي الاستاذ / أبو هادي

ويمكن ايضن انشاء قاعدة بيانات جديد وبعد ذلك انشاء ماكرو يكون اسمه atuoexe تقريباً

ويكن بداخل هذا المكرو امر تشغيل ((( بدء التشغيل ))) بعد ذلك تقوم بانشاء مكرو اخر يقوم بارسال هذا المكرو الى قاعدة البيانات وهي الهدف

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

عندما تشغيل قاعدة البيانات الهدف سوف يكون في المقدمه شاشة ((( بدء التشغيل ))

يمكن ان تعدل على هذي الشاشه لكي تتمكن من الدخول على البرنامج

وعلى كل حال لا تنفع هذي الطريقه مع كل قواعد البيانات ولكن احبب الافائده فقط

وتبقا طريقة الاخ اكريم أبو هادي هي اطريقه الاقواء

والله الموفق

والسلام عليكم ورحمة الله وبركاته

[جرير الصغير]

شكرا إيرو

لكن البرنامج لم يجد لأنك لا تقدر على الدخول في نماذج المقفل أصلا

وشكرا يا طيف لكن الطريقة صعبة وطويلة ولم تفلح معي

أبو هادي

لم افهم أيضا وآسف لإزعاجك

[أبو هادي]

السلام عليكم

من قاعدة بيانات أخرى ضع هذا الكود في وحدة نمطية بدل المسار وإسم القاعدة الهدف ثم شغل هذا الإجراء :

Private Sub SetProperties()
  Dim dbs As Database
  Dim prp As Property

  On Error Resume Next
  
 'Set dbs = CurrentDb
  Set dbs = DBEngine.Workspaces(0).OpenDatabase("C:\Officena\Contacts.mdb")

  dbs.Properties("AllowBypassKey").Value = True
  If Err.Number <> 0 Then
    Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
    dbs.Properties.Append prp
  End If
  
  Set dbs = Nothing
End Sub

تحياتي .

[جرير الصغير]

شكرا جزيلا يا أبا هادي

لا حرمنا منك