نجوم المشاركات

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

مجهود جميل أستاذ @عبدالله بشير عبدالله ، ومتابعة جيدة جداً منكم جميعاً .. تم نقل الإجابة إلى آخر مرفق . وعله يكون الشافي لأخينا @بلانك

كده تمام الله يبارك فيك وهو المطلوب ..... ربنا يعطيك العمر المديد .... وأنفع الناس للناس وانت اهل لذلك . فلك الشكر

السادة الزملاء : مرفق دالة التفقيط بدون اكواد كل ما عليك ان تدرج الشيت المرفق فى اى ملف اكسيل تريد تفعيل دالة التفقيط بدون اكواد ولو نسخة الاكسيل 2021 فيما فوق يتم استخدام دالة مخصصة اسمها tafkeet Tafqeet_Dynamic_System (1).xlsx

حرب التعديل التالي توزيع عدد الحصص (233) (1).xlsm

[تعليق جعفر] بالاشارة الى الموضوع التالي بعد فصل الموضوع عن رده في موضوعه المشار إليه أعلاه .. بصوا على الخفة في الأداء😎 :- Option Compare Database Option Explicit Const TargetControlName As String = "CyberClock" '' ' اسم عنصر عرض الوقت النصي ليبل/مربع نص/زر #If VBA7 Then Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long Private Declare PtrSafe Function SetWinEventHook Lib "user32" (ByVal eventMin As Long, ByVal eventMax As Long, ByVal hmodWinEventProc As LongPtr, ByVal pfnWinEventProc As LongPtr, ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long) As LongPtr Private Declare PtrSafe Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As LongPtr) As Long Private Declare PtrSafe Function GetAncestor Lib "user32" (ByVal hWnd As LongPtr, ByVal gaFlags As Long) As LongPtr Public NativeTimerID As LongPtr Private WinEventHookID As LongPtr Private AccessHwnd As LongPtr #Else Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Private Declare Function SetWinEventHook Lib "user32" (ByVal eventMin As Long, ByVal eventMax As Long, ByVal hmodWinEventProc As Long, ByVal pfnWinEventProc As Long, ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long) As Long Private Declare Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As Long) As Long Private Declare Function GetAncestor Lib "user32" (ByVal hWnd As Long, ByVal gaFlags As Long) As Long Public NativeTimerID As Long Private WinEventHookID As Long Private AccessHwnd As Long #End If Private Const EVENT_SYSTEM_FOREGROUND As Long = &H3 Private Const WINEVENT_OUTOFCONTEXT As Long = &H0 Private Const GA_ROOT As Long = 2 Private gWasStoppedByVBE As Boolean Private gTimerInterval As Long #If VBA7 Then Public Sub NativeTimerCallback(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long) #Else Public Sub NativeTimerCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) #End If On Error Resume Next Dim currentTime As Variant Dim timeText As String currentTime = Now() timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dddd, dd/mm/yyyy") '' ' 1. الوقت فقط (سطر واحد) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 2. التاريخ فقط (سطر واحد) '' timeText = Format$(currentTime, "dd/mm/yyyy") ' '' ' 3. الوقت والتاريخ في سطر واحد '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & " - " & Format$(currentTime, "dd/mm/yyyy") ' '' ' 4. الوقت فوق التاريخ (سطرين) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dd/mm/yyyy") ' '' ' 5. التاريخ فوق الوقت (سطرين) '' timeText = Format$(currentTime, "dd/mm/yyyy") & vbCrLf & Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 6. الوقت مع اسم اليوم والتاريخ (سطر واحد) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & " - " & Format$(currentTime, "dddd, dd/mm/yyyy") ' '' ' 7. التاريخ مع اسم اليوم فقط (سطر واحد) '' timeText = Format$(currentTime, "dddd, dd/mm/yyyy") ' '' ' 8. التاريخ مع اسم اليوم فوق الوقت (سطرين) '' timeText = Format$(currentTime, "dddd, dd/mm/yyyy") & vbCrLf & Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 9. الوقت فقط مع ثواني بصيغة 24 ساعة '' timeText = Format$(currentTime, "HH:nn:ss") ' '' ' 10. الوقت مع التاريخ مختصر (رقم الشهر بدل اسمه) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dd/mm/yy") ' '' ' 11. تنسيق أمريكي (شهر/يوم/سنة) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "mm/dd/yyyy") ' '' ' 12. مع اسم اليوم والمختصر '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "ddd, dd/mm/yyyy") ' Mon, 15/04/2026 ' '' ' 13. نص مخصص بالكامل '' timeText = "الوقت: " & Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & "التاريخ: " & Format$(currentTime, "dddd, dd/mm/yyyy") Dim frm As Object, ctl As Object, target As Object For Each frm In Forms Err.Clear Set target = frm.Controls(TargetControlName) If Err.Number = 0 Then target.Caption = timeText target.Value = timeText End If For Each ctl In frm.Controls Err.Clear Set target = ctl.Form.Controls(TargetControlName) If Err.Number = 0 Then target.Caption = timeText target.Value = timeText End If Next ctl Err.Clear Dim LineS As Object, LineM As Object, LineH As Object Dim CX As Long, CY As Long Dim Radius As Long Set LineS = frm.Controls("LineSec") Set LineM = frm.Controls("LineMin") Set LineH = frm.Controls("LineHour") If Err.Number = 0 Then CX = frm.Controls("Line02").Left + (frm.Controls("Line02").Width / 2) CY = frm.Controls("Line01").Top + (frm.Controls("Line01").Height / 2) Radius = frm.Controls("Line02").Width / 2 Dim secAngle As Double, minAngle As Double, hrAngle As Double secAngle = Second(currentTime) * 6 minAngle = Minute(currentTime) * 6 + (Second(currentTime) * 0.1) hrAngle = (Hour(currentTime) Mod 12) * 30 + (Minute(currentTime) * 0.5) DrawClockHand LineS, CX, CY, CLng(Radius * 0.9), secAngle DrawClockHand LineM, CX, CY, CLng(Radius * 0.75), minAngle DrawClockHand LineH, CX, CY, CLng(Radius * 0.5), hrAngle End If Next frm End Sub Public Sub DrawClockHand(ByRef ctlLine As Object, ByVal CX As Long, ByVal CY As Long, ByVal L As Long, ByVal AngleDeg As Double) Const Pi As Double = 3.14159265358979 Dim Rad As Double Dim EX As Long, EY As Long Rad = AngleDeg * Pi / 180 EX = CX + (L * Sin(Rad)) EY = CY - (L * Cos(Rad)) ctlLine.Width = Abs(EX - CX) ctlLine.Height = Abs(EY - CY) If ctlLine.Width = 0 Then ctlLine.Width = 1 If ctlLine.Height = 0 Then ctlLine.Height = 1 If EX < CX Then ctlLine.Left = EX Else ctlLine.Left = CX If EY < CY Then ctlLine.Top = EY Else ctlLine.Top = CY If Sgn(EX - CX) = Sgn(EY - CY) Or Sgn(EX - CX) = 0 Or Sgn(EY - CY) = 0 Then ctlLine.LineSlant = False Else ctlLine.LineSlant = True End If End Sub Public Sub StartNativeTimer(Optional ByVal IntervalMs As Long = 500) gTimerInterval = IntervalMs If NativeTimerID = 0 Then NativeTimerID = SetTimer(0, 0, IntervalMs, AddressOf NativeTimerCallback) End If If WinEventHookID = 0 Then WinEventHookID = SetWinEventHook(EVENT_SYSTEM_FOREGROUND, EVENT_SYSTEM_FOREGROUND, 0, AddressOf ForegroundChangedProc, 0, 0, WINEVENT_OUTOFCONTEXT) End If End Sub Public Sub StopNativeTimer() If NativeTimerID <> 0 Then KillTimer 0, NativeTimerID NativeTimerID = 0 End If If WinEventHookID <> 0 Then UnhookWinEvent WinEventHookID WinEventHookID = 0 End If End Sub Private Function IsVBEOpen() As Boolean On Error Resume Next IsVBEOpen = Application.VBE.MainWindow.Visible If Err.Number <> 0 Then IsVBEOpen = False On Error GoTo 0 End Function #If VBA7 Then Public Sub ForegroundChangedProc(ByVal hWinEventHook As LongPtr, ByVal eventId As Long, ByVal hWnd As LongPtr, ByVal idObject As Long, ByVal idChild As Long, ByVal dwEventThread As Long, ByVal dwmsEventTime As Long) #Else Public Sub ForegroundChangedProc(ByVal hWinEventHook As Long, ByVal eventId As Long, ByVal hWnd As Long, ByVal idObject As Long, ByVal idChild As Long, ByVal dwEventThread As Long, ByVal dwmsEventTime As Long) #End If On Error Resume Next If AccessHwnd = 0 Then AccessHwnd = Application.hWndAccessApp If IsVBEOpen() Then If NativeTimerID <> 0 Then KillTimer 0, NativeTimerID NativeTimerID = 0 gWasStoppedByVBE = True End If Else If gWasStoppedByVBE Then If GetAncestor(hWnd, GA_ROOT) = AccessHwnd Then If NativeTimerID = 0 Then NativeTimerID = SetTimer(0, 0, gTimerInterval, AddressOf NativeTimerCallback) End If gWasStoppedByVBE = False End If End If End If End Sub وطبعاً الإستدعاء هيكون فقط زي كدة :- Private Sub Form_Load() StartNativeTimer End Sub Private Sub Form_Unload(Cancel As Integer) StopNativeTimer End Sub والملف البسيط ده هدية كبيرة مني لموضوعك المشار إليه نموذج يحتوي فرعي ,, ونموذج رئيسي ، وساعة بالعقارب ورقمية ... Time With No TimerInterval.accdb ودي صورة كمان تخليك تستغرب إن الوقت والساعة شغالين في وضع التصميم لو عاوز .. يعني الحدث عند الوقت ملهوش أي اعتبار عندي هنا . وما تحللش كتير في الكود يا أبو جودي ، هو بسيط و واضح ومقروء ، أصلي ما قرأتش في موضوعك غير جملتين .

