نضال قام بنشر يوليو 7, 2006 قام بنشر يوليو 7, 2006 السلام عليكم يا اخوان .. لي استفسار .... كيف اجعل البرنامج لا يقبل الفتح او التشغيل بعد 15 يوم من فتحه لاول مرة !!! اتمنى ان تدلوني لفكرة لعمل ذلك ..... شاكر تواصلكم معنا .... بارك الله فيكم ........
منذر عساج قام بنشر يوليو 8, 2006 قام بنشر يوليو 8, 2006 الاخ الكريم شاهد الروابط التالية نسخة تجريبية 1 نسخة تجريبية2 نسخة تجريبية3
نضال قام بنشر يوليو 13, 2006 الكاتب قام بنشر يوليو 13, 2006 (معدل) شكرا اخي الكريم .... لقد وجدت الكود التالي ، وهو اسهلها على الاطلاق ... ولكن هلك ان تخبرني اين اكتب الكود ... !!1 في أي حدث بالضبط ... ؟ ولك جزيل شكري .... Dim mm mm = DCount("[اسم الحقل]", "[اسم الجدول]") If mm > 10 Then MsgBox (" هذا النسخة تجريبية لا يمكنها تعبئة أكثر من 10 سجلات ... راجع المبرمج ") Docmd.quit End If تم تعديل فبراير 28, 2007 بواسطه التقني
منذر عساج قام بنشر يوليو 13, 2006 قام بنشر يوليو 13, 2006 الاخ الكريم يمكن أن تضع الكود في حدث عند التحميل اذا كنت تريد ان يجري العملية في المرة التالية لفتح البرنامج وبعد الوصول الى السجل العاشر . أو في حدث بعد التحديث للنموذج اذا كنت تريد ان يخبرك فور الوصول الى الرقم 10
نضال قام بنشر يوليو 13, 2006 الكاتب قام بنشر يوليو 13, 2006 اشكر تواصلك استاذي الفاضل ... لقد عانيت مشكلة فيما يبدو في عمل ذلك .... ارفق لك الملف ... اتمنى ان تتفقده وتخطرني اين اخطأت ..... وانا في الانتظار بارك الله فيك ............. _______.rar
rudwan قام بنشر يوليو 15, 2006 قام بنشر يوليو 15, 2006 هذا تعديل على الكود , لكن طبعا يحتاج الى تتمة و هي : -اخفاء هذا النموج لأنه لايفترض أن يظهر للمستخدم -الغاء القائمة الخاصة بالأكسس - الغاء امكانية استخدام الشفت Open.rar
نضال قام بنشر يوليو 16, 2006 الكاتب قام بنشر يوليو 16, 2006 شكرا استاذي الفاضل سأقوم بتجربة البرنامج .... واخطرك بالملاحظات........ دمت محبا .........
inas aly قام بنشر يوليو 17, 2006 قام بنشر يوليو 17, 2006 رضوان بعد التحية بدل ماتفتح -(الجنة )- برنامج نتعلم منه تقوم تقفل .. بعد 15 يوم تقفل البرنامج ليه.. ليه سامحك الله
rudwan قام بنشر يوليو 17, 2006 قام بنشر يوليو 17, 2006 هذا هو المطلوب من سؤال الأخ نضال لي استفسار .... كيف اجعل البرنامج لا يقبل الفتح او التشغيل بعد 15 يوم من فتحه لاول مرة !!!
نضال قام بنشر يوليو 17, 2006 الكاتب قام بنشر يوليو 17, 2006 الاخ inas aly .......... بعد التحية .... استغرب موقفك من الاستاذ رضوان ... !!! انت تطلب الفائدة .. أليس صحيحا ؟ اذن سيأتي يوما وتصبح مصمما محترفا وتحتاج لمثل هذا الملف ... وخصوصا عندما تصمم برنامجا وتجده عند غيرك باسمه وحقوق التصميم مسجله بإسمه .... استاذي رضوان ..... لك كل الشكر والتقدير ... بارك الله فيك ... ولكن لي طلب بسيط : هل من الممكن ان تفسر لي الكود سطرا سطرا ؟ لاني لم افهم بعض الجمل ! كما اتمنى ان تفيدني في كود غير مرتبط بعدد الايام وانما بعدد السجلات المحررة ... كما في الاعلى ولك جزيل الشكر ... والعرفان .. انا في الانتظار .........
rudwan قام بنشر يوليو 18, 2006 قام بنشر يوليو 18, 2006 الفكرة تقوم على اضافة حقل تاريخ الى الجدول zzz عندما يتم فتح البرنامج لأول مرة يتم تعبئة تاريخ الفتح في هذا الحقل , و هذا مايقوم به الكود If IsNull(DFirst("ndate", "zzz")) Then الذي يتأكد من أن حقل التاريخ فارغ , أي هذه أول مرة يتم فيها فتح البرنامج , لذلك قم بتعبئة حقل التاريخ بتاريخ اليوم Me.NDate = Now() اذا كان حقل التاريخ فيه قيمة , اي تم فتح البرنامج من قبل , يتم المقارنة بين مدة الفتح لأول مرة و تاريخ اليوم If DateDiff("d", NDate, Now()) > 15 Then اذا كانت هذه المدة أكثر من 15 يوما يتم غلق البرنامج اذا كنت تريد المعيار عدد السجلات اذا تجاوز رقما معينا يتم غلق البرنامج يمكن تعديل الكود كا يلي , If Nz(DCount("ndate", "zzz"), 0) > 100 Then MsgBox ("Validity Expired") DoCmd.Quit End If مع أنك المفروض أن تستخدم جدولا آخر غير هذا الجدول لأن هذاالجدول فيه سجل واحد فقط , عدل اسم الجدول الى اسم الجدول الرئيسي
نضال قام بنشر يوليو 18, 2006 الكاتب قام بنشر يوليو 18, 2006 ماشاء الله عليك استاذي بارك الله فيك .... شكرا على جهودك ...
saher1975 قام بنشر يوليو 24, 2006 قام بنشر يوليو 24, 2006 اخي نضال مشكلة هذه الطريقة أنها سهل فكها . فأي واحد عنده بعض الفنيات يستطيع العثور على التاريخ وتغيره وتبقى أفضل طريقة للحماية هي طريقة عدد السجلات .
الردود الموصى بها