كل الانشطه

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

اخواني الإعزاء بعد سلام الله عليكم ورحمته وبركاته وكل عام وأنتم طيبون عندي جدول درجات مواد الطلاب( عربي - انجليزي - دراسات - علوم ..... ) وبعض الطلاب غائب في امتحانات المواد فوضعت مكان درجته ( . ) وعملت استعلام للجدول لكي اجمع درجات كل طالب ( عربي + دراسات + علوم + انجليزي ) والناتج يطلع تمام ولكن الحقل اللي فيه صفر يطلع المجموع فارغ ايه السبب ؟؟

للتجربة OK filter-function-excel.xlsb

كل عام وانتم بخير السلام عليكم لو سمحتو ده برنامج انشاء يوزرات المشكله ان لو عملت نموزج جديد واستخدمت خدمه عنصر تحكم التنقل وعملت اضافه او استدعاء نموذج فرعى وبعد الانتهاء عملت عرض للنموذج علشان اجربه بعد ما املاء البيانات واضغط على انشاء بروح للجدول بلاقى فاضى البيانات مش بتروح للجدول مع العلم ان لو استخدمت النمذج لوحده بدون عنصر تحكم التنقل الدنيا بتبقى تمام مفيش مشاكل والبيانات بتروح على الجدول عادى ممكن كود او حل للمشكله ده وشكرا جزيلا

اين هو اخي اليوزرفورم الخاص بك ؟

فلاح.xlsx النطاق 500 موظف وبعثت مجموعة بيانات جديدة ممكن تشوفه لو تكرمت

وعليكم السلام ورحمة الله تعالى وبركاته يصعب الاشتغال على ملف فارغ لا يتضمن اي بيانات حاول اخي الكريم تصمييم الفورم الخاص بك اولا مع اظافة بعض البيانات الوهمية على الملف 1) مكان اظهار بيانات البحث هل على ليست بوكس او عناصر التيكست بوكس مثلا.......... 2) توضيح البيانات المرغوب طباعتها مع تحديد النطاق لا يمكن الاشتغال على التخمين

احتاج الى برنامج كامل يحتوي على فورم جاهز للطباعة و وفورم اخر لادخال البيانات بحيث عندما اكتب الاسم في خانة البحث تظهر كافة معلوماته اعرف ان طلبي كثير لكن املي بكم اكبر فلاح.xlsx

تفضل يا سيدي: مصدر بيانات النموذج (تستطيع حذف الاعمدة D_From و D_To) : . ونتيجة الاستعلام: . والنموذج اصبح: . جعفر نصيحة: عندك مشكلة في برنامجك ، فالافضل ان تستورد مائناته الى ملف جديد ، ثم عمل ضغط واصلاح عليه. Laboratory_2024.zip

لا مو Ezril ؟!!! هذا من تأثير البرق 😂 انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️ واكثر و @Moosak و Ezril و عبدالغفار و @Ahmos واجنبي 😇 الكل لهم الشكر والامتنان وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات شكله مرفقي شحنته مضروبة 😂 استاذي @ابو جودي ❤️🌹 هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم 😇 وكل سنة جديده من غير تنشيط + وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور واضافة دالة @Ahmos جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة ❤️🌹🌹

الخبراء الافاضل كل علم وانتم بخير لعادة الله عليكم هذة الايام المباركة بالخير والصحة اليكم مااريد فى الصورة واليكم مرفق للتعديل Laboratory_2024.accdb الخبير الفاضل jjafferr عيد سعيد كل عام وانتم بخير اليكم ماريد Laboratory_2024.accdb

هذا الكود يعمل للشهر الحالي والشهر السابق ، ولكني تذكرت بأن الشهر مكتوب عندك في حقل آخر ، لذا سنحتاج الى بيانات لتجربتها (عند شهر يناير (1) ، فنحتاج تصحيح الناتج) 🙂 مبدئيا جرب: A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()),[myMonth]-1,27)) And DateSerial(Year(Date()),[myMonth],26) حيث [myMonth] هو اسم حقل "كود الشهر". جعفر

وانتم في صحة وسلامة، والى الله اقرب 🙂

مش عارف ليه عندى احساس عميق @hanan_ms هو نفس العضو باسم Ezril نفس اسلوب العرض وتقريبا نفس اسلوب تقديم قواعد البيبانات بالتنسيق والافكار

يا هلا والله اشتقنا اذا حضر الماء بطل التيمم استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr كل عام وانتم بخير ادامك الله فوق رؤوسنا

السلام عليكم 🙂 بالاضافة الى كود اخوي ابو جودي ، اليك طريقة اخرى ، استعلام فرعي، والمفروض يكون اسرع في التنفيذ. في استعلام مصدر بيانات نموذجك، اعمل حقل جديد، ولنسميه A2، ويحتوي على هذا الكود: A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()), Month(Date())-1,27)) And DateSerial(Year(Date()),Month(Date()),26) يعني يكون الاستعلام هكذا: جعفر

1- الكود ده فى وخدة نمطية Function GetDateRange() As String Dim startDate As Date Dim endDate As Date Dim currentYear As Integer Dim currentMonth As Integer currentYear = Year(Date) currentMonth = Month(Date) ' Determine the start of the period (27th of the previous month) If currentMonth = 1 Then startDate = DateSerial(currentYear - 1, 12, 27) Else startDate = DateSerial(currentYear, currentMonth - 1, 27) End If ' Determine the end of the period (26th of the current month) endDate = DateSerial(currentYear, currentMonth, 26) GetDateRange = "# " & startDate & " # And # " & endDate & " #" End Function 2-في النموذج الذي يحتوي على مربع النص استخدم الكود الاتى في مصدر التحكم لمربع النص =DSum("[m_price]", "[Qry_UNION_MOKHTABER]", "date_R Between " & GetDateRange())

السادة الخبراء فى نموذج مستمر يحتوى على رقم الشهر واسمة اريد وضع مربع نص يقوم بالتجميع من يوم 27/الشهر السابق الى يوم 26 الشهر المقابل مثال كود الشهر اسم الشهر الاجمالى 2 فبراير حسيب التجميع من الجدول =DSum("[m_price]","[Qry_UNION_MOKHTABER]","date_R between #27/1/2024# and #26/2/2024#") اريد التعديل على الدالة حتى تتوافق مع باقى الشهور

عيد اضحى سعيد اعادة الله على كل شعوب العالم بالخير والسعادة والبهجة انطرالضورة يامعلمى الفاضل

شكر وتقدير واحترام من اخيك

شااااكر ومقدر تجاوبك و تعاونك اخي محمد وكل عام و انت بخير و صحة وسلامة سيتم مراجعتها و التاكد منها بعد العيد بمشيئة الله

كل عام وأنتم بخير احرص تضيف الكود في موديول الصفحة نفسها أفضل من إضافته في موديول عام، أو أن تختار الصفحة الهدف أولا قبل تشغيل الكود. عدل في السطر بأن تضغ بعد علامة = رقم آخر سطر في الصفحة بدلا من الأمر مثلا: lRow = 300

تستطيع ذلك من شاشة التصميم ،، لاحظ هناك عدة اشكال ضمنها خط مستقيم ومستطيل وغيره ، بإمكانك اضافة الشكل الذي تريده و التحكم به.

الف شكر اخى الكريم وكل عام وانتم بخير وصحة عندما اضفت الكود للبرنامج لدى توقف الكود هنا lRow = ActiveCell.SpecialCells(xlLastCell).Row

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