لديك الحق استبدل في الكود wsSource.Range("A4:I4").ClearContents الى wsSource.Range("A7:I7").ClearContents بمعنى الرقم 4 غيره الى 7 فقط

الله ينور بتشغيل المرفق من داخل أكسس 2007 وتطبيقه على ملفين إحداهما حديث " تجربة.accdb " والآخر قديم تنسيق 2003 " مدرسين.mdb " تمام لكلا الملفين ، وأعتقد أنه لا حاجة لتحويل هذا المرفق إلى نظام 2003 لأن المطلوب هو تأثيره على ملفات 2003 بجانب تأثيره على الملفات الأحدث

وعليكم السلام نعم اعلم ان هناك طلب ثاني وكان ردي السابق لطلبك الاول اليك الملف وبه طلبك الثاني Plateform19840019.xlsb

المرفق بعد التجربة على 2003 لو تمام يبقى ماشئ الحل لو فى مشكلة ظهرت قم بانشاء قاعدة بيانات جديدة من الاصدار 2003 وبعد ذلك قم بتصميم النموذج والاكواد من هذه النسخة واخرنا النتيجة من فضلك تفعيل وإلغاء الشفت-V2.accdb

استاذ @أحمد العيسى خلينى اوضح شئ مهم جدا جدا وانا عدلت الاكواد بسببها يستحيل ان اكسس اقل فى اصدار 2007 يقوم بعمل تفعيل او الغاء تفعيل بالشفت لقواعد بيانات تمت على اصدارات اعلى من او يساوى 2007 السبب: السبب ان الاصدارات الاقل تعتمد على محرك اساسا لا يستطيع التعامل مع قواعد بيانات تمت على اصدارات احدث واللى نتيجتها الرسالة اللى انت شاركتها ولكن العكش ممكن فمحرك قواعد البيانات الحديثة يمكنه التعامل مع قواعد البيانات الاقل من 2007 جملة الاتصال لتمرير كلمة المرور تختلف بين الاصدارات اقل من 2007 واعلى من او يساوى الاصدار 2007 واتفضل المرفق

