كل الانشطه

السلام عليكم 🙂 بالاضافة الى كود اخوي ابو جودي ، اليك طريقة اخرى ، استعلام فرعي، والمفروض يكون اسرع في التنفيذ. في استعلام مصدر بيانات نموذجك، اعمل حقل جديد، ولنسميه 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

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

في هده الحالة سيتم الاستغناء عن عناصر label وتعويضها بالصور ضع الكود التالي في Module Option Explicit Public IM() As New Classe1 Sub USF() Dim c As Control, n% With UserForm7 For Each c In .Controls If TypeName(c) = "Image" Then ReDim Preserve IM(n) Set IM(n).IM = c n = n + 1 End If Next End With End Sub وفي Classe Module Option Explicit Public WithEvents IM As MSForms.Image Private Sub IM_Click() Dim c As Control For Each c In IM.Parent.Parent.Controls If TypeName(c) = "Frame" Then c.BackColor = RGB(255, 255, 255) Next 'Yellow IM.Parent.BackColor = RGB(255, 255, 0) 'Red..........= RGB(255,0,0) End Sub مع تعديل الاكواد التالية بعد حدف عناصر label Private Sub UserForm_Initialize() For c = 1 To 4 Me("Image" & c).Visible = False Next End Sub '*********************** Private Sub UserForm_Activate() Call USF With Me .startUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With End Sub ملاحظة Private Sub Workbook_Open() 'تم تعطيل الكود ليتمكن الجميع من الاستفادة Application.DisplayAlerts = False Application.Visible = False 'If Date >= DateValue("15/06/2024") Or Sheets("names").Range("zz1") = "eta" Then 'Sheets("names").Range("zz1") = "eta" 'MsgBox "call me 00201113135517" 'ThisWorkbook.Save 'Application.Quit 'Else UserForm7.Show 'End If End Sub 2.xlsb

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

تفضل استاذ @jo_2010 المرفق بعد التعديل . DDAdd&DeletePDF.LAST.rar

======================================= تحميل App_IMG_BooK V1.part1.rar App_IMG_BooK V1.part2.rar App_IMG_BooK V1.part3.rar

😂😇 استاذي @ابو جودي ❤️🌹🌹 الرعد قبل يوم العيد 😂 !تم انتهاء من بعض التعديلات يعني كامل ❤️🌹 1- اضافة مكتبة مع التحديث 2- اضافة تحديد الوسائط الصور او الكل 3- عرض مكتبة من غير حمل مع التصحيح والمكتبة صور 4-تحرير والحذف الصور من المكتبة المحدد 5-اضافة تحريك اكشن ما يوقف الا بعد ضغط على زر العرض والايقاف

اضافة نموذج فرعي آخر خطأ .. وايضا العلاقات الزائدة ليس لها داعي . لست بحاجة لادراج العميل في التفاصيل لأنه سوف يظهر عند الطلب العميل / المخزن / نوع العملية / تاريخ العملية .. كل هذه لا نكررها في التفاصيل والا لماذا نضع رأس فاتورة ؟؟ يسمح فقط بتكرار كود العملية لأنه هو الرابط بين الجدولين ايضا التاريخ الموجود في التفاصيل يجب الا يظهر لأن هذا الحقل خاص بالسجل والحماية .. ويمكننا اضافة يوزر المستخدم معه ايضا التاريخ المعتمد في التصفية هو التاريخ الموجود في رأس الفاتورة اما رصيد الاصناف فهو ظاهر امامك في الصورة .. فقط استعلام يعرض الاصناف ( مجاميع الداخل - مجاميع الخارج ) ................. ما دمت ستعمل على رأيك ورغبتك .. فلن تستفيد كنت توقعت منك ان تعمل نماذج للجداول الخدمية .. ثم تدخل بيانات وافية كافية في مذكرات الوارد والصادر .. حتى تكتشف اذا هناك مشكلات او معوقات

حتي الان هذه التحديثات لا علاقة لها بالبحث فحتي نعتمدها في البحث يجب ان نطمئن ان جميع الكتب قد تم استخراجها بالفعل فاذا كان جدول أسماء الكتب به جميع أسماء الكتب فيمكن بعد استخراج الكتب من النص ان نعتمد البحث داخل العمود الجديد

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

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

جزاك الله خيرا أخي الكريم وهنا عندي استفسار .. هل هذه التحديثات الأخيرة تعمل أيضا في المجموعة الأولى: الكتب التي تستخدم أرقام الأحاديث ؟ أم أنه خاصة بكتب الصفحات ؟

بدل في رقم الإزاحة (2) واجعله 0 Cells(.Row, .Column + 2) = NewValue

1.xlsb1.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

فى انتظار ردكم

هل تقصد انك قمت باستبدال عناصر label بالصور ارفق ملفك مع الصور المرغوب اظافتها مع تحديد مكان تواجدها لنتمكن من تعديل الكود بما يتناسب مع الوضع الحالي

شكرا استاذ محمد على تفاعلك و شرحك اضقت صور بدل الكتابة .. لكن اختفى بعض الايقونات خلف بعض كما في الصورة ..