كل الانشطه

شكرا جزيلا أخي الفاضل وربنا يجعله في ميزان حسناتك هجرب وأوافيك بالنتيجة

شكرا جزيلا لكل من تفضل بالرد والمساهمة في حل المشكلة جعله الله في ميزان حسناتكم

أخي الكريم @أحمد عمروف ، سؤال للتوضيح بخصوص النقطة أعلاه فيما يخص الجدول الرابع ، ما تقصده هل سيتم ادراج التوزيعات فيه ؟؟؟؟؟؟؟؟ صدقاً قرأتها عدة مرات وبادرني الشك حول صحة ما فهمته سابقاً .. لا عليك ، الحال من بعضه هههههههه 🔥 سؤالان فقط قبل أن أبدأ بتحديد مساري في التنفيذ لأنه متشعب جداً :- هل تريد أن نحسب تاريخ اللياقة تلقائياً بربط نهاية الشفوي مباشرة + تخطي العطل ( سيتم تحديد أيام العطل مثل " الجمعة والسبت " ) ؟ أم يكفي أن نسجل تاريخ بداية الشفوي (31/5/2025) وبعدها نحسب اللياقة يدوياً ؟ عند توزيع جلسات اللياقة لو كان عندنا عدد أقل من 70 أو 60 في بعض الأيام ، هل نترك الجلسة ناقصة كما هي ؟ أم نملأ الفارق من طلاب اليوم التالي ؟؟؟ (حسب كلامك فهمت أننا نتركها ناقصة ، لكن للتأكد منك قبل التنفيذ )

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

اخي الكريم وهو ما تم في المرفق السابق ، هل تفقدته ؟؟؟

الجواب كلش واضح....عاشت ايديك استاذ العزيز ...بارك الله فيك وجزاكم الله خيرا....