تفضل ، ارفقت المثال البسيط ، فرجاء تضبيطه بدالتك 🙂 TimeInterval.accdb

شكلك اتحضيت من شكل التحليل متتكسفش قول الحق

ان شاء الله عالاسبوع الجاي كده ولا حاجه لان اليومين دول مش فاضي

هو خلينا نتفق على شئ فى البداية هو مش بيعمل هو بينفذ طلباتك بالرد نظرى او باكواد وانت تنفذ طيب بالنسبة لى انا الطلب المنطقى الاول اللى اطلبه منه تحليل النظم وبعدين اشوف الناتج والاول وقبل اى شئ ادرسة كويس جدا جدا جدا واذا محتاج تعديل اعدل او اطلب منه يعدل اللى انا محتاج لتعديله ولان انا مش فاهم فى المحاسبة وعلى الله حكايتى هسيب لكم تجربتى معاه وكل واحد يقارن نتيجة تجربته مع الموجود هنا أولاً: نطاق النظام وأهدافه الاستراتيجية نظام متكامل لإدارة العمليات المالية والإدارية بين: فرع رئيسي واحد. عدد غير محدود من الفروع الفرعية. موظفين تابعين لكل فرع. عمليات يومية وشهرية وسنوية. نظام جرد وأرصدة وتقارير مالية كاملة. مرونة كاملة عبر جداول مساعدة تمنع الحاجة لأي تعديل هيكلي أو برمجي مستقبلاً. ثانياً: الكيانات الرئيسية (بدون أسماء جداول – مجرد وصف وظيفي) الفرع الرئيسي كيان وحيد. له رصيد خاص. يغذي الفروع. يستقبل أرباح أو أرصدة زائدة من الفروع. الفرع الفرعي عدد غير محدود. لكل فرع رصيد مستقل. له عنوان وبيانات اتصال. له صلاحيات تحويل مختلفة حسب سياسة النظام. الموظف تابع لفرع فرعي واحد فقط. له راتب ثابت أو متغير. له خصومات وإضافات شهرية ثابتة أو متغيرة. التحويل اليومي حركة أموال بين رئيسي وفرعي أو بين فروع مع بعضها (لو سمحت السياسة). له سبب محدد ورقم مرجعي. مصروف الفرع أي تكلفة يتحملها الفرع. بتصنف حسب نوع المصروف (من جدول مساعد). راتب الموظف تسجيل شهري لكل موظف. فيه تفصيل الخصومات والإضافات. الأصل الثابت ممتلكات للفرع (أجهزة، أثاث، عربيات). يستهلك شهرياً بقيمة إهلاك. إيراد الفرع أي دخل يحققه الفرع (مبيعات، خدمات، عمولات). ضروري لحساب الربح والخسارة. الأمانة أو الضمان مبلغ مدفوع مؤقتاً (تأمين إيجار، تأمين كهرباء). يتحول لمصروف فعلي لو لم يسترد. السلفة أو القرض سلفة للموظف أو قرض بين الفروع. له أقساط وتسديدات. المخصص والاحتياطي مبلغ محجوز لاستخدام مستقبلي (مكافأة نهاية خدمة، ديون مشكوك فيها). المصروف المقدم والإيراد المستحق مصروف مدفوع مقدماً على عدة فترات. إيراد مستحق ولم يقبض بعد. الفترة المالية شهر أو ربع سنة أو سنة. يتحكم في إقفال العمليات وترحيل الأرصدة. ثالثاً: الجداول المساعدة (Service Tables) – سر المرونة الكاملة هذه الجداول لا تحتوي على أي عمليات مالية، فقط بيانات تحكم: أنواع المصروفات – اسم النوع، تصنيف عام، هل يخضع لضريبة، نشط/غير نشط. أسباب التحويل – الاسم، الاتجاه المسموح به، هل يؤثر على الرواتب، نشط. أنواع الخصومات والإضافات على الراتب – الاسم، نوعه (خصم/إضافة)، طريقة حسابه (نسبة/مبلغ ثابت/متغير). قيم ثابتة للموظف – ربط موظف بنوع تسوية بقيمة ثابتة أو نسبة وفترة صلاحية. سياسات الرواتب – يوم الصرف، هل الخصومات تلقائية، حدود دنيا وعليا. صلاحيات التحويل للفروع – كل فرع يحدد له أسباب مسموحة وحد أقصى لكل عملية أو يوم. ثوابت النظام – أي قيمة قابلة للتغيير مستقبلاً (نسبة ضريبة، حد أدنى للرصيد، عدد أيام السماح). تسلسل المستندات – بادئة وبداية تسلسل لكل نوع معاملة (تحويل، مصروف، راتب، إلخ). أنواع الإيرادات – اسم الإيراد، تصنيفه، هل يخضع لضريبة. أنواع الأصول الثابتة – العمر الإفتراضي، نسبة الإهلاك السنوية، حساب الإهلاك المقترح. أنواع الأمانات والضمانات – اسم النوع، جهة الاستلام، هل قابل للاسترداد كلياً أو جزئياً. أنواع المخصصات – طريقة الحساب (نسبة من شيء، مبلغ ثابت، معادلة). العملات – اسم العملة، رمزها، سعر الصرف الافتراضي. أيام أسعار الصرف – سعر العملة في تاريخ محدد (للفروق). الفترات المالية – اسم الفترة، تاريخ البداية والنهاية، هل مقفولة. رابعاً: الجداول الأساسية للعمليات (بدون أسماء – فقط غرضها) سجل الفرع الرئيسي – اسمه، رصيده الحالي. سجل الفروع الفرعية – اسمها، تبعيتها للرئيسي، رصيدها الحالي، عنوانها، بيانات اتصالها. سجل الموظفين – اسمه، تابع لأي فرع، راتبه الأساسي، تاريخ تعيينه. سجل التحويلات اليومية – تاريخ، طرف مصدر وطرف مستقبل (رئيسي/فرعي)، المبلغ، السبب، الرقم المرجعي، حالة التحويل. سجل مصروفات الفروع – تاريخ، فرع، نوع المصروف، المبلغ، رقم الفاتورة، ملاحظات. سجل رواتب شهرية – شهر وسنة، موظف، المبلغ الإجمالي، تفصيل الخصومات والإضافات (مرتبط بجدول تفصيلي منفصل)، الصافي، تاريخ الصرف. تفصيل الخصومات والإضافات للراتب – ربط براتب محدد، بنوع تسوية، القيمة المطبقة هذا الشهر. سجل الأصول الثابتة – فرع، اسم الأصل، تاريخ الشراء، القيمة، العمر الإنتاجي، قيمة الخردة، القيمة الدفترية الحالية. سجل قسط الإهلاك الشهري – أصل، شهر وسنة، قيمة الإهلاك، تاريخ التسجيل. سجل إيرادات الفروع – تاريخ، فرع، نوع الإيراد، المبلغ، الفاتورة المرجعية، ملاحظات. سجل الأمانات والضمانات – فرع، نوع الأمانة، الجهة المستلمة، تاريخ الدفع، القيمة، تاريخ استحقاق الاسترداد، القيمة المستردة فعلياً. سجل السلف للموظفين – موظف، فرع، قيمة السلفة، تاريخها، عدد الأقساط، قيمة القسط، المتبقي. سجل تسديد أقساط السلف – ربط بالسلفة، تاريخ، قيمة القسط، المتبقي بعد السداد. سجل القروض بين الفروع – من فرع إلى فرع، قيمة القرض، تاريخه، فائدة (نسبة أو مبلغ)، جدول سداد، المتبقي. سجل المخصصات – فرع، نوع المخصص، الرصيد أول الفترة، الإضافة خلال الفترة، الاستخدام خلال الفترة، الرصيد آخر الفترة. سجل المصروفات المقدمة – فرع، نوع المصروف، إجمالي المبلغ المدفوع، تاريخ الدفع، عدد الشهور، القسط الشهري، رصيد المقدم المتبقي. سجل الإيرادات المستحقة – فرع، نوع الإيراد، القيمة المستحقة، تاريخ الاستحقاق، هل تم تحصيله أم لا. سجل التسويات البنكية – فرع، حساب بنكي، الرصيد البنكي الفعلي، الرصيد الدفتري، تاريخ التسوية، الفروق المفسرة. سجل شيكات تحت التحصيل – فرع، رقم الشيك، قيمته، جهة الإصدار، تاريخ الاستحقاق، هل صرف أم لا. سجل الموازنات التخطيطية – سنة، فرع، بند (مصروف أو إيراد أو راتب)، القيمة المخططة. سجل الأرصدة الدورية – فرع، تاريخ نهاية الفترة، نوع الفترة، الرصيد الرسمي، ملاحظات. سجل الرصيد اليومي التراكمي – فرع، تاريخ، رصيد آخر اليوم، إجمالي واردة اليوم، إجمالي صادرة اليوم، إجمالي مصروفات اليوم. سجل قيود تسوية الجرد – فرع، تاريخ الجرد، رصيد نظري، رصيد فعلي، الفرق، السبب، هل تم الاعتماد. سجل الجرد العام – تاريخ الجرد، إجمالي النظري لكل الفروع، إجمالي الفعلي، الفرق الإجمالي، تم التوزيع على الفروع. سجل تدقيق العمليات – أي عملية (إضافة، تعديل، حذف) لأي جدول عمليات، وقتها، مستخدمها، قيمتها القديمة والجديدة. خامساً: العلاقات المنطقية (بدون تفاصيل تقنية) رئيسي ← فروع (واحد لكثير) فرع ← موظفين (واحد لكثير) فرع ← تحويلات (واحد لكثير – كمصدر أو مستقبل) فرع ← مصروفات (واحد لكثير) فرع ← أصول ثابتة (واحد لكثير) فرع ← إيرادات (واحد لكثير) فرع ← أمانات (واحد لكثير) فرع ← مخصصات (واحد لكثير) فرع ← أرصدة دورية ويومية (واحد لكثير) موظف ← رواتب شهرية (واحد لكثير) موظف ← سلف (واحد لكثير) راتب شهري ← تفصيل خصومات وإضافات (واحد لكثير) أصل ثابت ← أقساط إهلاك (واحد لكثير) سلفة ← أقساط سداد (واحد لكثير) قرض بين فروع ← جدول سداد (واحد لكثير) كل الجداول المساعدة ترتبط بالجداول الأساسية عبر معرفات أجنبية (مثلاً: ExpenseTypeID في جدول المصروفات). سادساً: المعادلات الحسابية الأساسية رصيد فرع في تاريخ T = آخر رصيد مسجل في الرصيد اليومي التراكمي قبل T مجموع تحويلات واردة من تاريخ آخر رصيد حتى T مجموع تحويلات صادرة من تاريخ آخر رصيد حتى T مجموع مصروفات من تاريخ آخر رصيد حتى T مجموع إهلاك أصول (اختياري حسب السياسة) صافي راتب الموظف في شهر = الراتب الأساسي SUM(إضافات الشهر من جدول التفصيل) SUM(خصومات الشهر من جدول التفصيل) صافي ربح أو خسارة فرع في فترة = SUM(إيرادات الفترة) SUM(مصروفات الفترة) SUM(رواتب الفترة) SUM(إهلاك أصول الفترة) SUM(أقساط مخصصات مستهلكة) القيمة الدفترية للأصل = قيمة الشراء - SUM(أقساط الإهلاك المسجلة) فرق الجرد لفرع = رصيد فعلي (مدخل يدوي) - رصيد نظري (محسوب آلياً) إجمالي فرق الجرد العام = SUM(رصيد فعلي لكل الفروع) - SUM(رصيد نظري لكل الفروع) قسط المصروف المقدم الشهري = إجمالي المبلغ المدفوع / عدد الشهور المتبقي من السلفة = قيمة السلفة - SUM(أقساط السداد) سابعاً: التقارير النهائية (اللي هتطلع من النظام) كشف حساب الفرع الرئيسي (يومي، شهري، سنوي). كشف حساب كل فرع فرعي. ملخص التحويلات اليومية بين الرئيسي والفروع. كشف الرواتب الشهرية لكل فرع وكل موظف مع تفصيل الخصومات والإضافات. تقرير مصروفات كل فرع حسب النوع والفترة. تقرير أرباح وخسائر (P&L) لكل فرع ولجميع الفروع. الميزانية العمومية المجمعة. تقرير الأصول الثابتة والإهلاك لكل فرع. تقرير الأمانات والضمانات (المدفوعة والمستردة). تقرير السلف والديون (موظفين وفروع). تقرير المخصصات والاحتياطيات. تقرير التسويات البنكية. تقرير تحليل الفروق بين الموازنة والفعلي. تقرير الجرد العام والجرد الفردي. تقرير التدفق النقدي للفرع الرئيسي وكل فرع. تقرير ضريبة القيمة المضافة. تقرير فروق العملة (إن وجدت). تقرير سجل التدقيق الكامل (Audit Log). تقرير الإيرادات المستحقة والمصروفات المقدمة. تقرير أرصدة أول وفتر سابقة وترحيلات. ثامناً: سير العمل الكامل (Process Flow) بداية النظام: إدخال بيانات الفروع والموظفين. إدخال الأرصدة الافتتاحية عبر جدول الأرصدة الدورية. إدخال السياسات والثوابت والصلاحيات. أثناء التشغيل اليومي: تسجيل تحويلات يومية (يدوي أو آلي). تسجيل مصروفات فروع. تسجيل إيرادات فروع (اختياري). النظام يحدث الرصيد اليومي التراكمي تلقائياً. نهاية الشهر: حساب الرواتب الشهرية (يدوي أو آلي باستخدام قيم ثابتة الموظف). تسجيل أقساط الإهلاك للأصول الثابتة. تسجيل أقساط المخصصات. توزيع المصروفات المقدمة والإيرادات المستحقة. إقفال الفترة المالية وترحيل الأرصدة للفترة التالية. الجرد: تشغيل جرد لفرع واحد أو جرد عام. إدخال الرصيد الفعلي يدوياً. تسجيل الفروق وتصحيحها عبر قيود تسوية. نهاية السنة: إقفال حسابات الأرباح والخسائر. ترحيل الأرصدة للسنة الجديدة. طباعة التقارير السنوية. إعداد الموازنة التخطيطية للسنة القادمة. تاسعاً: الضمانات التي يقدمها هذا التحليل لا حاجة لأي تعديل هيكلي مستقبلاً لأن أي متغير جديد يضاف عبر الجداول المساعدة. لا حاجة لتعديل الأكواد لأن كل منطق التحكم قائم على بيانات. النظام جاهز لأي توسع (عملات متعددة، ضرائب، أصول، قروض، مخصصات، موازنات، تدقيق). يغطي 100% من الاحتياجات الحالية والمستقبلية المحاسبية لشركة بفروع متعددة. قابل للتنفيذ على MS Access مع استخدام VBA للتحكم الآلي، أو أي RDBMS آخر. عاشراً: خاتمة التحليل هذا التحليل يحتوي على: كل الكيانات الأساسية والمساعدة. كل العلاقات المنطقية. كل المعادلات الحسابية. كل التقارير الممكن احتياجها. كل سيناريوهات الجرد والأرصدة. كل المتطلبات المحاسبية المتقدمة (ضريبة، إهلاك، مخصصات، قروض، عملات، موازنات، تدقيق).

