Foksh

⏳ باقي من الوقت : 2 يوم حتى نهاية التحدى الثاني وللأسف نفتقر إلى المشاركات الإبداعية

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

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

اعتقد انك هنا تحاول الوصول الى قيمة عنصر موجود في النموذج ، وليس من خلال قيمة حقل داخل جدول. هل جربت كطريقة بسيطة استخدام Dlookup على سبيل المثال stDocName = "tbl_student1" & DLookup("Year_name", "tbl_basic")

فيما يتعلق بالطلب الأهم لديك ، أنصحك أولاً بضبط التنسيق للخلايا في العمود D كاملةً ، لتصبح :- ثم في الزر الذي انشأته انت في مشروعك ، استخدم الحدث التالي كمثال :- Private Sub CommandButton1_Click() Dim lastRow As Long Dim i As Long Dim diff As Double lastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = 8 To lastRow diff = Cells(i, "D").Value - Cells(i, "E").Value If diff < 0 Then Cells(i, "F").Value = 0 Else Cells(i, "F").Value = diff End If Next i End Sub جرب انقر على الزر وشوف النتيجة إن كانت صحيحة في الملف المرفق .. ثم ننتقل الى الطلب الثاني .. اغلاق الصفوف ذات الرصيد 0.xlsm

تم تعديل إختيار "تمت الإجابة" للمشاركة التي فيها الحل والمرفق.

سؤال فضولي .. هل من الممكن معرفة إصدار الأوفيس اللي تم حفظ ملف قاعدة البيانات من خلاله ؟؟ يعني آكسيس 2010 , 2016 , 365 ... الخ ؟؟؟؟ ولو بأي طريقة كانت 🤔 . ولو محتاجة توضيح للمقصود بشكل أفضل ، لنفترض إن حد بعتلي قاعدة بيانات من جهازه ( صممها وتكتكها وعمل كل اللي نفسه من برمجة فيها .... 😉 ) ، وانا عندي اوفيس 2010 أو ما عنديش ، المهم اني اعرف إن منشأ الملف هذا هو اوفيس كذا 🤔 .

هذه الجزئية مرهونة بإرفاقك الملف أخي الكريم 😉 . فالحلول كثيرة ولكنها تعتمد على بنيتك للجداول ونظامك بشكل عام ، وليس ما نفرضه عليك بمقترحاتنا 💐 .

شكراً لك ، ولكني لا أثق بالذكاء الإصطناعي ومقترحاته 😇 .

ليس بالضرورة إن كان الهدف الحصول على قيمة حقل محدد في آخر سجل ( شرط وجود حقل ترقيم مثلاً ) . ولكن إن كان ضمن شرط فعبارتك صحيحة 100% وهنا ممكن يستخدم حقل الترقيم كأساس على آخر قيمة . وممكن استعمال دالة بسيطة مثل :- Function GetLastValue(strField As String, strTable As String) As Variant Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strTable, dbOpenTable) rs.MoveLast GetLastValue = rs.Fields(strField).Value rs.Close End Function ويتم استدعائها في مربع نص غير منضم بتمرير اسم الجدول والحقل ، مثلاً :- =GetLastValue("رقم الوارد";"وارد")

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني وما زال البحث جاري عن مبتكرين وخلّاقي أفكار جديدة ، وليس أفكار نسخ ولصق ، وتعديل على أفكار موجودة

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

هههههههه انا قلت يمكن بعدل شي أو يضيف شي داخل الملف للتمييز بينهم 😛 إن شاء الله حال وصولي لنسبة ترضي غرور أفكاري 😁 ، لن أبخل عليكم بها

بعض ما عندكم يا أستاذنا الكبير .. أتمنى أن تكون قد غيرت به شيئاً مخفياً كي نميز بين المرفق السابق ، والتالي .. Mont_ProgressBar_NoPassword.zip بلا شك 👍 طبعاً المكتبات لا تعنيني نهائياً في فكرتي .. فأنا أقوم حالياً بجلب المكونات الى ملف ACCDB إصدارات حديثة = 2019 = نسخة الأوفيس التي لدي حالياً .. وبخصوص هذه النقطة ، جاري بناء مكتبة وخوارزمية كاملة ( مبنية على ملف VBA7.Dll ) تم كسر حمايته من إصدار أوفيس 2019

أستاذ @منتصر الانسي ، هذه تجربتي على استخراج النماذج بتصاميمها حرفياً ( دون أكواد VBA ) حالياً في المرحلة الأولى .. Montaser.accdb