كل الانشطه

هذا هو قصدي بارك الله فيك شكرا شكرا كثيرا

صراحة عمل يرفع له القبعه هل ممكن ولو تعبتك أنا تحويل الاعمدة بالعربي مثلا اسم المعلم / تاريخ المراقبة / القاعات الامتحانية / فئة المعلم / تاريخ الامتحان مادة المعلم / تاريخ التصحيح اذا ممكن وهل هناك عداله بالمراقبة للمعلمين

أخي أحمد ، هل هذا المثال صحيح :- مثال توضيحي لو كانت : Cou_Stu = 45 (عدد الطلاب). Seaa_Kaa_Shafawe = 20 (سعة القاعة). فسيتوزعون كالآتي : الجلسة 1 : 20 طالب (صباحي) الجلسة 2 : 20 طالب (مسائي) اليوم التالي : الجلسة 3 : 5 طلاب (صباحي فقط) استخدم هذا التعديل في دالة التوزيع الشفهي ، وطابقها مع حساباتك ومتطلباتك ان كانت صحيحة Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsInsert As DAO.Recordset Dim sql As String Dim GroupNo As Long Dim DateCounter As Date Dim DayCounter As Long Dim Period As String Dim StudentLeft As Long Dim MaxPerSession As Long Dim StudentsThisSession As Long Set db = CurrentDb ' جلب جميع الصفوف لجميع المدارس بترتيب واضح sql = "SELECT * FROM Tb_Cou_Stu ORDER BY ID_School_B, ID_Room_B" Set rs = db.OpenRecordset(sql, dbOpenSnapshot) Set rsInsert = db.OpenRecordset("Tb_Tawze_Shafawe", dbOpenDynaset) Do Until rs.EOF ' بدء التوزيع من اليوم المحدد لكل صف بشكل مستقل DateCounter = StartDate DayCounter = 1 GroupNo = 1 StudentLeft = rs!Cou_Stu MaxPerSession = rs!Seaa_Kaa_Shafawe Do While StudentLeft > 0 ' تجاوز الجمعة Do While Weekday(DateCounter, vbSaturday) = 6 DateCounter = DateAdd("d", 1, DateCounter) DayCounter = DayCounter + 1 Loop ' جلسة صباحية StudentsThisSession = IIf(StudentLeft >= MaxPerSession, MaxPerSession, StudentLeft) rsInsert.AddNew rsInsert!ID_School_C = rs!ID_School_B rsInsert!ID_Room_C = rs!ID_Room_B rsInsert!Date_Shafawe = DateCounter rsInsert!Day_Shafawe = DayCounter rsInsert!S_M = "صباحي" rsInsert!Magmoaa = GroupNo rsInsert!Cou_Stu_Shafawe = StudentsThisSession rsInsert.Update StudentLeft = StudentLeft - StudentsThisSession GroupNo = GroupNo + 1 ' جلسة مسائية (إن تبقى طلاب) If StudentLeft > 0 Then StudentsThisSession = IIf(StudentLeft >= MaxPerSession, MaxPerSession, StudentLeft) rsInsert.AddNew rsInsert!ID_School_C = rs!ID_School_B rsInsert!ID_Room_C = rs!ID_Room_B rsInsert!Date_Shafawe = DateCounter rsInsert!Day_Shafawe = DayCounter rsInsert!S_M = "مسائي" rsInsert!Magmoaa = GroupNo rsInsert!Cou_Stu_Shafawe = StudentsThisSession rsInsert.Update StudentLeft = StudentLeft - StudentsThisSession GroupNo = GroupNo + 1 End If ' الانتقال لليوم التالي DateCounter = DateAdd("d", 1, DateCounter) DayCounter = DayCounter + 1 Loop rs.MoveNext Loop rs.Close: rsInsert.Close Set rs = Nothing: Set rsInsert = Nothing: Set db = Nothing MsgBox "تم توزيع جلسات الشفوي لجميع الصفوف بشكل صحيح", vbInformation + vbMsgBoxRight, "نجاح" مسألة الصباحي والمسائي لم أطبقها حالياً ، فهي ليست ذات علاقة بآلية التوزيع في الوقت الحالي ,

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

