كل الانشطه

السلام عليكم يمكن عمل ذلك بقك الحماية في بداية اي كود ثم اعادة الحماية في نهاية الكود كلمة الحماية 123 يمكنك تعديلها بالكود جدول الحراسة.xlsm

صراحة لم أفهم قصدك !!! هل تقصد أنك تريد تكرار العملية لزر آخر غير زر (Suivi Vente) ؟ عموما إذا كنت تقصد زر آخر غير زر (Suivi Vente) فيمكنك إستخدام نفس الـ Module أو إنشاء واحد جديد ولكن أهم شرط في الحالتين هو إستخدام أسماء فريدة لكل إجراء بمعنى عدم تكرار التسميات التالية (Mouvementcompany و OpenForm1 و OpenForm2 و ...... و OpenForm14) وكآلية عمل يمكنك تنفيذها يمكنك تمييز كل قائمة بكلمة معينة فمثلاً القائمة الجاهزة هنا نميزها بالكلمة (SouSou) فإذا إحتجنا لقائمة أخرى نقوم بنسخ هذه القائمة ونقوم ببحث وإستبدال لكلمة SouSou وتعديلها بكلمة أخرى تعبر عن القائمة الجديدة هكذا ستحصل على قائمة بدون أي مجهود ولن يتبقى عليك إلا إستبدال أسماء النماذج والتسميات قد يكون الشرح بتطبيق عملي أفضل لذلك قمت بتعديل المثال كالتالي - أعدت تسميات الإجراءات والتسميات الحالية لتمييزها بكلمة (SouSou) - قمت بعملية نسخ ولصق لكل الإجراءات في نفس الوحدة النمطية ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Retour) لكل ما تم نسخه ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف C ستلاحظ أني لم أحتاج إلا إلى 8 إجراءات فقط - قمت بعملية نسخ ولصق للقائمة الأولى مرة أخرى ولكن تم اللصق في Module جديد ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Recette) ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف D ستلاحظ أني هنا إحتجت لإضافة إجراء جديد لفتح النموذج الاخير الآن ستظهر القائمة الأولى عند النقر على الزر (Suivi Vente) والقائمة الثانية مع الزر (Retour) والثالثة مع الزر (Recette) تم تحديد الازرار كمثال فلغتي الفرنسية صفر كملاحظة أخيرة يمكنك الان تعديل التسميات الخاصة بعناصر القوائم الثلاث وكذلك يمكنك نقل القائمة الثالثة إلى نفس الوحدة النمطية للقائمتين الأخريين ارجو أن يكون الشرح قد وضح لك طريقة العمل بحيث أصبح بإمكانك إنشاء قوائم أو تعدبلها تحياتي internet.rar

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

لم اعدل ملفك ... ولكن عند فتحة ظهرت مرتبة وبدون مشاكل

وعليكم السلام ورحمة الله وبركاته .. مهندسنا الغالي تبارك الله ، ما شاء الله على الأفكار الجميلات الممتعات أحسن الله إليك ، ورفع قدرك على هذه الفكرة الجميلة .. بعد تجربتي الأداة تعمل 100% عندي . ولكن كان لي نقطة واحدة فقط وهي قراءة الرد من السيرفر بشكل أوضح . ما أقصده هو ، وكمثال بعد محاولات كثيرة حتى تم استنزاف رصيد الـ 50 محاولة المجانية لديكم :- والتنفيذ في الجزء :- Else Dim errTxt As String On Error Resume Next errTxt = http.responseText On Error GoTo 0 DoCmd.Hourglass False If InStr(errTxt, "unknown_foreground") > 0 Then MsgBox "We’re sorry, we couldn’t remove the background." & vbCrLf & _ "Try another image.", _ vbExclamation, "Remove Background" ElseIf http.Status = 401 Then MsgBox "API Key غير صحيح", vbCritical + vbMsgBoxRight, "Remove Background" ElseIf http.Status = 402 Then MsgBox "لم يعد لديك أي محاولات مجانية في هذا الحساب", vbCritical + vbMsgBoxRight, "Remove Background" Else MsgBox "حدث خطأ غير معروف:" & vbCrLf & _ http.Status & " - " & http.statusText, _ vbCritical + vbMsgBoxRight, "Remove Background" End If كما قمت بإيقاف السطر التالي أيضاً :- MsgBox "فشلت العملية" Moosak BG Remover.accdb

احسنت أخي ابو البشر ولكن لم ترفق الملف للاسف

حياك الله. استعملت نفس الاستعلام. نسخت SQL الاستعلام مصدر بيانات النموذج (لاحظ السهم في الصورة) ، . والصقته وعملت منه استعلام ثابت . ثم عملت عليه التعديل . ثم استعملت هذا الاستعلام المعدل كمصدر بيانات للنموذج

نعم صحيح .. لفصل الذكور عن الإناث في عامودين منفصلين . والتجميع والعرض تم على 3 حقول ( أولاً الصف ، ثانيا الفصل ، وثالثاً الجنس ). طبعاً اعتقد أننا نستطيع الاستغناء عن التجميع للصف بما أنه شرط الاستعلام . والإبقاء على الفصل والجنس فقط .. emad.accdb

