Foksh

تفضل الملف بعد التطبق :- 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 يعتمد على Word . فمن الطبيعي أن يعمل ، ولكن ما اصدار اوفيس لديك ؟؟

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

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

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

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

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

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

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