بارك الله فيك استاذي الكريم أحتاج فقط إضافة شرطين الشرط الأول / اذا كان للمعلم امتحان في تاريخ مثلا 1/6/2025 لا يتم وضعه في جدول المراقبة في هذا التاريخ مثلا 1/6/2025 الشرط الثاني / اذا كان للمعلم تاريخ تصحيح الدفاتر الامتحانية مثلا 5/6/2025 لا يتم وضعه في المراقبة في هذا التاريخ 5/6/2025 عمل راقي

السلام عليكم استاذ @ابوخليل ان شاء الله جاري العمل حسب توجيهاتك

سيدي الفاضل ، موضوعك جدا سهل ، ولو انك من البداية ارفقت ملف الـ pdf لحصلت على الجواب من زمان 🙂 انت لست بحاجة الى ملف pdf ، وانما بحاجة الى قالب المسميات ، حتى تضع البيانات في مكانها. 1. حولت ملف pdf الى صورة ، وارفقتها كخلفية للتقرير ، 2. اعدت ترتيب الحقول لمكانها الصحيح حسب الخلفية ، 3. الافضل حذف الخلفية (حتى يصبح البرنامج خفيفا) ، ولكن قبل الحذف ، اعمل مربعات تسمية لكل التسميات التي بالازرق ، وقد عملت لك نموذجا "شهادة عمل" ، فقم بنسخه وعمل بقية التسميات ، ووضعها في مكانها الصحيح. والان يمكنك تصدير التقرير كملف pdf . والنتيجة: DD1Testdb2025.mdb

تسلم ايدك بجد الله ينور

