محمد ايمن قام بنشر أبريل 5, 2012 مشاركة قام بنشر أبريل 5, 2012 (معدل) السلام عليكم و رحمة الله اخواني الاكارم المرفقات تحتوي على قاعدتين حيث تقوم القاعدة الاولى بفتح القاعدة الثانية ولكن هناك مشكلة عند استخدام اكسسز 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 5, 2012 مشاركة قام بنشر أبريل 5, 2012 تمت التجربة المثال يعمل وسليم 100% رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر أبريل 5, 2012 الكاتب مشاركة قام بنشر أبريل 5, 2012 اخي الكريم يجب ان تحذف كافة نسخ الاوفيس من الجهاز ثم تقوم بتنصيب اكسسز accessruntime و بعدها تقوم بالتجريب ولك جزيل الشكر سلفا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 5, 2012 مشاركة قام بنشر أبريل 5, 2012 المفترض ما دمنا في هذه البيئة ان يكون لدى الواحد منا اكثر من جهاز بخصائص مختلفة في كل جهاز للتجارب والتطبيق رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر أبريل 5, 2012 الكاتب مشاركة قام بنشر أبريل 5, 2012 اخي الكريم جربت على ثلاثة اجهزة وكانت نفس المشكلة طبعا النظام كان ويندوز 7 و xp ولكن عند تنصيب الاوفيس بروفيشنال ( اكسسز فقط ) كانت المشكلة تحل رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر أبريل 8, 2012 الكاتب مشاركة قام بنشر أبريل 8, 2012 up رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 8, 2012 مشاركة قام بنشر أبريل 8, 2012 استبدل كودك السابق بهذا : 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 رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 :signthankspin: :signthankspin: :signthankspin: الكود شغال 100% وانا اجري عليه تعديل بحيث يختار اوفيس 2010 ثم 2007 ثم 2003 ( في حال توفر اكثر من نسخة ) رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أكتوبر 13, 2012 مشاركة قام بنشر أكتوبر 13, 2012 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر مارس 9, 2016 مشاركة قام بنشر مارس 9, 2016 جزاكم الله خير اخواني الكثير ينصح بعدم عمل ضغط واصلاح للقاعدة الخلفية ... هل من الممكن استخدام هذه الطريقة كبديل .... وهي ان نقوم بفتح القاعدة واغلاقها .. تعلمون انه بمجرد فتح القاعدة واغلاقها تتحدث وينقص حجمها . وهي ان نضع هذا الكود .. مع كود اخذ نسخة احتياطية .... بإنتظار توجيهاتكم وبالأخص الأستاذ ابو خليل صاحب الكود بالتوفيق للجميع رابط هذا التعليق شارك More sharing options...
abdulmajid قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 طيب اذا صار على القاعدة رقم سري ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "aa.mdb", "", "", 1 وش التعديل بيكون حاااولت ما قدرت وين اضع الرقم السري رابط هذا التعليق شارك More sharing options...
abdulmajid قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 للرفع رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 25, 2021 مشاركة قام بنشر يوليو 25, 2021 حسب علمي لا يوجد مكان لكلمة المرور داخل ShellExecute الطريقة الوحيدة التي اراها ( قد تنجح وقد لا .. لاني لم اجرب ) .. هي التحايل في نهاية الكود وبعد فتح القاعدة نستخدم sendkeys لارسال كلمة المرور ومرة اخرى ارسال مفتاح Enter sendkeys "password" sendkeys "{enter}" رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يوليو 26, 2021 أفضل إجابة مشاركة قام بنشر يوليو 26, 2021 في ٢٤/٧/٢٠٢١ 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 ما شاء الله نفخر استاذنا ابو عبدالله بأمثالك بيننا جميل جدا تمرير كلمة المرور قبل امر الفتح يتبقى تجربة صاحب السؤال .. واتمنى دالة التمرير تعمل على runTime رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 منذ ساعه, ابوخليل said: ما شاء الله جزاك الله خيرا استاذي الفاضل تعلمنا منكم الكثير فجزاكم الله عنا كل خير تحياتي رابط هذا التعليق شارك More sharing options...
abdulmajid قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 (معدل) انتم اساطير قسم بالله وحووش الف مليون شكر نجحت الحمدلله والله كفو تم تعديل يوليو 26, 2021 بواسطه abdulmajid رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان