كل الانشطه

قم بتنقيص قيمة الهامش الايمن والاسفل

لم تقم بدكر دالك ضمن المشاركة في مثالك الورقة تتضمن أسماء عناوين الأعمدة فقط تم تعديل المعادلة والكود في المشاركة السابقة لحساب مجموع العمود Adl. =SUMIFS(Data!$A$2:$A$1000, Data!$M$2:$M$1000, A2, Data!$O$2:$O$1000, B2, Data!$P$2:$P$1000, C2) أو =SUMIFS(Data!$A$2:$A$1000, Data!$M$2:$M$1000, A2, Data!$O$2:$O$1000, DATEVALUE(B2), Data!$P$2:$P$1000, C2) لحساب مجموع العمود Chd =SUMIFS(Data!$B$2:$B$1000, Data!$M$2:$M$1000, A2, Data!$O$2:$O$1000, B2, Data!$P$2:$P$1000, C2) اليك ملفين الأول بالمعادلات والثاني بالأكواد يمكنك إختيار ما يناسبك معادلة بدون تكرار v2-vba .xlsb معادلة بدون تكرار v2.xlsx

شكرا لكم جميعا علي حسن تعاونكم وبارك الله فيكم وأكثر الله من أمثالكم الخيرين في الملف المرفق عند فتحه تظهر الشاشة الرئيسية عند الضغط علي زر التقارير يظهر نموذج نختار منه الفصل الدراسي والفئة ( الصفوف العليا مثلا ) والصف الدراسي ( السادس مثلا ) ثم نضغط علي زر كشف تظهر نتيجة التلاميذ باللون . أنا محتاج بدل اللون تظهر درجة المادة ( 50 - 90 - 100 ) وهكذا . مثل هذه الصورة Data119.rar

خالص الشكر لابداعك اكرمك الله

شكرا جزيلا لكم وبارك الله فيك أستاذنا الكريم محمد هشام أحسنت وأبدعت كلا الحلان ممتازين ولكنى أريد إجمالى الأعداد بهذان العمودان Adl & Chd معادلة بدون تكرار.xlsx

التعديل المرفق يقوم بذلك ولكن يشترط ان يكون عنوان زر الامر مطابقا لاسم التقرير LAB 2025.rar

استاذى الفاضل شكرا لك على مساعدتى ولكن هل توجد طريقة اسهل من Select Case Me.OpenArgs Case Is = Urine MS_Sub.SourceObject = "1" Case Is = Stool MS_Sub.SourceObject = "2" Case Is = Sugar MS_Sub.SourceObject = "3" End Select MS_Sub.LinkMasterFields = "PCode" MS_Sub.LinkChildFields = "PCode" وذلك لان عدد التقارير كتيرة جدا خالص الشكر

عزيزى الفاضل الازرار تفتح التقارير مباشرة ولو يتم فتحها داخل التقرير الرئيسى لم يتم تحديد اسم التقرير MS_Report فى الكود الخاص بحضرتك

إليك أخي @algammal نسخة محدثة بعد تجربة الملف وظهور خطأ عند البحث بالرقم القومي لوحده توحيد البحث في شيت واحد v8.xlsb

وعليكم السلام ورحمة الله تعالى وبركاته إدن لنجرب المعادلات التالية في الخلية A2 ورقة TOTAL ضع المعادلة التالية =LET( data, Data!M2:P1000, tour, INDEX(data,,1), date_, INDEX(data,,3), guide, INDEX(data,,4), keys, UNIQUE(FILTER(tour & "|" & guide & "|" & TEXT(date_, "dd/mm/yyyy"), (tour<>"")*(guide<>"")*(date_<>0))), rowNums, XMATCH(keys, tour & "|" & guide & "|" & TEXT(date_, "dd/mm/yyyy")), CHOOSE({1,2,3},INDEX(data, rowNums, 1), TEXT(INDEX(data, rowNums, 3), "dd/mm/yyyy"),INDEX(data, rowNums, 4) )) أو يمكنك إستخدام الكود التالي في Module Sub UpdateColArr() Const ColA = 1, ColB = 2, ColM = 13, ColO = 15, ColP = 16 Dim OnRng, dict As Object, a(), key As String Dim i As Long, tmps As Long Dim WS As Worksheet: Set WS = Sheets("Data") Dim dest As Worksheet: Set dest = Sheets("Total") Set dict = CreateObject("Scripting.Dictionary") SetApp False With dest .Range("A1:E" & .Rows.Count).ClearContents .Range("A1").Resize(1, 5).Value = [{"Tour Name","Tour Date","Guide Name","Adl.","Chd"}] With .Range("A1:E1").Borders: .LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic: End With End With OnRng = WS.Range("A2:P" & WS.Cells(WS.Rows.Count, ColM).End(xlUp).Row).Value ReDim a(1 To UBound(OnRng), 1 To 5) For i = 1 To UBound(OnRng) If Trim(OnRng(i, ColM)) <> "" Then key = OnRng(i, ColM) & "|" & OnRng(i, ColO) & "|" & OnRng(i, ColP) If Not dict.exists(key) Then tmps = tmps + 1 a(tmps, 1) = OnRng(i, ColM): a(tmps, 2) = Format(OnRng(i, ColO), "dd/mm/yyyy") a(tmps, 3) = OnRng(i, ColP): a(tmps, 4) = Val(OnRng(i, ColA)): a(tmps, 5) = Val(OnRng(i, ColB)) dict.Add key, tmps Else Dim n As Long: n = dict(key) a(n, 4) = a(n, 4) + Val(OnRng(i, ColA)): a(n, 5) = a(n, 5) + Val(OnRng(i, ColB)) End If End If Next i If tmps > 0 Then dest.Range("A2").Resize(tmps, 5).Value = a SetApp True Set dict = Nothing: Set WS = Nothing: Set dest = Nothing End Sub Private Sub SetApp(ByVal enable As Boolean) On Error Resume Next With Application .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With On Error GoTo 0 End Sub وفي حدث ورقة Sheet1 Private Sub Worksheet_Activate() On Error Resume Next: Call UpdateColArr: On Error GoTo 0 End Sub

