كل الانشطه

تفضل يا أخي الفاضل أضفت الصف الثاني كله الصف الرابع والخامس والسادس 10 لكل صف وطبعا الأول والثالث كاملData8.rar أنا عملت زر لددرجة الفصل ( التحريري ) وزر أعمال السنة اللي حضرتك عملته

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

أخي @طاهر اوفيسنا ,, جرب هذا التعديل البسيط بعد ان تجاهلت ما كنت اعمل عليه سابقاً ,, فتح تقرير FACE14.zip عدلت عن السلوك السابق ، واتبعت سلوك جديد في التنفيذ ، جربه ان كان ناجحاً . فأنت أدرى مني بسلوك برنامج وآلية العمل عليه .

استاذ @محمد119900 أما اذا احتجت طلبك بشغل أكسس يوجد زر جديد بالفورم (MultiColumnTable) اسمه (CreateMultiColumnTable) بيسوي طلبط كما فهمت . تفضل التعديل . باركود نهائي مرتب المواد والشعب والطلاب (3).rar

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

هذه التقطة هي بسيطة استاذ نقصد بيها اذا كانت مطلقة قبل وفاة طليقها تختفي اسم ولقب المتوفي وتاريخ وفاته هذا المطلوب وبامكانك ان تستعين ب Hamech الزوج يساوي 4 وفاة و 2 طلاق و1 على قيد الحياة

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

وعليكم السلام ورحمة الله تعالى وبركاته ضع هدا في حدث ورقة معلمين 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.Range("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 SupApp With Application .ScreenUpdating = False: .EnableEvents = False .Calculation = xlCalculationManual 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 ColNames Is Nothing Then MsgBox Search & " " & "غير موجود", vbExclamation GoTo Cleanup End If 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 End With Cleanup: Application.ScreenUpdating = True: Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Exit Sub SupApp: Resume Cleanup 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