Option Explicit Option Compare Text Sub FilterContractorData() Dim CrWS As Worksheet, dest As Worksheet, c As Long, OnRng, ColArr, a(1 To 4) Const tmp1 = 3, tmp2 = 4, colDate = 1 Dim col As Range, dataRng As Range, lastCol As Long: lastCol = 25 Set CrWS = Sheets("يومية المقاولين") Set dest = Sheets("تقرير تفصيلى") Dim lastRow As Long: lastRow = dest.Rows.Count With Application .ScreenUpdating = False: .Calculation = xlCalculationManual With dest .Range("A11:Y" & lastRow).ClearContents .Range("A11:Y" & lastRow).Borders.LineStyle = xlNone End With OnRng = CrWS.Range("B8:Y" & CrWS.Cells(CrWS.Rows.Count, "B").End(xlUp).Row).Value a(1) = dest.[D3].Value: a(2) = dest.[E3].Value a(3) = dest.[C6].Value: a(4) = dest.[D6].Value ColArr = FiltreTbl(OnRng, a, tmp1, tmp2, colDate, _ Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)) If Not IsEmpty(ColArr) Then dest.Range("B11").Resize(UBound(ColArr), UBound(ColArr, 2)).Value = ColArr With dest.Range("A11:A" & dest.Cells(dest.Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-10") End With Call ShFormat(dest, "A:Y") Set dataRng = dest.Range("A11:Y" & lastRow) For c = 1 To lastCol If Application.WorksheetFunction.CountA(dest.Range(dest.Cells(11, c), dest.Cells(lastRow, c))) = 0 Then dest.Columns(c).Hidden = True Else dest.Columns(c).Hidden = False End If Next c Else MsgBox "لا توجد بيانات تطابق الشروط المحددة", vbExclamation End If .ScreenUpdating = True: .Calculation = xlCalculationAutomatic End With End Sub v3-عمالة نظام 2025_2026.xlsm

DD1Testdb2025.mdb اريد ان تظهر صفحة pdf مكتوب عليها المعلومات المكتوبة بالأسود فقط لان المعلومات المكتوبة بالأزرق مكتوبة سابقا

ملغ فبل الاستدعاء Document1.pdf ملف بعد البحث عن الموDocument2.pdfظف واريد تمتلئ المعلومات المكتوبة بالأسود

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

وعليكم السلام اضف مربع النص هذا (تقدر تعمله مخفي)، في هذا القسم: ثم في حدث عند تنسيق Report Footer اكتب هذا الكود Private Sub Report_Footer_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Report_Footer_Format Me.p = DLookup("Page_lettre", "tab_Page", "num_page=" & Me.Pages) Exit_Report_Footer_Format: Exit Sub err_Report_Footer_Format: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Report_Footer_Format End Sub 1626.BASE_P.accdb ماشاءالله عليك اخوي خليفة ، حبتين البهارات اللي اضفتها اعطت نتيجة احلى 🙂

تفضل استاذ @moho58 طلبك حسب مافهمت . ووافني بالرد . BASE_P-1.rar

dest.Range("A11:T" & Lr).ClearContents =========> dest.Range("A11:Y" & Lr).ClearContents Private Sub ShFormat(ByRef dest As Worksheet, ByVal Col As String) Dim lastRow As Long lastRow = dest.Cells(dest.Rows.Count, "A").End(xlUp).Row With dest.Range("A11:Y" & lastRow).Borders .LineStyle = xlDash: .Weight = xlThin: .ColorIndex = xlAutomatic End With End Sub Dim Lr As Long: Lr = dest.Rows.Count With dest.Range("A11:Y" & Lr) .ClearContents: .Borders.LineStyle = xlNone End With عمالة نظام 2025_2026.xlsm

اذ اردت معلومات التقرير تظهر كاملة، احذف الكائن الذي داخل الدائرة الحمراء. . وكما طلب منك الاخوة سابقا ، رجاء ارفق لنا هذا الملف ، حتى نستطيع التحكم فيه وادخال البيانات من البرنامج

تفضل استاذ @alloui79 المرفق بعد التعديل بطلبك حسب مافهمت بالاستعلام 2 . ووافني بالرد . Database9-3.rar

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في موضوعي هذا اريد كتابة عدد الصفحات في تقرير (بالحروف) وهذا بناء على الجدول tab_page إذا كان عدد صفحات التقرير هو : 1 يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحة واحدة إذا كان عدد صفحات التقرير هو : 2يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحتين (2) وهكذا .... الرجاء المساعدة والتوجيه وبارك الله فيكم BASE_P.accdb

بارك الله فيك وزادك من علمة وفضلة

ملاحظة القاعدة المرفقة لديك لم يتم التحميل ...... عملت لك قاعدة وفيها بيانات راجع جدول التوزيع هل تم بالشكل المطلوب ام لا ............... NA_1.accdb

السبلام عليكم انا مبتدئ وارجوا المساعدة الان قمت بارفاق الملف علما عندما اضغط غلى زر Aperçu état بقوم بإستدعاء ملف PDF الذي خارج قاعدة البيانات اكسس الذي عبارة عن وضيقة رسمية مكتوبة عليها معلومات رسمية وعند اختيار الموظف فأن معلوماته نجدها مباشرة على وثيقة PDF . DD1Testdb2.mdb

لم افهم ما المقصود بالتنسيق وان كنت تقصد العمود الاخير M غير ظاهر في ملف PDF فاستبدل في الكود نطاق البيانات Range("A1:L" & lastRow).ExportAsFixedFormat _ بهذا المدى Range("A1:M" & lastRow).ExportAsFixedFormat _ يعتى بدل العمود L يصبح M عمالة نظام جديد2025_2026.xlsm

فيه مشكلة 1- تكرار قيمة الواصل فى كل التقرير 2- التنسيقات الجداول 3- عند اختيار المقاول احمد شبل لا يمسح التقرير عمالة نظام 2025_2026.xlsm

على ورقة التقرير التفصيلى