تحياتي أستاذ FOKSH وشكراً لمرور حضرتك الكريم المطلوب حضرتك عند إختياري لأي مساحة من الكمبوبوكس تظهر ليا تفاصيل هذة المساحة في باقي الحقول ( الردود ( أمامي ـ خلفي ـ جانبي ) .. وأبعاد المبنى ومساحة المبنى ... الخ

وعليكم السلام ورحمة الله وبركاته .. لعدم وضوح كامل الصورة من المطلوب من جهة علاقة الجداول ببعضها البعض من خلال مفتاح الربط = مساحة القطعة ، تم ربط الجدولين بعلاقة One-To-Many ، أيضاً علاقة المالك لم تكن واضحة في النموج ، لذا تركت دون تغيير . واليك المرفق التالي جربه واخبرني بالنتيجة .. مساحات.accdb

السادة الأستاذة المحترمين .. إحترامي وتحياتي لدي جدول ( area ) به بيانات ثابتة لك مساحة ( 209 م ، 276 م .... الخ ) وجدول أخر ( Rodod ) به التفاصيل كل مساحة ( الردود ( أمامي ـ خلفي ـ جانبي ) .. وأبعاد المبنى ومساحة المبنى ... الخ ونموذج ( areaform ) لإدخال البيانات ومحتاج إلى عند إختيار المساحة تظهر لي التفاصيل من جدول Rodod .. وشكراً لحضراتكم مساحات.accdb

بارك الله فيك استاذنا عبدالله بشير وبارك في هذا المنتدى العظيم لما استفدناه من خبراء هذا المنتدى . والشكر موصول بعد إذن الاستاذ عبدالله لاستاذنا / محمد بيك هشام

بارك الله فيك وجعلك عونا للاخرين ............... ولكن! الورقة الثانية وهي جدول المعلمين لم يتم عمل لها كود . اطمع منك عمل كود لها وإسف على تعب حضرتك ب

بنفس محرر أكواد الفورم . أما اذا تريد أن يستدعى من أي مكان أخر يمكن تحويله الى وحدة نمطية عامة كما بـــ (FrmMain1). واليك المرفق الجديد وبه النموذجان . ووافني بالرد . Filter-2.rar

تفضل الصعوبة هي عندما تواجه بطء في الاستعلام هنا يجب ايجاد حل جذري حتى لو اضفنا ادوات مساعدة المشكلة في الاستعلام الرئيس المسؤول عن الإلحاق هو انه يعمل على بيانات مجمعة .. ثم هو ايضا يضم اليه استعلام جدولي ولا يقف عند هذا الحد بل يطلب بيانات سجلات فردية ( مثلا اي مادة تم الاكمال فيها .. ثم اي مادة قلت عن نسبة محددة ثم يتأكد من عدد ايام الحضور كثرة الدوال والاتصال بجداول اخرى او استعلامات هو سبب هذه المشكلة على كل حال توصلت بحمد الله الى حالة مرضية المهم ان تعيد تجاربك .. وايضا لو اردت اضافة اشياء تجدها ضرورية لن نخرج من هذه المرحلة الا بعد اكتمالها واغلاقها ثم نتقدم الخطوة التالية للتذكير : اي اضافة للبيانات او تعديل يجب اعداد النتيجة مرة اخرى Data2.rar

السلام عليكم ورحمة الله وبركاته بعد اذن معلمنا واستاذنا محمد هشام جدول2.xlsm

شكرا استاذ العزيز جزاكم الله خيرا......نعم هذا كان المقصود....بس اخر شي ممكن توضح لي اين اضع هذا الكود ؟؟؟ Private Sub FilterRecords() Dim strFilter As String Dim strCustomer As String ' ÈäÇÁ ÔÑØ ÇáÝáÊÑÉ strFilter = "" ' ÝáÊÑÉ ÍÓÈ ÇáÊÇÑíÎ ÅÐÇ Êã ÅÏÎÇáå If Not IsNull(Me.txtStartDate.Value) And Not IsNull(Me.txtEndDate.Value) Then strFilter = strFilter & "[Da_te] Between #" & Format(Me.txtStartDate.Value, "mm/dd/yyyy") & _ "# And #" & Format(Me.txtEndDate.Value, "mm/dd/yyyy") & "#" End If ' ÝáÊÑÉ ÍÓÈ ÇÓã ÇáÚãíá ÅÐÇ Êã ÅÏÎÇáå strCustomer = Nz(Me.txtCustomerName.Value, "") If strCustomer <> "" Then If strFilter <> "" Then strFilter = strFilter & " AND " strFilter = strFilter & "[ClientName] Like '*" & strCustomer & "*'" End If ' ÊØÈíÞ ÇáÝáÊÑÉ Úáì ÇáäãæÐÌ If strFilter <> "" Then Me.Filter = strFilter Me.FilterOn = True Else Me.FilterOn = False End If

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت. بالشرح والمرفق. ولو تريد الغاء الزر موضح بالشرح . ووافني بالرد . Filter-1.rar

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

بارك الله فيك وجعلك عونا للاخرين ............... ولكن! الورقة الثانية وهي جدول المعلمين لم يتم عمل لها كود . اطمع منك عمل كود لها وأسف على تعب حضرتك

بارك الله فيك وجعلك عونا للاخرين ............... ولكن! الورقة الثانية وهي جدول المعلمين لم يتم عمل لها كود . اطمع منك عمل كود لها وإسف على تعب حضرتك

وعليكم السلام ورحمة الله تعالى وبركاته Option Explicit Private Const ShName As String = "جدول عام" Sub Coloring_Classes() On Error GoTo EndClear SetApp False Dim Sh As Worksheet: Set Sh = ThisWorkbook.Sheets(ShName) Dim i As Long, r As Long, c As Long, ColAL As Long, ColA As Long Dim tmps As Object: Set tmps = CreateObject("Scripting.Dictionary") Sh.Range("B6:AJ23").Interior.ColorIndex = xlNone ColAL = Sh.Cells(Sh.Rows.Count, "AL").End(xlUp).Row ColA = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Row For i = 5 To ColAL If Len(Sh.Cells(i, "AL").Value) > 0 Then If Sh.Cells(i, "AM").Interior.ColorIndex <> xlColorIndexNone Then tmps(Sh.Cells(i, "AL").Value) = Sh.Cells(i, "AM").Interior.Color End If End If Next i For r = 5 To ColA If tmps.exists(Sh.Cells(r, "A").Value) Then For c = 2 To 36 With Sh.Cells(r, c) If Len(.Value) > 0 Then .Interior.Color = tmps(Sh.Cells(r, "A").Value) End With Next c End If Next r EndClear: SetApp True End Sub '""""""""""""""""""""""""""""""""""""""" Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable .EnableEvents = enable .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With End Sub جدول.xlsm

معذرة أستاذنا .. تقريبا أنا أخفقت في فهم فكرة وجود حقل زمني 😟 هو بالنسبة لجدول Tb_Tawze_Leyaka سيكون به يوميا فترتين فقط لا غير (صباحية) من التاسعة صباحا إلى الواحدة ظهرا .. وبها 70 طالب (يدخلون معا الاختبار). (مسائية) من الساعة الثانية ظهرا حتى الخامسة .. .. وبها 60 طالب (يدخلون معا الاختبار). مع التفضل بالعلم بأن السبعين (صباحي) أو الستين (مسائي) ليس لهم قيد أو شرط وليس بالضرورة ترتيب دخولهم حسب مجموعات الشفوي. ولكن فقط لابد وأن يكونوا من مجموعات الشفوي التي تم اختيارها في هذا اليوم وتلك الفترة. مع خالص الشكر أستاذنا ؛؛؛

المطلوب بدخل الملف في ورقتبن (جدول- معلمين) جدول.xlsm

طيب ، تقدر تنشئ حقلين ( Start_Sec و End_Sec ) في الجدول Tb_Tawze_Leyaka لتسجيل تاريخ و وقت بداية ونهاية الجلسة لكل مجموعة . وارسال المرفق بعد التعديل وغداً ان شاء الله سنحاول ضبط الأمور أكثر

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت . ووافني بالرد . Filter.rar

هو مشكورا سعادتك تلاحظ الآتي أولا .. في الجدول الشفوي .. تكررت المجموعة 2 مرتين .. ولم تظهر المجموعة 21 نهائيا. ثانيا .. في الجدول الوسيط .. تجاوزت أعداد الطلاب الموزعة العدد المستهدف (70 صباحي – 60 مسائي). مع خالص التقدير والشكر ؛؛؛