كل الانشطه

هذه التقطة هي بسيطة استاذ نقصد بيها اذا كانت مطلقة قبل وفاة طليقها تختفي اسم ولقب المتوفي وتاريخ وفاته هذا المطلوب

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

وعليكم السلام ورحمة الله تعالى وبركاته ضع هدا في حدث ورقة المعلمين Option Explicit Private Const ShName As String = "معلمين" Private Sub Worksheet_Calculate() Static tmps As Boolean If tmps Then Exit Sub tmps = True If Not IsEmpty(Me.[D5].Value) Then Call Coloring_Classes tmps = False End Sub Sub Coloring_Classes() Dim Sh As Worksheet: Set Sh = ThisWorkbook.Sheets(ShName) Dim Search As String, ColNames As Range, Rng As Long Dim OnRng As Range, tmp As Variant, r As Long, c As Long, a() As Long On Error GoTo EndClear On Error Resume Next Application.ScreenUpdating = False: Application.EnableEvents = False Search = Sh.Range("D5").Value Set ColNames = Sh.Range("Q2:Q" & Sh.Cells(Sh.Rows.Count, "Q").End(xlUp).Row).Find(Search, LookIn:=xlValues, LookAt:=xlWhole) If Not ColNames Is Nothing Then Rng = ColNames.Offset(0, 1).Interior.Color Set OnRng = Sh.Range("C7:I11"): tmp = OnRng.Value ReDim a(1 To UBound(tmp, 1), 1 To UBound(tmp, 2)) For r = 1 To UBound(tmp, 1) For c = 1 To UBound(tmp, 2) If Len(tmp(r, c)) > 0 Then a(r, c) = Rng Next c Next r OnRng.Interior.Color = xlNone For r = 1 To UBound(a, 1) For c = 1 To UBound(a, 2) If a(r, c) <> 0 Then OnRng.Cells(r, c).Interior.Color = a(r, c) Next c Next r Else MsgBox Search & " " & "غير موجود", vbExclamation End If EndClear: Application.ScreenUpdating = True: Application.EnableEvents = True End Sub جدول التفريغ V2.xlsm

اين الردود من الاستاذه الأجلاء ؟؟؟؟؟؟؟؟؟

كلّ الشكر والعرفان للأستاذ عبدالله بشير عبدالله، على جهوده المتميزة وعطائه الثري، فجزاه الله خير الجزاء كلّ الشكر والعرفان للأستاذ hegazee، على جهوده المتميزة وعطائه الثري، فجزاه الله خير الجزاء، هل الملف الاخير بينفع علي جوجل شيت

السلام عليكم استاذ @ابوخليل انظر للملف عملت النماذج مباشرة على الجداول تعرف انه في اخطاء ولا ربط ولا استعلامات تحياتي Invoices.accdb

عادي استاذي لكان عندك طريقة اخرى احسن توكل على الله

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

سؤالي لك أخي طاهر .. هل شرط التقيد بتصميم التقرير واجب ، أم تريد أن أجد طريقة أخرى أبسط وأوفر دون الحاجة لوجود خط على النص الغير متوافق مع الحالة !!! فهمت مقصدي ؟؟

للرقع

اذا نفذت ارفع العمل

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

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

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

طيب استاذ لدينا 03 حالات في "عدم إعادة الزواج(3)" 01- عند وفاة الزوج : يكتب كمايلي *- لم تتزوج منذ وفاة زوجها السيد (6) : علي بن عزة المتوفي بتاريخ : 12/01/2022 وتظهر جميع الخطوط k1 الى غاية k7 بإستثناء k3 تختفي 02- حالة طلاق الزوجة : يكتب كمايلي *- لم تتزوج منذ طلاقها من زوجها السيد (7) : صالح بن عتوس بتاريخ : 17/06/1997 وتظهر جميع الخطوط k1 الى غاية k7 بإستثناء k4 تختفي 03- حالة طلاق الزوجة قبل وفاة الطليق : يكتب كمايلي *- لم تتزوج منذ طلاقها من زوجها السيد (7) : قسومة نور الدين بتاريخ : 26/02/1998 وتظهر جميع الخطوط k1 الى غاية k7 بإستثناء k4 تختفي فتح تقرير FACE14.zip

السلام عليكم آسف للازعاج بس والله لسه موفاهم طريقة الاستاذ @ابوخليل اريد ان اعملها بنفسي الجداول والحقول باللغة العربية ثم انا اعكسها للعة الانكليزية لافهم الموضوع اكثر المطلوب: - عدد الجداول - اسماء الجداول - اسماء الحقول - طريقة الربط

يبدو ان المشكلة مسح كل الأحداث بما فيهم الوحدات النمطية

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

تلخيص جميل جدا .. 🙂 رزقك الله بنوته جميلة .. 👩 .. تتربى في عزك على الطاعة .. 🌷

مرفق جزء من أحد المشاريع السابقة ، لفاتورة البيع والشراء مع المستلزمات ،، تم حذف أجزاء كثيرة من المشروع وأكواد واستعلامات ليس لها علاقة بالمطلوب ,, New DB.accdb

بارك الله فيك وزادك الله من فضله وعود حميدا .... نورت المنتدى

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

هل اطلعت على المرفق الأخير ؟ هذه الجداول هي الاساسية التي يدور عليها العمل .. وبالتحديد 3 منها فقط رأس الفاتورة / التفاصيل / المدفوعات البقية تعتبر جداول ثابتة خدمية ان احتجت لجداول خدمية اخرى سوف تأتي لا حقا .. لا مشكلة ولن يتأثر عملك

ارفق القاعدة

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