AbuuAhmed

الحل بالكود توزيع الايام مع الشهور_01.xlsm

وعليكم السلام ورحمة الله وبركاته سؤالك ومثالك غير واضحين ، ياريت تعيد رفع المثال بعد أن تضع مثالا للجواب وتبين كذلك أين يجب أن يكتب الجواب. أنا حاولت أفهم المطلوب ولم أستطع. في مثالك هل تريد أن الشهر يقسم لقسمين بغض النظر عن عدد الأيام لكل قسم ، يعني القسم الأول سوف يكون لكل الشهور 15 يوم أم االقسم الثاني ستكون مدته 13، 14،15 أو 16؟. أو يكون كل التوزيعات بمدة 15 يوم حتى نصل إلى تاريخ النهاية؟ بانتظار شرحك الموسع.

مع الإعتذار للزملاء الذين سبقوني جرب المرفق ، عما أن الكود موجود في النموذج الفرعي. تحديثات2_02.rar

كما العنوان وننصح دائما حفظ أرقام اللوحات باللغة الإنجليزي بالطول القصير أي بدون مسافة أي بطول 7 حروف فقط. تم فحصها بشكل سريع ، فربما يحتوي بعضها على اخفاقات. SaudiCarPlates_01.accdb

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

ما شاء الله ، هذا المثال به فكرة جديدة تماما بالنسبة لي ، مثال جامد ، شكرا لكم.

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

يبدو لم تتمكن من الوصول إلى نافذة Immediate آخر محاولاتي ، بدل آخر سطرين بالتالي: paath = Replace(Me.city.Column(2), """", "") xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

لا ، أحتاج قيمته استخدم هذا السطر Debug.print paath بعد السطر التي أتيت به وانسخ القيمة من نافذة Immediate Window

إذا الموضوع يخص أرقام لوحات السيارات بالسعودية ، فهذا كود من أحد برامجي القديمة. Function GetPlateNo(ByVal EngNo As String) As String Dim E, A E = Array("A", "B", "D", "E", "G", "H", "J", "K", "L", "N", "R", "S", "T", "U", "V", "X", "Z") A = Array("ا", "ب", "د", "ع", "ق", "هـ", "ي", "ك", "ل", "ن", "ر", "س", "ط", "و", "ي", "ص", "م") Dim L As Integer Dim S As Byte Dim ArbNo As String Dim LftNo As String If Len(EngNo) = 8 Then LftNo = Left(EngNo, 4) EngNo = Right(EngNo, 3) End If If Len(EngNo) <> 3 Then GetPlateNo = EngNo Exit Function End If For L = 3 To 1 Step -1 For S = 1 To 17 If Mid(EngNo, L, 1) = E(S - 1) Then ArbNo = ArbNo & " " & A(S - 1) Exit For End If Next S Next L GetPlateNo = Trim(LftNo & " " & ArbNo) End Function

ممكن تعطينا قيمة المتغير paath ؟

بدل السطر الأخير بهذا: xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

احتمال يوجد رمز غير مرئي فجرب تمسح العبارة وسطر قبله وسطر بعده ثم أعد كتابة العبارة من جديد.

جرب كذا DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = 4;" أو كذا DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = '4'" هذي آخر حلولي 🙂

أخي الثلاث حالات صحيحة يعني بالنقطة أو بعلامة التعجب أو بدون اسم الجدول الآن تحتاج تتأكد من نوع الحقل فإذا كان نصي سنجري عليه تعديل بسيط وإذا كان رقمي تحتاج تتأكد من المسميات اسم الجدول واسم الحقل. وإذا مانفع ربما "الأندر سكور" مسببة مشكلة وحلها وضغ الأسم بين أقواس مربعة [ ]

كتبت لك من حفظي ، سأفتح الأكسس وأجرب وأرجع لك ، واللي جاهز قبلي فليتفضل لا تنتظروني.

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

وجدتها بعد جهد جهيد ، هي في الـ Name Manager ، للتو تعرفت عليها وسأحاول فهما ، مع أني "قد" لا أحتاجها.

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

انهي النقاش ، ولا تعدل وتزيد في رسالتك التي تسبق ردي السابق. هذا يسمى تدليس.

وعليكم السلام ورحمة الله شاركت كمجيب والآن أشارك كسائل 🙂 الأخ @بن علية حاجي لفتني في الأكواد أسماء لم أعرف مصدرها وهي محاطة بالأقواس المربعة وكأنها أسماء حقول لجدول أو أسماء صناديق لنموذج أو تقرير ، فأين مصدر هذه الأسماء: a = [Total] Range("G" & [Lr_1] + [Lr_2] - 1) = "المجموع" Range("G" & [Lr_1] + [Lr_2]) = a

خطوة أولى ، افحص الملق وارجع لي بملاحظاتك. المجموع نتيجة البحث حسب تاريخ النهاية وتجاهل تاريخ البداية. وضعت لك الإجراء عن طريق زر البحث. OFFICENA 2024_02.xlsm

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

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