أخي الكريم ، الفكرة ليست بمعادلة وينتهي الموضوع !!!! بناءً على ملفك المرفق فإنه حتى المعادلة لن تأتي لك بالمطلوب لأسباب كثيرة . نمط التاريخ وشكله وتنسيقه غير واضح في الخلايا داخل الورقات اليومية . الخلية التي سيكون بها تاريخ المقارنة يجب أن يكون في خلية ثابتة في جميع الورقات . خلية عرض الصافي أيضاً يجب أن تكون في خلية ثابتة . فليس من المنطقي أن تكون مرة في Q ومرة في R ومرة في F ... إلخ وعليه تم العمل من خلال ماكرو واستدعاؤه داخل الورقة الرئيسية كالتالي :- Sub GetValuesFromSheets() Dim wsCurrent As Worksheet Dim wsOther As Worksheet Dim i As Long Dim j As Long Dim targetDate As Date Dim found As Boolean Dim lastRow As Long Set wsCurrent = ThisWorkbook.ActiveSheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual wsCurrent.Range("C3:C33").ClearContents For i = 3 To 33 If wsCurrent.Cells(i, "B").Value <> "" Then If IsDate(wsCurrent.Cells(i, "B").Value) Then targetDate = CDate(wsCurrent.Cells(i, "B").Value) found = False For Each wsOther In ThisWorkbook.Worksheets If wsOther.Name <> wsCurrent.Name Then lastRow = wsOther.Cells(wsOther.Rows.Count, "B").End(xlUp).Row If lastRow > 33 Then lastRow = 33 For j = 3 To lastRow If wsOther.Cells(j, "B").Value <> "" Then If IsDate(wsOther.Cells(j, "B").Value) Then If CDate(wsOther.Cells(j, "B").Value) = targetDate Then wsCurrent.Cells(i, "C").Value = wsOther.Range("R27").Value found = True Exit For End If End If End If Next j End If If found Then Exit For Next wsOther If Not found Then wsCurrent.Cells(i, "C").Value = "غير موجود" End If End If End If Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Private Sub Worksheet_Activate() Call GetValuesFromSheets End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3:B33")) Is Nothing Then Call GetValuesFromSheets End If End Sub وهذا مرفقك بعد إجراء بعض التعديلات عليه وضبط المواضع التي تحدثت عنها سابقاً تصفيات العيادات.xlsm ملاحظة .. تم تعديل التاريخ في كل ورقة ليصبح 2026-06-19 2026-06-20 2026-06-21 2026-06-22

في مقطع الجنس اليست هي التي تفصل الذكر عن الأنثى ؟ ( بحكم ان العمود صفحة مستقلة ) هذا ما لفت انتباهي ام ان المسؤول غير ذلك ؟

معك حق 100% .. لتجنب ترك مساحات فارغة كبيرة في التقرير ، ولعدم حدوث مشكلة إذا كانت سجلات المجموعة أكبر من صفحة واحدة 👍 هل هذا ما تقصده معلمي الفاضل أبا خليل !!

do not keep Group togther

حياك الله أخي سعد ..

الترتيب كما تريد .... ليس هناك مشكلة والا وضح مطلوبك

شكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك وذكرك الله في من عنده وزادك الله علما

تمام ،، تفضل أخي أسعد :- emad.accdb

الله ينور عليك وبارك الله فيك

هكذا ؟؟

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

أخي أسعد ، في أول طلبك ، لم تأتِ على ذكر الصف ، بل الفصل .. على العموم وبحكم خبرتي القليلة في موضوع قواعد البيانات التي تختص بالمدارس .. 1. انت تريد أن تقوم باختيار الصف فقط !!!! 2. تريد في كل صفحة ان يتم عرض طلاب الصف الذي اخترته ولكن كل فصل منفصل !!!! 3. تريد توزيع الذكور والإناث في عامودين . هكذا ؟؟؟؟ أكد لي قبل أن أعتمد الحل ما لم يكن هناك خطأ في فهمي للمطلوب 😅

جزاك الله خيرا أخي الكريم وأحسن إليك تم المطلوب بحمد الله والذي فهمته بعد المراجعة أنك استخدمت استعلاما آخر يعتمد على الاستعلام الأول .. ولم يتم الاستغناء عن الاستعلام الأول (Q_Assaker)

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

وعليكم السلام الاستعلام مصدر بيانات نموذج TAB ، حولته من جملة SQL الى استعلام ، حذفت المجاميع ، وعملت عليه هذا التعديل : . . والنتيجة . 1654.Assaker1.accdb.zip

تفضل أخي أسعد .. جرب المرفق التالي ، وأخبرني إن كانت النتيجة هي ما تريده !! emad.accdb

الإخوة الكرام .. في الملف المرفق جدولين الرئيسي (TAB) والفرعي (Assaker) وجدول الربط بينهما (Assaker_Takhrij) ونموذج (TAB) والمطلوب فيه عرض أحاديث الجدول الرئيسي، ومع كل حديث الصفحات المرتبطة به من الجدول الفرعي بدون تكرار أحاديث الجدول الرئيسي لذلك استخدمت خاصية التجميع في الاستعلام، ولكن عندها لا يظهر كامل النص وعند عدم استخدامها يظهر كامل النص لكن تتكرر الأحاديث فما هو الإجراء الصحيح ؟ Assaker1.rar