Foksh

وعليكم السلام ورحمة الله وبركاته ،، الشق الأول واضح ومفهوم ، لكن الشق الثاني غير مفهوم بالنسبة لي . حيث هل سيتم تعديل قيمة الحقل في الجدول الثاني لنفس رقم PCode ؟؟؟؟؟؟؟ حل الشق الأول ( والثاني غير متأكد منه ) مع تأكيد برسالة نعم أو لا :- Private Sub Almokh_Click() If MsgBox("تحديث المختبر ؟", vbYesNo + vbQuestion + vbMsgBoxRight, "") = vbYes Then CurrentDb.Execute "UPDATE Tbl_Lab_All SET External_lab = 'المختبر' WHERE PCode = " & Me.PCode & ";" CurrentDb.Execute "UPDATE Tbl_Lab_Requests SET R_External_lab = 'المختبر' WHERE Out_price > 0 AND Date_R = #" & Format(Me.DDate, "yyyy/mm/dd") & "#;" Me.Lab_Patient.Requery End If End Sub لتوضيح الشق الثاني ما لم يكن الحل صحيحاً ، نرجو التوضيح أكثر .

😊 ، اعتذر لعدم توضيحي المباشر لها طبعاً من باب التوضيح ، أن تأخير أو تقديم التاريخ في حالة الفترة التجريبية مهم لمتابعته وتدقيقه عند كل تشغيل ، لكن هذا لا يجب أن ينطبق عند التفعيل المفتوح . يعني لو العمل كان فترة تجريبية أو مفتوحة المدة ( بدون قيود ، كشهر أو ربع سنوي أو نصف سنوي ..... إلخ ) ، فإن هذا التدقيق يسقط وليس له قيمة ؛ لأنه في الأصل تم تفعيل العمل بشكل مفتوح التاريخ .

سهواً وعدم تركيز ، ولكن يستطيع فرض لون مربع نص الاسم كلون أحمر مثلاً ، وبالشرط يجعل اللون أسود 😅 ولكن هناك الصحيح ، وهناك الأصح منه. شكراً لمهندسنا انتباهه 😇

نسيت متابعتي معك ، واعتذر لكن هل جربت استبدال Date باسم مربع النص الذي يحتوي التاريخ الذي تريد إضافة يوم عليه ؟؟؟

وعليكم السلام ورحمة الله وبركاته.. في مربع نص الاسم اختر تنسيق شرطي ، واضف قاعدة جديدة ، واختر Expression Is ، ثم في قيمة الشرط اكتب مثلاً:- [Foksh] = "لا يوجد" انا افترضت هنا ان اسم مربع النص الذي تشترط قيمته = Foksh 😅 . ثم حدد اللون والتنسيق الذي تريده .

مثال على تقديم التاريخ والعودة الى التاريخ الصحيح

من التجارب التي قمت بها على الفكرة ، بخلاف التلاعب بقيمة حقول الجدول usystblEnDc . تقديم التاريخ يوم ، فانتهت الفترة التجريبية كما في الصورة :- وعند إعادة التاريخ الصحيح ، تم أعادة العمل على البرنامج دون أن يتأثر بحيث يفقد البرنامج حق استمرار العمل عليه .

كفكرة .. الاعتماد على حقل من نوع Yes/No بحيث يتم فحص قيمة هذا الحقل فقط . بمعنى اذا كانت قيمة الحقل = True فيتم السماح لتسجيل الدخول بدون قيود. والعكس احسب الفرق بين تاريخ اليوم و قيمة الحقل الذي اقترحته كقيمة تاريخ اول تشغيل . فإذا كان الفرق أصغر او يساوي 30 يوم على سبيل المثال (كمدة للنسخة التجريبية ) ، فاسمح بالدخول . والعكس أيضاً بحيث يتم عرض رسالة انتهت الفترة التجريبية.... إلخ. وأقترح أن يكون هذا الجدول في القاعدة الخلفية ، بحيث نمنع التلاعب بقيم الجدول وبأي اسلوب ( بما أن قاعدة بيانات الجداول محمية بكلمة مرور ) . فهنا عند الاشتراك ، لا داعي لفحص التاريخ ، فقط اجعل الحقل True 😅 .

