البحث في الموقع

السلام عليكم ورحمة الله وبركاته سوف أقدم وحدة نمطية عامة متقدمة تتيح لك فتح أي تقرير في الاكسس بطريقة ديناميكية مع التحقق من وجود التقرير ومصدر بياناته واحتوائه على بيانات قبل العرض أو الطباعة الخصائص والمميزات تحقق تلقائي من وجود التقرير قبل عرضه دعم التصفية من خلال تمرير شروط WhereCondition لتحديد البيانات ادارة المصدر وذلك من خلال استخراج RecordSource بشكل ديناميكي مع التخزين المؤقت داخل قاموس مرونة التعامل مع اوضاع التقارير المختلفه بحيث يدعم الطباعة - المعاينة - او اى وضع عرض الصمت المطلق للاستخدامات البرمجية من خلال اختيار تفعيل الوضع "بدون رسائل" للاستخدام البرمجى عند الحاجة بدون ازعاج استجابة ذكية ومعالجة اخطاء احترافية من خلال تعامل متكامل مع الأخطاء الشائعة تقريبا طريقة الدمج في مشاريعك و قواعد بياناتك : ضع الكود فى وحدة نمطية عامة مثلا باسم : basReportUtils استدعِ الدالة OpenReportSmart كما يناسب سيناريو العرض الذى تفضلة او المعالحة التى ترغب بها يمكن تمرير المعلمات بسهولة أو الاعتماد على القيم الافتراضية المستخدمة فى التكويد وأخيرا الكود المستخدم داخل الوحدة النمطية : basReportUtils ' __ ' / /\ ' / / \www.officena.net™ ' / / \__________ ' / / \ /\ ' /_/ \ / / ' ___\ \ ___\____/_/_ ' /____\ \ /___________/\ ' \ \ \ \ \ \ ' \ \ \ \____ \ \ ' \ \ \ / /\ \ \ ' \ / \_\/ / / \ \ ' \ / / /__________\/ ' / / / / ' /ابو جودى/ / / ' /________/ /\ / 21/07/2025 ' \________\/\ \ / منتديات أوفيسنا عالم من الابداع ' \_\/_____________________________________ Option Compare Database Option Explicit '' ==== متغير خاص لتخزين مؤقت لمصادر البيانات ==== ' --- Dictionary لتخزين RecordSource للتقارير Private m_dictRecordSource As Object '' ==== دالة: التحقق من وجود تقرير داخل قاعدة البيانات ==== Private Function ReportExists(ByVal strReportName As String) As Boolean On Error Resume Next ReportExists = Not CurrentProject.AllReports(strReportName) Is Nothing On Error GoTo 0 End Function '' ==== دالة: الحصول على مصدر البيانات لتقرير معين مع تخزين مؤقت ==== Private Function GetRecordSource(ByVal strReportName As String) As String If m_dictRecordSource Is Nothing Then Set m_dictRecordSource = CreateObject("Scripting.Dictionary") End If If m_dictRecordSource.Exists(strReportName) Then GetRecordSource = m_dictRecordSource(strReportName) Exit Function End If On Error GoTo ErrHandler DoCmd.OpenReport strReportName, acDesign, , , acHidden GetRecordSource = Trim(Reports(strReportName).RecordSource) DoCmd.Close acReport, strReportName, acSaveNo m_dictRecordSource.Add strReportName, GetRecordSource Exit Function ErrHandler: GetRecordSource = "" End Function '' ==== دالة: التحقق من احتواء التقرير على بيانات ==== Private Function ReportHasData(ByVal strReportName As String, ByVal strRecordSource As String, _ Optional ByVal strWhereCondition As String = "", _ Optional ByVal strOpenArgs As String = "") As Boolean Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim qdf As DAO.QueryDef Dim lngCount As Long Dim bolIsQuery As Boolean On Error GoTo ErrHandler Set dbs = CurrentDb ''---- التحقق مما إذا كان strRecordSource يشير إلى استعلام محفوظ On Error Resume Next Set qdf = dbs.QueryDefs(strRecordSource) If Err.Number = 0 Then bolIsQuery = True Else Err.Clear bolIsQuery = False End If On Error GoTo ErrHandler ''---- محاولة حساب عدد السجلات If bolIsQuery Or InStr(1, strRecordSource, "SELECT", vbTextCompare) = 1 Then On Error Resume Next If bolIsQuery Then ''---- إذا كان استعلامًا محفوظًا، تحقق من المعلمات If qdf.Parameters.Count > 0 Then ReportHasData = False ' لا يمكن معالجة معلمات بدون قيم GoTo CleanUp End If Set rst = qdf.OpenRecordset(dbOpenSnapshot, dbReadOnly) Else ''---- إنشاء استعلام مؤقت مع strWhereCondition Dim strSQL As String strSQL = strRecordSource If Len(strWhereCondition) > 0 Then strSQL = strSQL & " WHERE " & strWhereCondition End If Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot, dbReadOnly) End If If Err.Number = 0 Then lngCount = IIf(rst.EOF, 0, rst.RecordCount) rst.Close Set rst = Nothing Else Err.Clear lngCount = 0 End If On Error GoTo ErrHandler Else On Error Resume Next lngCount = Nz(DCount("*", strRecordSource, strWhereCondition), 0) If Err.Number <> 0 Then Err.Clear lngCount = 0 End If On Error GoTo ErrHandler End If ''---- إذا لم يكن هناك سجلات، تحقق من HasData If lngCount = 0 Then On Error Resume Next DoCmd.OpenReport strReportName, acViewPreview, , strWhereCondition, acHidden, strOpenArgs If Err.Number = 0 Then ReportHasData = Reports(strReportName).HasData DoCmd.Close acReport, strReportName, acSaveNo Else Err.Clear ReportHasData = False End If On Error GoTo ErrHandler Else ReportHasData = True End If CleanUp: If Not rst Is Nothing Then rst.Close Set rst = Nothing End If If Not qdf Is Nothing Then Set qdf = Nothing End If Set dbs = Nothing Exit Function ErrHandler: ReportHasData = False GoTo CleanUp End Function '' ==== إجراء عام: عرض تقرير بعد التحقق من وجوده واحتوائه على بيانات من وجود بيانات وطلب تأكيد الطباعة ==== Public Sub OpenReportSmart(ByVal strReportName As String, _ Optional ByVal bolAskToPrint As Boolean = True, _ Optional ByVal strViewMode As AcView = acViewNormal, _ Optional ByVal strWhereCondition As String = "", _ Optional ByVal strOpenArgs As String = "", _ Optional ByVal bolSilent As Boolean = False) Const strTitleConfirm As String = "تأكيد الطباعة" Const strTitleAlert As String = "تنبيه" Const strTitleError As String = "خطأ" Dim strRecordSource As String On Error GoTo ErrHandler ''---- التحقق من وجود التقرير If Not ReportExists(strReportName) Then If Not bolSilent Then MsgBox "التقرير '" & strReportName & "' غير موجود.", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleAlert End If Exit Sub End If ''---- الحصول على مصدر البيانات strRecordSource = GetRecordSource(strReportName) If Nz(strRecordSource, "") = "" Then If Not bolSilent Then MsgBox "التقرير '" & strReportName & "' لا يحتوي على مصدر بيانات.", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleAlert End If Exit Sub End If ''---- التحقق من وجود بيانات If Not ReportHasData(strReportName, strRecordSource, strWhereCondition, strOpenArgs) Then If Not bolSilent Then MsgBox "التقرير '" & strReportName & "' لا يحتوي على بيانات.", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleAlert End If Exit Sub End If ''---- طلب تأكيد الطباعة If bolAskToPrint And Not bolSilent Then If MsgBox("هل تريد طباعة التقرير '" & strReportName & "'؟", vbYesNo + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleConfirm) = vbNo Then Exit Sub End If End If ''---- فتح التقرير DoCmd.OpenReport strReportName, strViewMode, , strWhereCondition, acWindowNormal, strOpenArgs CleanUp: Exit Sub ErrHandler: Select Case Err.Number Case 2501 ''---- تم إلغاء العملية Case 2212 If Not bolSilent Then MsgBox "تم إلغاء عملية الطباعة أو تعذر العثور على التقرير '" & strReportName & "'.", _ vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleAlert End If Case Else If Not bolSilent Then MsgBox "حدث خطأ أثناء فتح التقرير '" & strReportName & "'!" & vbCrLf & _ "رقم الخطأ: " & Err.Number & vbCrLf & _ "الوصف: " & Err.Description, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, strTitleError End If End Select GoTo CleanUp End Sub وفى هذا الجزء استعرض بعض الامثلة لطرق الاستدعاء واستخدام الكود ' ====== (OpenReportSmart) طرق استدعاء الإجراء الرئيسي ====== '' 01 --- أبسط استدعاء بدون معلمات إضافية '' --- يعرض التقرير rptEmployees في الوضع الافتراضي للطباعة، مع تأكيد وظهور الرسائل Call OpenReportSmart("rptEmployees") '' 02 --- استدعاء بدون تأكيد '' --- يعرض التقرير بدون سؤال المستخدم عن التأكيد قبل الطباعة Call OpenReportSmart("rptEmployees", False) '' 03 --- فتح التقرير في وضع المعاينة Preview '' --- يفتح التقرير في وضع المعاينة، مع تأكيد قبل العرض Call OpenReportSmart("rptEmployees", True, acViewPreview) '' 04 --- تمرير شرط تصفية Where '' --- عرض التقرير فقط للموظفين في قسم معين Call OpenReportSmart("rptEmployees", True, acViewPreview, "DepartmentID = 5") '' 05 --- تمرير بيانات عبر OpenArgs '' --- يستخدم OpenArgs داخل التقرير لتخصيص العرض Call OpenReportSmart("rptEmployees", True, acViewPreview, , "ShowSummary") '' 06 --- الوضع الصامت (لا يظهر أي رسائل) '' --- يفترض صحة كل شيء، ولا يعرض أي تنبيهات للمستخدم Call OpenReportSmart("rptEmployees", , , , , True) '' 07 --- مثال كامل بجميع المعاملات '' --- عرض بالتصفية، ووسائط OpenArgs، مع تأكيد، بدون صمت Call OpenReportSmart("rptEmployees", True, acViewPreview, "IsActive = True", "FromMainMenu", False) '' 08 --- مثال طباعة تقرير بناءً على اختيار موظف من نموذج Public Sub Example5_PrintReportWithDynamicFilter() ' ' --- التحقق من تحميل نموذج اختيار الموظف If CurrentProject.AllForms("frmEmployeeSelector").IsLoaded Then Dim strFilter As String strFilter = "EmployeeID = " & Forms!frmEmployeeSelector!cboEmployeeID Call OpenReportSmart("rptEmployeeAttendance", True, acViewNormal, strFilter) Else MsgBox "يرجى فتح نموذج اختيار الموظف أولاً.", _ vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" End If End Sub '' 09 --- معاينة تقرير ليوم محدد (تاريخ اليوم) Public Sub Example6_PreviewReportWithDateFilter() Dim strFilter As String strFilter = "ReportDate = #" & Format(Date, "mm/dd/yyyy") & "#" Call OpenReportSmart("rptDailySummary", True, acViewPreview, strFilter) End Sub '' 10 --- استدعاء التقرير باستخدام متغير شرط بتنسيقات مختلفة (نصي، رقمي، تاريخي) '' --- المثال الاساسى Call OpenReportSmart("rptEmployees", True, acViewPreview, "DepartmentID = 5") ''>>--> رقمي (رقم قسم مثلاً) Public Sub Example_NumericFilter() Dim lngDepartmentID As Long lngDepartmentID = 5 Dim strFilter As String strFilter = "DepartmentID = " & lngDepartmentID Call OpenReportSmart("rptEmployees", True, acViewPreview, strFilter) End Sub ''>>--> نصي (اسم الموظف مثلاً) Public Sub Example_TextFilter() Dim strEmployeeName As String strEmployeeName = "محمد علي" Dim strFilter As String strFilter = "EmployeeName = '" & strEmployeeName & "'" Call OpenReportSmart("rptEmployees", True, acViewPreview, strFilter) End Sub ''>>--> تاريخ (بيانات ليوم معين) Public Sub Example_DateFilter() Dim datTargetDate As Date datTargetDate = DateSerial(2025, 7, 1) Dim strFilter As String strFilter = "HireDate = #" & Format(datTargetDate, "mm/dd/yyyy") & "#" Call OpenReportSmart("rptEmployees", True, acViewPreview, strFilter) End Sub ' ======================= استخدام المعايير حسب انواع البيانات ======================= '>>--> رقمي-----Long / Integer : "FieldName = " & Numeric '>>--> نصي----String : "FieldName = '" & النص & "'" '>>--> تاريخ----Date : "FieldName = #" & Format(date, "mm/dd/yyyy") & "#" ' ===================================================================================== ولكن وجب التنويه الى شئ : الأكواد قيد التجربـــة أنا لسه كاتب الاكواد بناء على سؤال فى المنتدى