تفضل LAB 2025.rar

تفضل جرب المثال بعد التعديل LAB 2025.rar

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

🌙✨ كل عام وأنتم بخير ✨🌙 أعاده الله عليكم بالخير والبركة، وتقبّل طاعاتكم 🤲 وجعل أيامكم أفراحًا وسرورًا 💖 📿🕊️ عيدكم مبارك وسعيد 🕊️📿 🌹🌟 تقبّل الله منا ومنكم 🌟🌹

تفضل أستاذ JO Me.Refresh DoCmd.OpenReport Screen.ActiveControl.Name, acViewPreview, , "[Pcode]=" & Me.PCode

الخبراء الافاضل هل طلبى ممكن تنفيذة ام مستحيل

السلام عليكم أستاذنا الكريم algammal بارك الله فيك وجزاك الله خير الجزاء لما أشدت به وكل عام وأنتم بخير وكلنا هنا نتعلم ونعمل على مساعدة بعضنا البعض فكما قال استاذنا الكبير ابراهيم الحداد ان كان هناك احد يستحق التقدير فهو انت فقليل من الناس من يتصف بهذه الصفات النبيلة وقليل منهم من يقر بما له فضل عليه بعد الله عز وجل فى التعلم .فخيركم من لا يبخل بما تعلمه لنشر المعرفة والمعلومات لكل من يستحقها

السلام عليكم أساتذتى الكرام وكل عام وأنتم بخير وعيد أضحى سعيد على الجميع ... الرجاء من سيادتكم التكرم على مساعدتى بمعادلة لجلب البيانات من ثلاثة أعمدة بدون تكرار . بمعنى جلب بيانات العمود M من صفحة Data ,ووضعها بالعمود A بصفحة Total وبيانات العمود O واحضارها بالعمود B بصفحة Total وبيانات العمود P من صفحة Data ووضعها بالعمود C بصفحة Total .. وهناك نتيجة موجودة بالصفحة Total كمثال لما هو مطلوب وجزاكم الله خير الثواب وبارك الله فى جهودكم لابد الا يتكرر اسم الرحلة مع اسم المندوب لنفس التاريخ وشكرا جزيلا معادلة بدون تكرار.xlsx

السلام عليكم و رحمة الله و بركاته اخى الكريم algammal كل عام و انتم بخير ان كان هناك احد يستحق التقدير فهو انت فقليل من الناس من يتصف بهذه الصفات النبيلة فشكرا لكل من تعلمنا منهم فهم اصحاب الفضل بعد الله تبارك و تعالى مرة اخرى كل عام و انتم بخير

الخبراء الافاضل كل عام وانتم بخير ومنتدنا الرائع بكل اعضاءة فى تمام الصحة والسعادة اعادة الله علينا جميعا هذة الايام بالصحة والسعادة اريد عند الضغط على الزرالموجود بالنموذج Youssef يفتح التقرير الخاص باسمة مع العلم بان هناك تقارير كثرة ولكل تقرير زر خاص بة لكم خالص الشكر LAB 2025.rar

كل عام وانتم بخير وعساكم من عواده الصالحين تقبل الله منا ومنكم صالح الأعمال اخوكم ابو ريان - مكة المكرمة

أخي أسعد ، وعليكم السلام ورحمة الله وبركاته ،، أولاً تقبل الله طاعاتنا وطاعاتكم ، وكل عام وأنتم بخير . دائماً ما ننوه ونذكر حريصين على مساعدتكم بضرورة تحديد تفاصيل المشكلة وإرفاق ملف حتى وإن تكرر نفس الملف في مشاركات ومواضيع ومشاكل سابقة . كما أُشير إليك بذكر سبب استفسارك عن صحة الدالة ( المشكلة التي تواجهها ) . بما انك استخدمت First في استعلامك ، فأعتقد وأنه من الأفضل لك استخدام الترتيب في نتائج الاستعلام ORDER BY . قد نسيت بنية الاستعلامات السابقة في مشاريعك . لذا حاول استخدام الفرز حسب قيمة معينة ليتم جلب أول قيمة لك من نتيجة الإستعلام .

تقبل الله طاعاتكم ، وبارك الله بكم ، ونفع بكم أخي الفاضل @algammal .. لهو شرف لي مشاركتك اسمي بين نخبة من معلمي و أساتذة هذا الصرح الكبير في هذا القسم الرائع ، وقد أسعدتَ قلبي بكلماتك الطيبة والتي إن نبعت ، فهي نابعةٌ من جمال وطيب قلبك وأصلك وخُلُقك . وكما أسلف اساتذتنا هنا سابقاً ، نحن هنا نساند بعضنا البعض بمودة ومحبة بما علمنا الله من علمه - ولا علم إلا علمه - ولله الفضل من قبل ومن بعد . وبإسمي وبإسم قسم الآكسس عموماً ، نسأل الله أن يتقبل طاعاتكم ، ونتمنى لكم عيد أضحى مبارك 🐑.

FirstOfmgmo: IIf([Forms]![frm_Reports]![termNum]=1,([qry_master].[FirstOfmgmo1]),IIf([Forms]![frm_Reports]![termNum]=2,([qry_master].[FirstOftotal]),([qry_master].[FirstOfdegExam2]))) طالع (Query1) بالمرفق والشرح . DD_2SAAD_TEST.rar