Foksh

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

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

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

نرجو من الأساتذة والأخوة الموهوبين القائمين على مد يد العون في مساعدة اخوتهم في مواضيعهم . أن يقوموا بضغط الملفات باستخدام أي برنامج ضغط مثل Winrar,WinZip,7Z ، عند ارفاقها في ردودهم. السبب ما يدفع البعض من الاخوة الأعضاء الى فك قفل الملف عند تحميله من المشاركات ، اذا لم يكن مضغوطاً . انقر على الملف بالماوس زر يمين ، واختر خصائص ، ثم فك الحظر

وعليكم السلام ورحمة الله وبركاته .. جرب في زر فتح التقرير الحدث التالي :- 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 😅 .

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