Foksh

وعليكم السلام ورحمة الله وبركاته.. شكراً لك للمتابعة اخي الكريم 🤗 ، وارجو منك تزويدي بصورة توضح إصدار تطبيق الواتس أب لديك. وسيتم تجربة ومتابعة المشكلة إن كان هناك تعارض بين التحديث الجديد والأكواد .

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

جرب هذا الملف بعد أخذ جميع الإحتمالات :- dcount.zip

مشاركة مع معلمي الفاضل ، ومن باب التوضيح ( ما لم أكن قد فهمت بشكل خاطئ ) ، اعتقد انه يجب تضمين شرط جديد للتعداد بحيث يخص رقم الحالة فقط ( حقل معرف ) على ما اعتقد

وعليكم السلام ورحمة الله وبركاته .. سجل واحد ، و طلب غير واضح . يرجى التوضيح أكثر

اللهم شفاء عاجل غير آجل لك ولوالدتك ، ادامها الله عليكم تاج ينير حياتكم . اللهم بعدد من سجد وشكر ، نسألك أن تشفي أخونا قاسمو والدته وكل مريض شفاءً لا يغادر سقماً ، وتعوضهم خيراً عن كل لحظة وجع وألم . اللهم رد كل مريض إلى أهله سالماً معافاً من كل أذى أو ضر 🤲🏻

تحويل الصور الى Pdf يعتمد على Woed . فمن الطبيعي أن يعمل ، ولكن ما اصدار اوفيس لديك ؟؟

تم تعديل الملف المرفق 32 ، للتجربة وأخبرني بالنتيجة Converter 32.zip

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

شكراً لك معلمي الفاضل 🤗.. إن شاء الله جاري العمل على التنفيذ بحيث يتم الإخراج من خلال تقرير، ولكن بعد الإنتهاء من بعض التعديلات بحيث سيتم اسناد جدول او استعلام كمصدر سجلات للتقرير ، مع ضم مربعات النص الي حقول بدلاً من الإدخال اليدوي للبيانات المتغيرة مثل الاسم او الدرحة ..... الخ . مع إتاحة التصدير كملف 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 . تقديم التاريخ يوم ، فانتهت الفترة التجريبية كما في الصورة :- وعند إعادة التاريخ الصحيح ، تم أعادة العمل على البرنامج دون أن يتأثر بحيث يفقد البرنامج حق استمرار العمل عليه .