Noon Ali

يا جماعة محتاجة مساعدتكم 🙏 عاوزة أعمل ملف Excel محاسبي مرتب فيه: ورقة باسم دليل الحسابات (أرقام + أسماء الحسابات) ورقة اليومية (تسجيل القيود بإسم الحساب والتاريخ) ورقة دفتر الأستاذ (ترحيل القيود لكل حساب) ورقة ميزان المراجعة يكون مربوط بالفترة الزمنية البحددها (من تاريخ / إلى تاريخ) الفكرة إنو أقدر أغير الفترة ويظهر لي ميزان المراجعة متوازن للحسابات (الممولين والمستلمين فقط) يعني دليل الحسابات عبارة عن عدد 2 ممول و البقية اسماء مستلمين مبالغ فقط يساعدني أجهز النموذج ده أكون شاكرة ليكم كتير 🌹

@بن علية حاجي تعيش بارك الله 😊😊😊😊😊😊😊😊😊😊😊😊😊😊 @بن علية حاجي لو لاحظت في أول شيت تم إدخال فترة من والى .... وانا هنزل تواريخ في ٢٠٢٤ و ٢٠٢٥ هل بياثر ؟؟؟ لان جربت كم معاملة في ٢٠٢٥ لا تحسب

اب

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

@Ali Mohamed Ali حياك اخي عندي هذا الملف ولم يصلح للاسف 😞

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

اهاااااااا لقد فهمت 🙂 اشكرك جزيل الشكر بارك الله فيك *ادعو للسودان* 😞 😞

@ابوخليل 🙂 🙂 تسلم بارك الله فيك ورفع قدرك بين الناس ادامك وحفظك 🙂 لم افهم هذه كيف تتم (تعلم هذه الارقام ستتضاعف مستقبلا فعليك الانتباه لهذا .. وعلاجه ان تقوم بضغط واصلاح قاعدة البيانات بين فترة وأخرى)

للرفع

@منتصر الانسي مفترض الرصيد التراكمي يزيد لما تكون في فاتورة و ينقص عند وجود دفع في حالة بتحصل لمن تكون في عدة رحل في نفس اليوم وبيحصل انه اي رحل في نفس اليوم بتتجمع مع بعض والصح اي رحلة تكون في صف مثلا عندك المورد رقم 4 Pertonour عندة عدد 2 رحل يوم 12/10 حط كل وحدة في صف 150300000 و 143550000 عمل ايه في الاول جمعهم الاتنين مع +153000000=446850000 الصح الطبيعي انه 153000000 + 150300000=303300000 +143550000=446850000 +147150000=594000000 وهكذا اذا عندي دفع يخصم كل عملية تكون لوحدها

@ابوخليل نعم صحيح كانت هي المشكلة سبحان الله ولكن جرب واختار معي اخر مورد اسمه PetroNour الرصيد صحيح الى يوم 14/10 =594000000 عند اضافة يوم 15/10 مفترض يطلع = 741150000 ولكن اصبح = 888300000 لانو في رحلتين في نفس التاريخ يقوم بجمع الرحل بس انا اريد اي رحلة في صف منفصل ؟؟؟؟؟ اضافة لي تقرير العملاء عند اختيار عميل بيطلع تقرير كل العملاء 😞

ولو في اي تحسينات مشكورين عليها ☺️

السلام عليكم ورحمة الله كيكفم اخوتي جميعا انا عندي قاعدة اكسس تشابة الكويك بوكس ولكن للعملاء والموردين شغالة حاليا في الموردين عند فتح التقرير للمورد المعني بجيب الرصيد التراكمي غير صحيح هكتب اسماء الاستعلامات التي اعمل عليها استعلام أساسي VendorStatementBaseQ VendorStatementWithBalanceQ التقرير Vendor Statement Report يعتمد على المصدر جدول اسمه TempVendorStatement كود زر اختيار المورد Private Sub btnPreview_Click() On Error GoTo ErrHandler Dim db As DAO.Database Dim rs As DAO.Recordset Dim runningBalance As Double Dim tempSQL As String Dim vendorID As Long Dim dtFrom As Date, dtTo As Date ' التحقق من المدخلات If IsNull(Me.cboVendor) Or IsNull(Me.txtFromDate) Or IsNull(Me.txtToDate) Then MsgBox "يرجى إدخال المورد وتاريخ البداية والنهاية.", vbExclamation Exit Sub End If vendorID = Nz(Me.cboVendor, 0) dtFrom = Me.txtFromDate dtTo = Me.txtToDate Set db = CurrentDb ' فتح الاستعلام الأساسي وترتيبه بدقة Set rs = db.OpenRecordset( _ "SELECT * FROM VendorStatementBaseQ " & _ "WHERE VendorID=" & vendorID & " AND TransDate BETWEEN #" & Format(dtFrom, "yyyy/mm/dd") & "# AND #" & Format(dtTo, "yyyy/mm/dd") & "# " & _ "ORDER BY TransDate ASC, IIf(TransType='Invoice',0,1), TransNum ASC;", dbOpenDynaset) ' تفريغ الجدول المؤقت db.Execute "DELETE FROM TempVendorStatement;", dbFailOnError runningBalance = 0 ' حساب الرصيد التراكمي لكل صف مع التعامل مع Null Do While Not rs.EOF runningBalance = runningBalance + Nz(rs!InvoiceAmount, 0) - Nz(rs!PaymentAmount, 0) tempSQL = "INSERT INTO TempVendorStatement " & _ "(VendorID, VendorName, TransDate, TransType, Memo, InvoiceAmount, PaymentAmount, RunningBalance) " & _ "VALUES (" & Nz(rs!VendorID,0) & ", '" & Replace(Nz(rs!VendorName,""), "'", "''") & "', #" & _ Format(Nz(rs!TransDate, Date), "yyyy/mm/dd") & "#, '" & Nz(rs!TransType,"") & "', '" & _ Replace(Nz(rs!Memo,""), "'", "''") & "', " & Nz(rs!InvoiceAmount,0) & ", " & Nz(rs!PaymentAmount,0) & ", " & runningBalance & ");" db.Execute tempSQL, dbFailOnError rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing ' فتح التقرير DoCmd.OpenReport "Vendor Statement Report", acViewPreview Exit Sub ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical If Not rs Is Nothing Then rs.Close Set rs = Nothing Set db = Nothing End Sub الشاشة الرئيسية اختيار مورد عند وضع الخيار مثلا Nepta وتاريخ البداية 1/1/2025 وتاريخ النهاية 31/12/2025 واضغط الزر بجيب المورد عندة فانورتان واحدة يوم 21/8 بقيمة 132750000 والثانية يوم 21/10/2025 بقيمة 12000000 مفترض الرصيد يكون 144750000 لكن يظهر 277500000 وهو غير صحيح ف الفكرة يحسب الفاتورة اولا ثم اذا في مبلغ دفع يتم الخصم ارجو منكم المساعدة وربنا يبارك فيكم QuickBooksStyle.rar

اب✋

السلام عليكم ورحمة الله وبركاته كيفكم جميعا وكل عام وانتم بخير وصحه وسلامه عندي عدد 2 تنكر وقود يتم تزويدهم بالوقود(كمية واردة) و من ثم يتم السحب منه للعملاء بالتذاكر (كمية مسحوبة) سعر اللتر بتغير على حسب ف اريد ملف يساعدني لمجرد النظر افهم الموقف ككل ك dashboard من لديه اقتراحات و تحسين فاليتفضل وشكرا جزيلا تنكر توزيد وقود.xlsx