Foksh

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي .. فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل . قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :- Private Sub تفصيل_Paint() If IsNull(Me.External_lab) Or Me.External_lab = "" Then Me.FokshTxT.BackStyle = 1 Me.FokshTxT.BackColor = RGB(255, 230, 250) Else Me.FokshTxT.BackStyle = 0 End If End Sub حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :- وملفك بعد التعديل :- JO_Lab.zip

وعليكم السلام ورحمة الله وبركاته .. جرب هذا التعديل أخل الكريم .. DCOUNT.zip

هذه تجربتي المباشرة على الإصدار الحديث Version 2.3000.1031261430.258708 . أحدث من إصدارك حتى ، مع العلم أن إصدارك تمت التجربة عليه سابقاً ( التطبيق موجود ضمن المشاركات ) .. انظر هذا التصوير :-

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

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

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

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

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

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

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

تم تعديل الملف المرفق 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 باسم مربع النص الذي يحتوي التاريخ الذي تريد إضافة يوم عليه ؟؟؟