نجوم المشاركات

السلام عليكم ,, اعتذر منكم جدا جدا على التاخير اخي @منتصر الانسي شكرا لك ولمشاركتك بارك الله بك وزادك علما ,, ولكن لم تنجح الفكره لانني بحاجه لجميع حقول الاستعلام في الجدول وليس فقط حق الرقم والتاريخ , عند اضافة باقي الحقول في استعلام الجدول الخاص بالنموذج لا يتم التنقل بين السجلات . اخي وصديقي الطيب @Foksh احسنت العمل تم بشكل جيد جدا مع العلم انه لازال في خانة المسميه ek الخاصه بالبحث امر Requery ولكن يعمل بشكل جيد , كل الاحترام والتقدير لك فوووكش ❤️

قمت بالبحث وتصفح مواضيع الحماية خاصة لتجديد التفعيل والاشتراك . بحيث تكون آمنة وقوية لحاجتي الحالية لذلك لم اجد الا موضوعا احترافيا واحدا لأستاذنا ومعلمنا الخبير @Foksh ولكنه يشترط استخدام الانترنت هنا فاجتهدت على نفسي لتحقيق الفكرة وبفضل من الله تمكنت من عمل منظومة تجمع بين منع النسخ الى اجهزة أخرى وايضا تفعيل الاشتراك لفترة محددة الفترة حسب حاجة العمل .. قد تكون نسخة تجريبية لمدة شهر او شهرين أو تكون نسخة دائمة سنوية يتم تجديدها كل سنة العناصر المعتمد عليها : 1- رقم العتاد ( هارد دسك او معالج او اللوحة الأم ) الذي من خلاله يتم اعداد رقم النسخة 2- دالتي توليد .. لـــ (منع النسخ) دالة ، و لـــ (فترة الاشتراك) دالة 3- جدول يحتوي على حقلين واحد يخص الفترة الزمنية للاشتراك والآخر لضبط التلاعب بتاريخ الجهاز 4- دالة تشفير .. لتشفير التواريخ في الجدول العمل متقن تماما خالي من الاخطاء المحتملة عندما يكتمل سوف أوافيكم بنسخة لمن يرغب في التجربة

هذا غير ممكن لأن ما تفعله الأداة هو إنشاء صورة وهمية وتعيينها كقيمة لخاصية الصورة Picture الخاصة بالنموذج

ما شاء الله فكرة جميلة جداً أستاذ منتصر ، وتضيف جمالاً للنماذج لمن يبحث عن التميز بألوان جميلة ومتدرجة لخلفية نماذجه . أحييك على هذه الأفكار .

وعليكم السلام ورحمة الله وبركاته .. بعد الإطلاع مرتين على الملف المرفق وطريقة عملك عليه ، جرب الحدثين التاليين في الأزرار .. Private Sub a1_Click() Dim curID As Long Dim nxt As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece + 1 Else curID = CLng(Me.ek) End If nxt = DMin("no_rece", "enar_dman", "no_rece > " & curID) If Not IsNull(nxt) Then Me.ek = nxt Me.Requery Else MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" End If End Sub Private Sub a2_Click() Dim curID As Long Dim prv As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece - 1 Else curID = CLng(Me.ek) End If prv = DMax("no_rece", "enar_dman", "no_rece < " & curID) If Not IsNull(prv) Then Me.ek = prv Me.Requery Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End Sub طبعاً قد تحتاج لزر "سجل جديد" إذا كان النموذج الحالي إدخال البيانات . وهذه الفكرة بدلاً من التكرار للحدثين في الزرين ،يمكن دمجهم في دالة واحدة والإستدعاء فقط من خلال الزرين يميز السابق والتالي :- Private Sub a1_Click() GoToRecord True End Sub Private Sub a2_Click() GoToRecord False End Sub Private Sub GoToRecord(isNext As Boolean) Dim curID As Long Dim newID As Variant Dim fld As String: fld = "no_rece" If Nz(Me.ek, "") = "" Then If isNext Then curID = Me(fld) + 1 Else curID = Me(fld) - 1 End If Else curID = CLng(Me.ek) End If If isNext Then newID = DMin(fld, "enar_dman", fld & " > " & curID) Else newID = DMax(fld, "enar_dman", fld & " < " & curID) End If If Not IsNull(newID) Then Me.ek = newID Me.Requery Else If isNext Then MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End If End Sub test.zip

الله ................... روعة ما شاء الله 😀👏 هل يمكن تطبيقها على مربع نص مثلا أو ليبل ؟

تم الاصلاح والتعديل جرب ووافني بالنتيجة ChkInOut_NetUp.rar

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب. ألق نظرة على الملف المرفق عبدالحي توزيع نسب (1).xlsx

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