Foksh

وعليكم السلام ورحمة الله وبركاته ,, من تبويب ( Other - أخرى ) من خصائص النموذج ، اجعل قيمة ( مشروط - Modal ) = نعم

أخي الكريم وعليكم السلام ورحمة الله وبركاته.. العنوان ليس له دلالة على موضوع المشكلة ، هذا من جهة. من جهة أخرى وتصحيحاً لخطأ مطبعي ، اسم الموقع أوفيسنا 😇 . ثالثاً انزل الى نهاية الصفحة ستجد في الأسفل زر Language - اللغة ، فمنه تستطيع تغيير لغة الموقع . اذا لم تنجح ، فقط قم بحذف الكاش من المتصفح الخاص بك وحاول مرة أخرى.

بعد التدقيق في فكرة أستاذي ومعلمي @ابوخليل ، تبين لي ان المتغير لا يتم حجزه بشكل مناسب قبل فتح التقرير ، وهنا خطر لي تعديل بسيط بحيث نعتمد على قيمة CheckBox في النموذج A1 والذي هو مفتاح الربط في فكرتي ، بحيث اذا كان فارغاً يتم تعديل القيمة كما فعل أستاذي في فكرته ، وإلا فيتم عرض النص الأصلي ( بين عرض اسم الزوج أو الزوجة ) جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :- Private Sub Report_Load() Me.Rep1.Value = Rept1 Me.Rep2.Value = Rept2 'المعلومات الشخصية Me.Nom.Value = TempVars("Nom") Me.Prenom.Value = TempVars("Prenom") Me.Date_Naiss.Value = TempVars("Date_Naiss") Me.Lieu_Naiss.Value = TempVars("Lieu_Naiss") Me.Nom_Per.Value = TempVars("Nom_Per") Me.Nom_Mer.Value = TempVars("Nom_Mer") Me.CheckBox.Value = TempVars("CheckBox") Me.Prenom1.Value = TempVars("Prenom1") Me.ep = IIf(([CheckBox]) = 0, "أرملة", "حرم") 'الشاهد الاول Me.C1.Value = TempVars("C1") Me.N1.Value = TempVars("N1") Me.d1.Value = TempVars("D1") Me.L1.Value = TempVars("L1") 'الشاهد الثاني Me.C2.Value = TempVars("C2") Me.N2.Value = TempVars("N2") Me.D2.Value = TempVars("D2") Me.L2.Value = TempVars("L2") ''السكن وبلدية الاقامة Me.N4.Value = TempVars("N4") Me.N5.Value = TempVars("N5") If Not IsNull(Forms!a1!CheckBox) Or (Forms!a1!CheckBox) <> "" Then text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] Else text1 = [Prenom] End If End Sub

تمت الإجابة بكل التفاصيل في هذه المشاركة ، في الموضوع : عمل كشفين لجنة

لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل

تم الأمر بنجاح بعد توضيحك لجميع المعطيات ,, شكراً لك سعة صدرة وتحملي في اسئلتي أخي @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