السلام عليكم الاخوة الاساتدة الكرام السؤال الاول لا اعرف سبب عدم ظهور تقرير عند معاينة في البداية كان كل تقارير تظهر عند المعاينة و للعلم البرنامج تظهر النمادج فقط لان شاشة اكسس مخفية فما هو المشكل والسؤال الثاني فهو مقاس التقرير صممته في مقاس محدد ورقة (A4 ) مقسومة على ثلاثة يعني عرض تقرير (7 سم) ثم اجده ليس بنفس المقاس .... يتغير تلقائيا هل يوجد حل ام طريقة لجعل المقاسات تقرير ثابتة عند اضافتها اكسس 2010 وشكرا

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

السلام عليكم ورحمة الله وبركاته اخواتي واحبائي اساتذتي ومعلميني واصدقاءئي زادكم الله من العلم ونفع به غيركم وسدد الله خطاكم وقوم سلككم بدون إطاله {هل من الممكن استخدام كريستال ريبورت مع اكسس بدلا من التقارير الخاصه باكسس }

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

السلام عليكم ورحمة الله ممكن واحد بس يساعدني في برنامج حسب المرفق قبل شهر يقول تقاعد فلان س تقاعد.rar

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

السلام عليكم اساتذتى الكرام عاوز كود عند تشغيله يحذف جميع الكائنات فى القاعدة استعلامات ونماذج وتقارير هل يوجد كود مثل هذا ؟ ملحوظة : محرر الفاجوال بيسك عليه باسوورد طبعا فى الطبيعى عملية الحذف مش هتتم غير لما افتح محرر الفاجوال واضع الباسوورد بقى مطلوب الكود السابق مع امكانية اضافة باسوورد الفاجوال بيسك بداخله او يتخطى هذه الخطوة ان امكن متم بخير .. وتقبل منا ومنكم صالح الاعمال

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

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

