خطا في كود فتح قاعدة بيانات ( access runtime)

[محمد ايمن]

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

اخواني الاكارم

المرفقات تحتوي على قاعدتين حيث تقوم القاعدة الاولى بفتح القاعدة الثانية ولكن هناك مشكلة

عند استخدام اكسسز runtime ظهرت رسالة الخطا هذه

License information for this component not found. You do not have an appropriate license to use this functionality in the design environment

حذفت الاكسسز و اعدت تنصيبه اصبحت تظهر لي رسالة خطا

توقف تنفيذ هذا التطبيق بسبب حدوث خطا وقت التنفيذ . لا يمكن لهذا التطبيق ان يواصل العمل و سيتم اغلاقه

ما السبب

طبعا اعيد التذكير ان المشكلة ظهرت عند استخدام اكسسز runtime

Desktop.rar

تم تعديل أبريل 5, 2012 بواسطه aimanano

[ابوخليل]

تمت التجربة

المثال يعمل وسليم 100%

[محمد ايمن]

اخي الكريم يجب ان تحذف كافة نسخ الاوفيس من الجهاز

ثم تقوم بتنصيب اكسسز accessruntime و بعدها تقوم بالتجريب

ولك جزيل الشكر سلفا

[ابوخليل]

المفترض ما دمنا في هذه البيئة ان يكون لدى الواحد منا اكثر من جهاز بخصائص مختلفة في كل جهاز للتجارب والتطبيق

[محمد ايمن]

اخي الكريم جربت على ثلاثة اجهزة وكانت نفس المشكلة طبعا النظام كان ويندوز 7 و xp

ولكن عند تنصيب الاوفيس بروفيشنال ( اكسسز فقط ) كانت المشكلة تحل

[محمد ايمن]

up

[ابوخليل]

استبدل كودك السابق بهذا :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub opendata_Click()

ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "aa.mdb", "", "", 1

End Sub

ومرفق التطبيق

فتح قاعدة من اخرى.rar

[محمد ايمن]

:signthankspin: :signthankspin: :signthankspin:

الكود شغال 100%

وانا اجري عليه تعديل بحيث يختار اوفيس 2010 ثم 2007 ثم 2003 ( في حال توفر اكثر من نسخة )

[عبد الفتاح كيرة]

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

[سعيد صواب]

جزاكم الله خير اخواني

الكثير ينصح بعدم عمل ضغط واصلاح للقاعدة الخلفية ...

هل من الممكن استخدام هذه الطريقة كبديل .... وهي ان نقوم بفتح القاعدة واغلاقها .. 

تعلمون انه بمجرد فتح القاعدة واغلاقها  تتحدث وينقص حجمها .

وهي ان نضع هذا الكود .. مع كود اخذ نسخة احتياطية ....

بإنتظار توجيهاتكم وبالأخص الأستاذ ابو خليل صاحب الكود

بالتوفيق للجميع

[abdulmajid]

طيب اذا صار على القاعدة رقم سري

ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "aa.mdb", "", "", 1

 

وش التعديل بيكون حاااولت ما قدرت وين اضع الرقم السري

[abdulmajid]

للرفع

[ابوخليل]

حسب علمي  لا يوجد مكان لكلمة المرور داخل  ShellExecute 

الطريقة الوحيدة التي اراها ( قد تنجح وقد لا .. لاني لم اجرب ) ..  هي التحايل في نهاية الكود وبعد فتح القاعدة  نستخدم  sendkeys لارسال  كلمة المرور  ومرة اخرى ارسال مفتاح Enter

sendkeys "password"
sendkeys "{enter}"

 

[محمد أبوعبدالله]

في ٢٤‏/٧‏/٢٠٢١ at 02:43, abdulmajid said:

طيب اذا صار على القاعدة رقم سري

بالاضافة الى ما تفضل به استاذنا الجليل @ابوخليل  وله جزيل الشكر

تفضل اخي الكريم

ضع هذا الكود في موديول جديد

Public Sub Set_Pass(sDBName As String, soLdPass As String, Optional sNewPass As String = "")
    Dim db As DAO.Database
    On Error GoTo Err:
    Set db = OpenDatabase(sDBName, True, False, ";PWD=" & soLdPass)
    db.NewPassword soLdPass, sNewPass
    Exit Sub
Err:
    Resume Next
End Sub

وهذا الكود في زر امر

    Dim DB_Full_Name As String
    Dim DB_Pass As String

    DB_Pass = 777                          ' كلمة مرور قاعدة بيانات aa.mdb
    DB_Full_Name = CurrentProject.Path & "\" & "aa.mdb"

    Set_Pass DB_Full_Name, DB_Pass


    ShellExecute Me.hwnd, "open", DB_Full_Name, "", "", 1

تحياتي

[ابوخليل]

ما شاء الله 

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

جميل جدا تمرير  كلمة المرور قبل امر الفتح

يتبقى تجربة صاحب السؤال .. واتمنى دالة التمرير تعمل على runTime

[محمد أبوعبدالله]

منذ ساعه, ابوخليل said:

ما شاء الله 

جزاك الله خيرا استاذي الفاضل

تعلمنا منكم الكثير فجزاكم الله عنا كل خير

تحياتي

[abdulmajid]

انتم اساطير قسم بالله وحووش الف مليون شكر  نجحت الحمدلله والله كفو

تم تعديل يوليو 26, 2021 بواسطه abdulmajid