السلام عليكم ورحمه الله وبركاته الحمد لله على كل نعمه وكل افضاله التي لا تعد ولا تحصى كل الشكر والتقدير لحضراتكم والله علي اراءكم وعلي تفاعلكم وعلي ردودكم ايها العمالقه هذا ما اردته في موضوعي وكنت اتمني انه اصل بكم الي هذه المرحله ( ونوهت في بدايه موضوعي ونهايته اني اريدكم جميعا فضلا وليس امرا ان تعودوا الي ما كنتم عليه ) وهو ان تلتفو حول بعضكم سواء اتفقتم او اختلفتم فالعلم ليس حكرا لاحد ولا هناك شخص افضل من شخص ( بل هناك طريقه افضل من طريقه ) فإذا عجبكم مواضيع احد ( علقوا ) وإن لم يعجبكم ( لا داعي للسخريه ) وكان ذلك من حقي كعضو ان اطرح موضوع كأي من الأعضاء ( فتحدثت عن موضوع الذكاء الاصطناعي وتأثيره علي اكسس حتي لا اخالف قوانين المنتدي بأنه يتم حذفه او نقله الي مواضيع اخري ) وأعلم انه تم قراءت ما كتبته كليا وتم ايصال رسالتي ويشهد الله اني احبكم جميعا فالله

ليس لدي نسخة 2003 حتى أقوم بالتجربة ، ولكن الأمر مرهون بتجربتك على أكثر من إصدار أخي الكريم .. جرب كلا الحلين وأعتقد أنك سترسو على بر الإجابة بأمان .

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

السلام عليكم تفضل ... التجربة1.xls

تفضل استاذ @أحمد الشحات85 الشرح والمرفق حسب ما فهمت . ووافني بالرد . Ahmed ElShahat.rar

شكرا علر الرد : لكن المطلوب توزيع الحصص على مدار الاسبوع ( 5 ايام) اي لو عندي 5 حصص زيادة يتم توزيعهم الحصة الثامنة من كل يوم الاحد حصة والاثنين حصة وهكذا .... ولو 6 حصص زيادة يكون الاحد الحصة السابعة حصة والثامنة حصة وباقي الايام حصة وهكذا