ماجد القثمي

في الكود الخاص بس استخدمت Date في بعض الكودات ولكن تظهر لي رساله لا يمكن ايجاد هذا الاوبجكت او اللايبراري في هذا الجهاز؟؟؟؟؟؟؟

السلام عليكم عملت برنامج اكسل بالكود والماكرو وكان شغال ممتاز على جهازي حولت املف على جهاز ثاني يعمل بنظام 64 بت لكن البرنامج لا يعمل يعطيني رساله ان اللايبراري مفقود او الاوبجكت غير معروف بحثت في الريفرنس وجدت ان Missing Common Controls 6.0 (SP6) كيف استطيع تحميل هذه الخاصيه وكل الاشياء الاخرى الناقصه لاتمكن من تشغيل ملفي الذي يبدو انني قمت بعمله على نظام ويندوز 32 بت كيف اتغلب على هذه الاشكاليه بحيث يصبح برنامجي قابل للاستخدام على اي كمبيوتر وشكرا

السلام عليكم شكرا اخ حمادة على الرد وجزاك الله كل خير ماشالله حلول بخيارات كثيرة الحل المناسب لي كان هذا الكود واردت ان اعمل قليل من التغييرات عليه وهي بدل من ان يحذف الملف نفسه، ان يعطي رساله للمستخدم وبعدها عند الاغلاق يحفظ ويغلق الملف لكن واجهني خطاء في الكود كما هو موضح في الصورة المرفقة.. كذلك هل لك ان تشرح لي ما معني رقم 13 في الكود هذا السطر (If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False) ======================= كذلك عندي سوال اين يتم حفظ تاريخ اول تشغيل للبرنامج هل في ذاكرة البرنامج او كيف طريقه حفة للتاريخ سوال اخر لو سمحت: هل يتاثر كود البرنامج عند تغيير تاريخ الكمبيوتر يوم للخلف بحيث لا يصل ليوم 30 وتطول المدة للمستخدم؟؟؟ =================== حاولت وضع هذا الكود لكن لا يعمل Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If If Date > Evaluate("InitialDate") + 1 Then MsgBox ("Your trial period will finish within 2 days, contact the owner if you like the program (00000)"), vbExclamation, "" ElseIf Date > Evaluate("InitialDate") + 2 Then MsgBox ("Your trial period will finish within 1 days, contact the owner if you like the program (00000)"), vbExclamation, "" ElseIf Date > Evaluate("InitialDate") + 3 Then MsgBox ("Your trial period has finished, contact the owner if you like the program (00000)"), vbExclamation, "" End If ThisWorkbook.Save end sub

السلام عليكم ورحمة الله اخواني عندي فكرة لا ادري هل يمكن ان تطبق ،واطلب العون منكم لدي ملف اكسل به برنامج ادخال معلومات وبحث وتعديل خاص بمجال معين اريد ان اعرضه للبيع على مجموعه زبائن الطلب الاول: اريد ان اعطي الزبون امكانيه تجربه البرنامج لمدة 3 ايام مثلا من اول ما يفتح الملف ع كمبيوتره وبعد 3 ايام لا يفتح الملف ويعطي رساله(انتهت فترة التجربه اذا اردت شراء البرنامج تواصل مع المالك) الطلب الثاني: اريد كود لاغلاق البرنامج بعد سنه من اول تشغيل واعطاء رساله ان اشتراكك قد انتهى لتجديد الاشتراك تواصل مع المالك مثلا. ولو في امكانيه يعطي الزبون تنبيه قبل انتهاء اشتراكه باسبوع انه تبقى اسبوع على انتهاء الاشتراك اذا رغبت فالتجديد تواصل مع المالك هذه الفكرة اتمنى وصلت بطريقة مفهومه وشكرا

للرفع

للرفع

للرفع

للرفع

للرفع وشكرا

السلام عليكم استاذ محمد عندي سوال لو سمحت في حال اردت تغيير combobox2او الغاؤه بالمرة والاستغناء عن rowsouce الخاص به واردت استبداله ب textbox يتك ادخال قيمته عن طريق datepickبحيث بعد اختيار يوم من التقويم تصبح قيمة ال textbox تساوي التاريخ المختار وعلى اساسه تتغير بقيه الtextbox الاخرى بقيمة زائد واحد زائد اثنين وهكذا كما عملنا سابقا المف مرفق وبه التعديل لكن لم يعمل الكود بالشكل المطلوب appo.end.rar

نعم استاذ محمد شكرا على تجاوبك تم تعديل الكود بعد الاضافه التي اضفتها حضرتك جزيت خيرا..

استاذ احمد غندور شكرا جزيلا لتجاوبك يبدو اني لم اوفق في ايصال الفكرة, سوف اقوم بشرحها مجددا الكود الذي استخدمه في الملف المرفق يقوم بالبحث عن اقيمة موجودة في الكومبو بوكس ويتم اختيارها من الليست للبحث عنها. يوجد شيت بها بيانات تخص عدة (معامل) والكومبو بوكس الخاص بالبحث عن اسم المعمل في حال اخترت اسم معمل معين سوف يظهر البيانات الخاصة بهذا المعمل في ليست بوكس وكذلك البحث عن رقم الهاتف ونوع الحالة و و و (بقية الكومبو بوكسز) هذه هي فكرة البحث الحالية. ما اريده هو مثلا ان ابحث عن بيانات معمل محدد اذا كان القيمة في العمود( الحالة status) تساوي كلمة done مثلا او اذا كانت فارغه مثال للتوضيح ...شيت به اسماء اشخاص واعمارهم وجنسياتهم الكود الحالي يبحث عن اسم الاشخاص الذين اسمهم محمد واظهار معلوماتهم في ليست بوكس ,سوف يظهر كل من اسمهم محمد في النتيجه ما اريده هو اضافه شرط اخر مثال ابحث عن الاشخاص الذين اسمهم محمد اذا كان جنسيتهم يمني (وليس كل المحمدين كما في الكود الاول) واظهر الحالات في ليست بوكس هذه الفكرة التي اريد ان اغيرها في الكود وشكرا

للرفع للرفع

لسلام عليكم ورحمة الله وبركاته اخواني الاعزاء لدي طلب مساعده في ملف اكسل به يوزر فورم للبحث عن قيم معينه يقوم اليوزرفورم بالبحث عن قيمة (واحدة )معينه نقوم باختيارها من احد قوائم متعددةcombobox داخل الفورم واعطاء النتائج في ليست بوكس لكن الكود الذي استخدمه يدعم البحث عن متغير واحد فقط مثال ابحث في العمود A عن القيمة أ واظهر النتائج في ليست بوكس . المطلوب هو ان يتم البحث عن القيمة أ في عمود A وتحق]ق شرط اخر ان يقابلها في عمود C مثلا قيمة ب ثم اظهار النتائج في ليست بوكس . اي ابحث ولظهار النائج في ليست بوك اذا كان قيمة أ في عمود A ,و ب في عمود C الملف مرفق وبه اليوزر فورم الرقم السري 221 للدخول الىالفيجوال بيسك وشكرا test.rar

للرفع