محمد ايمن

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

اخي الكريم يجب ان تحذف كافة نسخ الاوفيس من الجهاز ثم تقوم بتنصيب اكسسز accessruntime و بعدها تقوم بالتجريب ولك جزيل الشكر سلفا

السلام عليكم و رحمة الله اخواني الاكارم المرفقات تحتوي على قاعدتين حيث تقوم القاعدة الاولى بفتح القاعدة الثانية ولكن هناك مشكلة عند استخدام اكسسز 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 لا تظهر برنامج الكيماويات_3.rar

هل من جديد ؟؟؟

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

بارك الله فيك اخي نارت بصراحة ما يحيرني هو تضارب النتائج عندي و عندك ساستخدم كلمة صح و خطا لشرح الفروق يتم إنشاء إختصار لسطح المكتب (للنسخة الأساسية) ( صح ) يتم طلب تسمية النسخة المراد إنشاؤها ( صح ) يتم إنشاء نسخة من التطبيق على القرص C ( صح ) يتم إهمال الإسم الجديد الذي يتم كتابته ( خطا ) النسخة على القرص C للقراءة فقط ( خطا ) النسخة على القرص C جداولها ليست فارغة ( خطا ) وانا بانتظارك لعل و عسى ان يهدينا رب العالمين و اياك الى الطريق الصحيح

مشكور اخي الكريم اخي نارت الكود يقوم باستخراج الرقم التسلسلي الاصلي للفلاش ميموري وهو مشابة لهذا الكود On Error GoTo ssx Dim fso As Object Dim dc As Object Dim d As Object Dim xx, xxx As String Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc xx = d.DriveLetter Next xxx = fso.GetDrive(xx).serialnumber MsgBox (xxx), vbInformation, "استخراج رقم الفلاش ميموري" ssx: If Err.Number = 71 Then MsgBox "يرجى ادخال الفلاش ميموري", vbCritical + vbOKOnly, "استخراج رقم الفلاش ميموري" End If ولكن الفرق بي الكودين هو ان الكود الاول يعطيك رقم لا يتغير عند اجراء فورمات للفلاش ميموري اما الكود الثاني الثاني فيعطيك رقم يتغير عند كل عملية فورمات وجزيل الشكر سلفا لكل اخوتي

والله يا اخي يعجز لساني عن شكرك و اتمنى من الله عز وجل ان يجزيك الجنة

جزاك الله كل خير ووفقك الى ما يجبه و يرضاه

لا اخي الكريم ما اقصده هو كيف استطيع اظهار مربع حوار اعداد الصفحة في حالة تشغيل البرنامج بشكل عادي ( نقرتين على البرنامج ) لان مربع الحوار لا يظهر

اصدقائي الاعزاء هل يمكن تحويل كود من لغة vb.net الى vba vb.net.txt

اخواني الكرام ما اريده هو عند ادخال المستخدم كلمة passwordfortrial ان تسجل داخل الجدول طبعا الجدول غير مرتبط بالنموذج update.rar

عند تشغيل البرنامج بشكل عادي لا تظهر نافذة اعداد الصفحة ( نقرتين على البرنامج ) ولكن عند تشغيل البرنامج بواسطة زر الشفت تظهر النافذة ( ضغط زر الشفت ثم تشغيل النموذج ) المرفق يوضح اكثر pageset.rar

اخي ابو خليل جزاك الله كل خير وتقبل مني هذا التعديل البسيط Backup_tables44.rar

سلمت يداك و جزاك الله كل خير جاري التجربة ..................

!!!!!!!!!!!!!!!!!

حرف واحد يقلب الموازين رأسا على عقب ارجو من الاخوة التجربة و موافاتي بالنتائج البرنامج التالي يقوم بانشاء قاعدة بيانات جديدة ولكن بجداول فارغة الاختلاف كان بين path و patch test2.rar

:signthankspin: :fff: :fff:

:welcomeani:

نجحت ولكن لدي مشكلة صغيرة مثلا اسم قاعدة البيانات db1 يظهر الاسم db1.mdb 3-26-2012-6-16-33 كيف اتخلص من (.mdb) db2.rar

تفضل وهذا هو طلبك db121.rar

اخواني الكرام المرفق التالي يقوم بانشاء نسخة مماثلة عن قاعدة البيانات ولكن اريد اضافة التاريخ الى اسم النسخة db1.rar

تفضل اخي الكريم ولكن يجب الانتباه الى ان الرقم السري يجب ان يعدل في الكود ايضا db12.rar