السلام عليكم ورحمة الله وبركاته ... الاخوة الافاضل محتاج مساعدتكم عندي قمت بتصميم برنامج ادارة عقارات ويوجد عند فورم به ثلاث صفحات كالتالي: 1- صفحة بيانات المستأجر 2- المدفوعات 3- كشف حساب ( وهو ده صلب الموضوع ) المطلوب : عند تسجيلي للمدفوعات بتظهر في كشف الحساب للعميل وكشف الحساب عبارة عن فورم مدرج داخل الصفحة ولاكن عند طباعة كشف الحساب لا يطبع كل مدفوعات المستأجر يطبع فقط الدفعه التي يقف فيها مؤشر الموس , وانا اريد عند الطباعة يطبع كل المدفوعات الظاهرة للعميل المختار وجزاكم الله عنا كل خير

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى ) للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه استخدام الاكسيل البيانى و CHART فى عرض التقارير عرض البيانات الشهريه والربع سنوية فى مخطط _ أ / محمد الريفى 3D - Chart _ أ / محمد الريفى CHART _ أ / محمد الريفى استخدام الصور فى الرسوم والمخططات البيانيه _ أ / محمد الريفى المخططات والرسوم الديناميكة (Excel dynamic chart) _ أ / محمد الريفى لأصحاب الذوق العالى فى اعداد التقارير باستخدام الاكسيل _ أ / محمد الريفى رسم بياني داخل فورم _ أ / الحسامي chart slide showعلى الأكسل....! _ الاستاذ / أبو جديد تحريك الـ WordArt _ أ/ زياد علي المخطط البياني السحري _ أ/ الزباري كتابة أعلى وأدنى قيمة على التخطيط البياني _ أ/ أبوعبد الله موقع على اعلى درجه من مستويات الاحتراف في عمل ال CHARTS _ مخططات بيانية اكواد الالة الحاسبه اظهار الالة الحاسبة من خلال زر فى فورم _ مشاركات الاعضاء

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد أحبابى واساتذتى فى منتدى اوفيسنا الملف المرفق هو عبارة عن ملف اكسل ميبعات ومشتريات ومخازن وتركيبات وطبعا كل الشيتات مرتبطة مع بعضها وبالمخزن تحديدا وحاليا انا فى شراكة مع احد الاصدقاء بنسبة 50% من الربح حيث تم الاتفاق على احتساب ربح ما سيتم بيعه من المنتجات وبعد ذلك خصم مصاريف المحل (كهرباء - عمالة - ايجار ) وبعد ذلك ما يتبقى من الربح يقسم بنسبة 50 % بينى وبينه قمت بتصميم شيت المبيعات ليقوم باحتساب قيمة الربح فى كل منتج سيباع ومجموع المبيعات اليومية ومجموع الربح اليومى وبالطبع لأقوم باحتساب مثلا نسبة الربح خلال شهر أولا أقوم بجمع الربح كله من خلال sum وبعد ذلك سأقوم بخصم المصروفات وبعد ذلك تقسيم الباقى بينى وبينه بالنسبة المتفق عليها طبعا انا اقوم بجمع الايراد اليومى والربح اليومى بشكل يدوي من خلال دمج الخلايا واستخدام sum وكذلك فى نهاية كل شهر ساقوم بجمع كل من الايرادات والربح وخصم المصروفات بشكل يدوي المطلوب هل من طريقة ماكرو مثلا او معادلة او ما شابه ليقوم بهذا الدور الذى انفذه بشكل يدوى ليتم اوتوماتيكيا بمعنى مع نهاية مبيعات اليوم يتم اوتوماتيكيا جمع ايرادات اليوم وصافى الربح ودمجها فى خلية واحدة كما افعل انا ومع نهاية الشهر يتم احتساب ذلك تلقائيا فى نهاية الشهر الرجاء المساعدة ولكن دون الخوض فى التفاصيل المعقدة للمحاسبة لأنى لا افقه شىء فى المحاسبة نهائيا وجزاكم الله خيرا ادارة المحل.rar

