Foksh

نكهتي ، وأنت أستاذ الطباخين !!!

شكراً لك معلمي الفاضل 🤗.. إن شاء الله جاري العمل على التنفيذ بحيث يتم الإخراج من خلال تقرير، ولكن بعد الإنتهاء من بعض التعديلات بحيث سيتم اسناد جدول او استعلام كمصدر سجلات للتقرير ، مع ضم مربعات النص الي حقول بدلاً من الإدخال اليدوي للبيانات المتغيرة مثل الاسم او الدرحة ..... الخ . مع إتاحة التصدير كملف PDF طبعاً . وغيرها من الإضافات 😇 .

مشكلتك تنحصر في أن الأنتي فايروس يقرأ الـ VBA على أنها برمجة خبيثة ، وبالتالي يقوم بإيقاف تشغيل أي أكواد . ولو لاحظت أنك ستفقد كامل الأكواد ، وسيتم مسحها اذا نقرت على موافق .

هذا من طيب أصلك ،، 💐 .

جهازي الحالي عليه ويندوز 10 - 64 بت - أوفيس 2019 / 64 و أوفيس 2010 / 32 بت ، ولم تظهر عندي اي مشاكل

لا علاقة للويندوز أو الأوفيس أخي وصديقي العزيز .. فقط تأكد من مسار مربع النص في الاستعلام الذي اقترحته ، وهو نسخة من الاستعلام SQL الموجود في الملف المرفق .

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

انقر على الملف بالماوس زر يمين ، واختر خصائص ، ثم فك الحظر او حمل هذا الملف وفك الضغط عنه هتلاقي ملف ريجيستري اضغط عليه دبل كليك واختر yes ثم ok اي ملفات هتحملها بعد كده مش هتحتاج تعمل فك الحظر Disable_blocking_of_downloaded_files.zip وكل الشكر لأخي الأستاذ @حسونة حسين ، على مشاركتي الملف لإرفاقه ومشاركته

وعليكم السلام ورحمة الله وبركاته .. جرب في زر فتح التقرير الحدث التالي :- DoCmd.OpenReport "تقرير تصفية", acViewPreview, , _ "[اسم_المستفيد] Like '*" & Forms!Index!s & "*' " & _ "OR [رقم/اسم المبنى] Like '*" & Forms!Index!s & "*' " & _ "OR [الادارة] Like '*" & Forms!Index!s & "*'" 100.zip

وعليكم السلام ورحمة الله وبركاته ،، الشق الأول واضح ومفهوم ، لكن الشق الثاني غير مفهوم بالنسبة لي . حيث هل سيتم تعديل قيمة الحقل في الجدول الثاني لنفس رقم 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

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

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