Foksh

تم الأمر بنجاح بعد توضيحك لجميع المعطيات ,, شكراً لك سعة صدرة وتحملي في اسئلتي أخي @2saad الآن بالنسبة للإحصاءات ، فقد تمت كالآتي :- أولاً، انشاء استعلام الإحصائيات (qry_LagnaStats) :- SELECT Tbl_student.id_lagna, Sum(IIf(gender=1,1,0)) AS بنون, Sum(IIf(gender=2,1,0)) AS بنات, Count(*) AS العدد, Min(Tbl_student.Stugalos) AS من, Max(Tbl_student.Stugalos) AS إلى FROM Tbl_student WHERE (((Tbl_student.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY Tbl_student.id_lagna; ثم تعديل الإستعلام الرئيسي "QQQR_STU" ( مصدر التقرير ) ، كالآتي :- SELECT Tbl_student.id_student, Tbl_student.Studentname, Tbl_student.Stucod, Tbl_student.Stugalos, Tbl_student.gender, Tbl_eldina.eldina, Tbl_student.id_lagna, Tbl_saf.saf, Tbl_lagna.ellagna, Tbl_school.moder, Tbl_school.masolelhasab, Tbl_school.raeselcontrol, Tbl_lagna.almoraqeb FROM Tbl_school, Tbl_gender INNER JOIN ((Tbl_saf INNER JOIN (Tbl_student INNER JOIN Tbl_lagna ON Tbl_student.id_lagna = Tbl_lagna.id_lagna) ON Tbl_saf.saf_id = Tbl_student.alsaf_Id) INNER JOIN Tbl_eldina ON Tbl_student.eldina_id = Tbl_eldina.eldina_id) ON Tbl_gender.gendr_id = Tbl_student.gender WHERE Tbl_student.alsaf_Id = [Forms]![frm_Reports]![ComboSaf] ORDER BY Tbl_student.Stucod, Tbl_student.id_lagna; ثم نقل عناصر الإحصاءات الى الجزء "Group Footer لـ id_lagna" ، لتظهر تحت كل لجنة بشكل منفصل ومستقل . ثم تعديل قيم مربعات النص الخاصة بالأعداد والإحصاءات لتكون كالآتي :- عدد الذكور: =DLookup("بنون", "qry_LagnaStats", "id_lagna=" & [id_lagna]) عدد الإناث: =DLookup("بنات", "qry_LagnaStats", "id_lagna=" & [id_lagna]) العدد: =DLookup("العدد", "qry_LagnaStats", "id_lagna=" & [id_lagna]) من: =DLookup("من", "qry_LagnaStats", "id_lagna=" & [id_lagna]) إلى: =DLookup("إلى", "qry_LagnaStats", "id_lagna=" & [id_lagna]) أما فيما يخص نقطة تسلسل الترقيم لكل لجنة ليبدأ من 1 فقط ما تم هو تغيير ما في الصورة أدناه :- وعليه ، يصبح الملف بعد التعديلات = Data20.zip

أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي = Public testTypeGender As Byte

هل النتيجة في الملف المرفق PDF صحيحة ؟؟؟؟؟؟؟ صورة كمثال :- kashf_monada.pdf

هذه بسيطة ، ولكن !!! من اين مصدر ( رئيس اللجنة - رئيس الكنترول ) الذي تريد اضافتها ؟؟؟

وإياكم أحي الكريم في حال حصلت على طلبك ، نرجو منك اغلاق الموضوع باختيار افضل إجابة .

أخي الكريم ، انت تسأل وتريد اجابات على اسئلتك ، لكنك لا تجيب على اسئلة تم طرحها سابقاً

تفضل Data19_R.zip

وعليكم السلام ورحمة الله وبركاته مجدداً أخي الكريم .. لن تحتاج الى اي من الأكواد السابقة في هذه الحالة . فقط تحتاج جملة فتح النموذج المعتادة والتي ستكون :- DoCmd.OpenForm (Me.مربع_تحرير_وسرد1) مرفق ملفك Lists.accdb

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

كما تريد أخي @سامر محمود ،، تفضل هذا التعديل :- Pepsi-fockh.zip

أخي @2saad بدلاً من فتح موضوعين لنفس الطلب ، كان الأجدر بك التوضيح أكثر واستغلال مساحة الموضوع الأول الذي قمت بإنشاءه سابقاً ، ولا أعلم لما تبخل في التوضيحات أثناء ردودك . على العموم هل الصورة التالية مناسبة لطلبك ؟

وعليكم السلام ورحمة الله وبركاته ، اختر فقط اللغة العربية بدلاً من الإنجليزية ، وقم بإزالة اشارة الصح عن UTF-8 طبعاً اللغة العربية حسب بلدك أو البلد الذي تريده

من وجهة نظري وحتى تسير على خطوات صحيحة .. من المفترض أن جدول Data ( وهو اسم محجوز لآكسيس ) أن يكون له نموذج لإدخال البيانات الى الجدول ، ...... بعد الإطلاع على الملف بشكل معمق ، وبهذا الأسلوب أعتقد انك بحاجة الى إعادة بناء فكرة النموذج أخي سامر ( إن أردت النصيحة طبعاً ) . بهذا الأسلوب ستقضي نصف المشروع وقتاً ببناء استعلامات 😅 . فمثلاً ما حاجة تكرار البيانات في جدولين .

بارك الله فيك ، وغفر لك ولوالديك والمسلمين 😇 يسعدني أنك وجدت الحل مناسباً لك 🤗

العفو أخي الكريم ، نحن هنا أسرة واحدة ، وكلنا نساعد ونساند بعضنا البعض ، ويوماً ما سأحتاج مساعدتك في معضلة لم أجد لها حل بإذن الله تعالى 😉 . جهز نفسك 😁 .

وعليكم السلام ورحمة الله وبركاته ،، جرب هذا التعديل على حسب ما فهمت من الشرح Sub Test_Optimized() Dim ws As Worksheet, dataArr As Variant, outputArr() As Variant Dim i As Long, ii As Long, p As Long, startRow As Long, endRow As Long Dim chunkSize As Long, chunkStart As Long, chunkEnd As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Set ws = ActiveSheet chunkSize = 5000 ReDim outputArr(1 To chunkSize * 10, 1 To 14) With ws .Columns("Q:P").Clear .Columns("P").ColumnWidth = 12 .Range("R1").Resize(, 14).Value = Array("الدفعة", "ج", "ت ح", "ت م", "ت ع", "ل ع", "ل ح", "ل م", "ل ع1", "ر ع1", "ل ح1", "ر ح1", "ل م", "ر م1") .Range("R1").Resize(, 14).Interior.Color = RGB(146, 205, 220) .Range("R1").Resize(, 14).HorizontalAlignment = xlCenter For chunkStart = 2 To 13000 Step chunkSize chunkEnd = chunkStart + chunkSize - 1 If chunkEnd > 13000 Then chunkEnd = 13000 dataArr = .Range("A" & chunkStart & ":N" & chunkEnd).Value p = 1 For i = LBound(dataArr, 1) To UBound(dataArr, 1) If IsNumeric(dataArr(i, 2)) And IsNumeric(dataArr(i, 3)) Then startRow = dataArr(i, 2) endRow = dataArr(i, 3) For ii = startRow To endRow outputArr(p, 1) = dataArr(i, 1) outputArr(p, 2) = ii outputArr(p, 3) = dataArr(i, 4) outputArr(p, 4) = dataArr(i, 5) outputArr(p, 5) = dataArr(i, 6) outputArr(p, 6) = dataArr(i, 7) outputArr(p, 7) = dataArr(i, 8) outputArr(p, 8) = dataArr(i, 9) outputArr(p, 9) = dataArr(i, 10) outputArr(p, 10) = dataArr(i, 11) outputArr(p, 11) = dataArr(i, 12) outputArr(p, 12) = dataArr(i, 13) outputArr(p, 13) = dataArr(i, 14) outputArr(p, 14) = dataArr(i, 14) p = p + 1 Next ii End If Next i If p > 1 Then .Range("R" & chunkStart).Resize(p - 1, 14).Value = outputArr ReDim outputArr(1 To chunkSize * 10, 1 To 14) End If Next chunkStart End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub

هل هذا ما تريده ؟ class_be1.accdb

على اي أساس سيتم تمييز السجلات الخاصة بالجهاز ولنفترض Pc1 و Pc2 ... إلخ .؟؟؟ لنفترض انني Pc1 على شبكة Net1 وموظف آخر على شبكة Net2 باسم Pc1 أيضاً !!!!! هل فهمت المقصود ؟؟ ما الرابط فيما بينهم !!!!!

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

تفضل .. class_be.accdb

إلى الآن لم تتضح أو تظهر لي المشكلة ، والحل باعتقادي بسيط ، هو فقط الاعتماد على الحقل [ClassNo] للفرز التصاعدي .

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

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

وعليكم السلام ورحمة الله وبركاته ,, كمشاركة لي خارج قوقعتي في قسم الآكسيس ، استخدم الدالة LEFT ، في الخلية D1 حسب مثالك ، وسينتج عن ذلك رقم مكون من 6 خانات إن كان هذا طلبك , =LEFT(A1&"",2) & LEFT(B1&"",2) & LEFT(C1&"",2)

🙄