السلام عليكم عندي تقرير اسمه تفاصيل امرالشراء (Order Details) يعتمد علي باراميتر اسمه رقم الامر الشراء حيث يقوم بطباعه تفاصيل امرالشراء بناءا علي رقم الامر المطلوب هو طباعه اوامر الشراء من مجال معين من الارقام (مثلا من امر شراء رقم 200 حتي امر شراء رقم 500) كل امر شراء لوحده. مثال اخر : طباعه عدد من معين من الفواتير (مثلا من فاتورة رقم 1 حتي فاتورة رقم 55) اتمني الافاده بأي افكار او كلامات دلالية يمكن البحث عليها (حتي لو باللغه الانجليزية) شكرا :)

انا باعمل برنامج عن أجازات الموظفين وطبقا لقانون العمل والعمال داخل الدولة فلايجوز السماح باجازة اكثر من 20% فقط من اجمالى الموظفين الموجودين على كفالة كفيل واحد بمعنى اننى مثلا لو عندنا كفيل اسمه المطابخ وعدد الموظفين على كفالته 100 فلايجوز ان نسمح باجازة باكثر من 20 موظفين فى وقت واحد ماتوصلت اليه : هو عمل تقرير بحسب اسم الكفيل والتاريخ والمطلوب :1- ان يظهر فى التقرير اجمالى عدد الموظفين للكفيل الذى تم البحث عنه فقط 2-ان يظهر ايضا عدد الموظفين المسموح لهم بالاجازة فى التاريخ الذى تم البحث عنه 3-ان تحسب نسبة الاجازات الى اجمالى عدد الموظفين فى الكفيل الرجاء حل المشكلة مع الشرح ان امكن وتقبلو تحياتى ملحوظة : نموذج البحث اسمه searchfr والتقرير rmain الموظفين.rar

المطلوب عمل تقرير لكل عمبل على حده يأخذ بياناته من جدول العملاء : 1 - الرصيد : - وده هيجيب اخر رصيد للعمبل 2 - تاريخ اخر دفعه : - وده هيجيب أكبر ناريخ لما يكون فيه دفع في جانب الدائن 3 - مبلغ الدفع : وده هيجيب مبلغ الدفعه من جانب الدائن اللي أندفع في اخر تاريخ مرفق ملف report.zip