Foksh

أخي @jo_2010 بما أن موضوع الحدث عند رسم النموذج يسبب مشكلة لديك ، دعنا نتوجه إلى الحل التالي . وهو إضافة بسيطة الى الاستعلام مصدر النموذج الفرعي ليصبح كالتالي :- SELECT Switch([External_lab] Is Null,Null,[External_lab]="",Null,[External_lab]="المختبر","Almokh",[External_lab]="البرج","1_AL_Borg",True,Null) AS DisplayImage, * FROM [Qry_Analysis collection]; بدلاً من القديم :- SELECT [Qry_Analysis collection].* FROM [Qry_Analysis collection]; وطبعاً سنحدد مصدر عنصر الصورة التي تريدها ليصبح الحقل الجديد = DisplayImage وبالتالي النتيجة بدون ترميش وتعتمد على مصدر النموذج الفرعي نفسه . والنتيجة في المرفق . تم تغيير اسم عنصر الصورة من Image ( وهو اسم محجوز لآكسيس وهو غير صحيح ) الى الاسم ImageFoksh . ومن الجدير بالذكر والتوضيح أنني اعتمدت على اسم الصورة المضمنة في قاعدة البيانات نفسها . JO_Lab3.zip

الفكرة لا تحتوي على اي أمر Refresh فعلي ، ولكن الحدث هذا مقرون بإعادة رسم النموذج ، لذا تأثيره يكون وكأنه تحديث للنموذج. لكن ما لم افهمه هو لماذا لا تستخدم الحل الأول بدلاً من تكرار الصورة كالمختبر مثلاً أو البرج لكل سجل !!!!

تفضل الملف بعد التطبق :- JO_Lab2.zip

تقصد كده كمثال ؟؟

تقصد كده .. طبعاً انا مش ملخبط بإن المكان يكون في المربع الأسود اللي انت اخترته ، ولكني طبقت الفكرة على الصور الأصلية بدلاً من تكرار الصور مرتين للمختبر أو البرج .

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

العفو أخي الكريم ، وحمداً لله إنك توجهت الى سبيل الحل .

سأحاول تثبيت الإصدار 2021 وتجربة الأداة ، ما لم يكن لأحد من الأخوة تجربة يفيدنا بها بهذا الإصدار . شكراً لاهتمامك ومتابعتك

فعلاً هذه الدالة كانت من أحد مشاريعي ، وتعرفت عليها مسبقاً ولكني شككت في نفسي هل فعلاً قمت بمشاركته أم لا سابقاً 😅 .. على العموم ، الحل الذي أفكر به أن أجعل الدالة ترجع String بدل Long للمتغير maxID . بمعنى أنه لا تقوم بتحويل الرقم التسلسلي الناتج إلى CLng بعد دمج النصوص (مكونات الرقم التسلسلي ) ، بل احتفظ به كنص . وعليه فبعد التعديل وإزالة التنسيق يصبح الكود كالتالي :- Public Function GenerateID(TableName As String, fieldName As String) As String Dim currentYear As Integer Dim yearPrefix As String Dim maxID As String Dim serialPart As Long currentYear = Year(Date) yearPrefix = currentYear & "" maxID = Nz(DMax(fieldName, TableName, fieldName & " LIKE '" & yearPrefix & "*'"), yearPrefix & "00") serialPart = CLng(Mid(maxID, Len(yearPrefix) + 1)) GenerateID = yearPrefix & "0000" & (serialPart + 1) End Function جربه وأخبرنا بالنتيجة

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي .. فكرتي تتلخص بالعمل على حدث 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 يعتمد على Woed . فمن الطبيعي أن يعمل ، ولكن ما اصدار اوفيس لديك ؟؟

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

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

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

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

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