المولّد هو نموذج يكون عند المطور في هذه الصورة :- أما في نسخة العميل الواحدة والوحيدة :- كلا ، العميل لديه نموذج الصورة الثانية فقط . وحسب الإتفاق بالمدة التي يرغب بتفعيلها أقوم أنا من خلال الصورة الأولى بتوليد مفتاح التفعيل له والمخصص لرقم معرف جهازه وبصمته .

هنا الأمر أيسر مما تتصور باعتقادي .. فمثلاً ، كان تطبيقي لهذه الفكرة بحيث كود واحد يقوم بمهمتين من خلال تمييز قيمة واحدة بين كود التفعيل وكود التجديد أو حتى لو تعددت الفروقات . فمثلاً ، انظر للتوضيح التالي في هذا الفيديو ، والذي سأعرض فيه التفعيل مع التمديد لـ 5 أنواع اشتراك :- طبعاً هذه النسخة الأولى للتفعيل بدون الانترنت .

هل تذكر هذه العبارة :- لا تستسلم وتقف عند هذه النقطة من أول تعثر .. نتابع معك ومستمرين بالتجارب حتى تصل إلى هدفك .. وهذا رقم النسخة في جهاز العمل :- 54611510

شكراً لك على مشاركتنا تجربتك 💐

تمام .. سأجربه حال وصولي الى البيت . لأن النسخة التي ارفقت صورتها لجهازي في البيت

الأفضل في هذه الحالة ولضمان عدم تبعثر نسخة مولد أكواد التفعيل ، أن تكون جميعها في نموذج واحد بحيث يتم تمرير مفتاح التشفير وتوليد كود التفعيل حسب مفتاح التشفير ، وهذا مثال للفكرة :- حيث في الجزء 1 :- يتم اختيار اسم المشروع فقط . في الجزء 2 :- اختيار مدة التفعيل . في الجزء 3 :- بصمة أو معرف العميل . في الجزء 4 :- رمز التفعيل الخاص بالبرنامج وبرمز العميل . * طبعاً هذا على افتراض أن اسلوب التشفير ثابت عند المبرمج ، ولكن كلمة أو مفتاح التشفير في المختلف .

النسخة 64 وعند تعديل قيمة الجداول ، تظهر الرسالة

ما لقيت يافطة ممنوع مؤكد لا شك في أن الكثير من الحمايات بالنسخة الغير مفعلة لا تعتمد على الوقت ، فتعتبره غير موجود بغض النظر عن وقت تشغيل البرنامج .

النتيجة عندما تم فتح النموذج لأول مرة ، كان التاريخ 10-12-2025 وبعد النقر على الزر ، تحدث الليبل إلى تاريخ اليوم كما في الصورة :-

بعد الاطلاع على الملف المرفق المفتوح ، اعتقد أن اعتماد التاريخ والوقت كقيمة نصية هو ما يسبب هذه المشكلة .. فعند تعديل الدالة في المديول بهذا الشكل للتجربة .. Public Function vNow() As Date Dim currentTime As Date, currentdate As Date currentTime = Time() currentdate = Date vNow = currentdate + TimeValue(Format(currentTime, "hh:nn:ss")) End Function كانت النتيجة في النموذج :- السبب هو أن هذا الناتج سيكون عبارة عن نص كقيمة = 12/01/2025 14:33:20 اقصد انه ناتج عن الجزء التالي :- i = Format(currentTime, "HH:mm:ss") ii = Format(currentdate, "dd/mm/yyyy") vNow = ii & " " & i

اعتذر عن التأخر بالرد ، ولكن بسبب المباراة انشغلت مع بعض الزبائن في المحل على العموم ، أخشى أن اعطي نفسي كرت أصفر من التجارب حالياً ، لأن النتيجة غير سارة 😅 .. انظر

عندي نسختين أوفيس على كمبيوتري ، واحدة 2010 = 32 والثانية 2019 = 64

مستحي أعلّق 😇

لا اعلم صدقاً ..