abouelhassan

استاذى الحبيب أبو عبدالله الحلوانى زادك الله من فضله وكرمه سأشرح لحضرتك بمثال لدينا البيانات الاتية 1-8/2020 حساب تحصيل دائن مبلغ 100 الرصيد=100 12-8-2020 حساب تحصيل مدين مبلغ 50 الرصيد= -50 1-9-2020 حساب نقدى دائن 1000 الرصيد=1000 1-6-2021 حساب تحصيل دائن 200 الرصيد=200 30-6-2021 حساب نقدى مدين 200 الرصيد= -200 1-7-2021 حساب تحصيل دائن 1000 الرصيد =1000 10-8-2021 حساب تحصيل مدين 100 الرصيد = -100 التقرير بالرصيد السابق التقرير من 1-6-2021 الى 30-6-2021 الحساب الرصيد السابق (هو الرصيد ما قبل1-6-2021) الدائن (الشهر الحالى) المدين (الشهر الحالى) الرصيد الحالى (الدائن-المدين+الرصيد السابق) تحصيل 100-50=50 200 0 200-0+50=250 نقدى 1000 0 -200 1000+0-200=800 التقرير من 1-7-2021 الى 1-8-2021 الحساب الرصيد السابق (هو الرصيد ما قبل1-7-2021) الدائن (الشهر الحالى) المدين (الشهر الحالى) الرصيد الحالى (الدائن-المدين+الرصيد السابق) تحصيل 250 1000 0 1250 التقرير من1-8-2021 حتى30-8-2021 الحساب الرصيد السابق (هو الرصيد ما قبل1-8-2021) الدائن (الشهر الحالى) المدين (الشهر الحالى) الرصيد الحالى (الدائن-المدين+الرصيد السابق) تحصيل 1250 0 -100 1150 ده استاذى شرح للمطلوب لعمل الدالة استاذى الحبيب لقلبى اتمنى ان اكون اوضحت لحضرتك زادك الله واكرمك وبارك لك احترامى

اكرمك المولى استاذى أبو عبدالله الحلوانى بحق هذه الايام الكريمة نفترض ان لدينا بيانات السنة المالية 2020 تبدأ من1/7/2019 حتى30/6/2020 فى تاريخ1/8/2019 الرصيد=100 وفى 1/9/2019 الرصيد=50 لو انا اختارت التاريخ من1/7/2019 حتى30/6/2020 الرصيد السابق=0 الرصيد الحالى=150 طيب لو اختارت تاريخ من1/9/2019 حتى30/6/2020 الرصيد السابق=100 وهى رصيد 1/8/2019 ثم السنة المالية2021 تبدأ من1/7/2020 حتى30/6/2021 لو انا اختارت تاريخ من1/7/2020حتى30/6/2021 الرصيد السابق=150 وهو كل ما تم انشأه فى ما قبل 1/7/2020 وهوتاريخ1/8/2019 الرصيد=100 وفى 1/9/2019 الرصيد=50 هذه هى الفكرة اخى فى الله الرصيد السابق تراكمى اشكرك من كل قلبى

استاذى الحبيب لقلبى اخى الكريم أبو عبدالله الحلوانى بارك الله فيك اخى الكريم اشكرك اخى بمراجعة النتائج بالمرفق اخى هنا اختارن سنة2020 واخترت عرض البيانات وظهرت كما بالصورة المفروض هنا ان الرصيد السابق=0 لان هذا اول تاريخ فى البرنامج لايوجد تاريخ قبله واخترت رصيد سابق مصدر تمويل وجدت ان النتائج كما يلى الرصيد السابق هو نفس الرصيد الحالى بالصورة التى بالاعلى ثم اخترت سنة2021و ضغطت زر عرض ظهرت البيانات كما بالصورة والمفروض ان عندما اضغط على زر رصيد سابق مصدر التمويل او اى زر يظهر الرصيد لاى بيانات قبل تاريخ1/7/2020 ولكن النتيجة كانت الرصيد السابق نفس الرصيد الحالى بالصورة الاعلى اشكرك اخى فى الله وبارك لك فى اسرتك الكريمة

يسعدنى أن أكون اول من يقدم لك الشكر الجزيل اخى الكريم وجزاك الله خيرا يارب

للرفع رفع الله قدركم

اسعد الله ايامك استاذى اكرم العريقي حفظك الله تسلم ايدك اخى الكريم اشكرك لمجهودك لاذال الرصيد السابق =0 فى كل الحسابات بالرغم من وجود رصيد سابق اخى اول زر اخرج خطأ الزر الثانى ازر الثالث حفظك الله اخى فى الله

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

اشكرك استاذى الحبيب اخى الكريم اكرم العريقي بارك الله فيك وزادك علما يارب قمت بتعديل الدالة كما تفضلت حضرتك وارفقتها ولكن النتائج للرصيد السابق دائما =0 على غير الصحيح ارفقت لحضرتك مرفق رجاء الاطلاع والتصحيح ان امكن اكون شاكر فضلك اخى حفظك الله ورعاك T3Q - Copy(1).accdb

اخى فى الله اكرم العريقي اشكرك استاذى ممكن حضرتك تنسخ لى الدالة بعد التعد يل مثل هذا لاننى فشلت اكون شاكر فضلك اخى الكريم بارك الله فيك وبك Option Compare Database 'this func for calculate previous balance for all customers. Function ClcPrevBalance(Cno As Integer, Acn As Integer, _ yer As Integer, Crntdat As Variant, _ Typ As Byte) 'Cno it's means Customer code 'yer it's means Financial year 'Crntdat it's means the start date '========Edit in 7/5/2022 7:17 PM========== 'Add new two parameters to func 'First For pass Account no--> Acn 'Second For pass Type of calculate--> Typ 'Typ Values are (0,1,2) '0 for Summtion by Customer no '1 for Summtion by Account no '2 for Summtion by 0 + 1 '=========================================== Dim Strtyer As Variant Strtyer = Nz(DLookup("StartYaer", "EndYaer", "NowYaer=" & yer), "") Strtyer = DateFormat(Strtyer) Crntdat = DateFormat(Crntdat - 1) ' Crntdat = Crntdat 'test first date = start year or not If Crntdat <= Strtyer Then 'if first date = start year the previous balance=0 ClcPrevBalance = 0 Else Dim Dpt As Double Dim Crdt As Double 'sum debit and credit for all customers 'between start year to defines date If Typ = 0 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) ElseIf Typ = 1 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Account=" & Acn & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Account=" & Acn & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) ElseIf Typ = 2 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And Account=" & Acn & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And Account=" & Acn & " And [Registration_Date] Between " & Strtyer & " AND " & Crntdat), 0) End If 'get balance = credit - debit ClcPrevBalance = Nz(Crdt - Dpt, 0) End If End Function

اشكرك اخى ممكن توضيح بارك الله فيك اخي الكريم

للرفع رفع الله قدركم

للرفع رفع الله قدركم

شكر وتقدير واحترام من اخيك

للرفع رفع الله قدركم

السلام عليكم اخوانى الافاضل هذه الدالة اهدانى ايها الاستاذ أبو عبدالله الحلوانى ربنايراضيه يارب ويرضيه اللهم امين هنا نموذج اسمه Form1 بعد الفلترة بتاريخ من و تاريخ الى والسنة المالية الدالة تحضر الرصيد السابق ممتازة بس خلال السنة المالية واحدة فقط فى الثلاث تقارير الموجود زراير لها بالعلى رصيد سابق مصادر تمويل اريد تعديلها لكى تحضر الرصيد السابق لاى تاريخ قبل تاريخ من لاى سنة الدالة اسمها ClcPrevBalanceMdl احتاج هذا التعديل جدا اخوانى بارك الله فيكم اخوانى T3Q - Copy.accdb

الف الف الف مبروك بالتوفيق يا رب

استاذى الحبيب ابوخليل اقبل رأسك لجميل صنعك اشكرك اشكرك سأحاول تدبر الامر وسأحاول توظيف الاستعلامات اشكرك اشكرك اشكرك احبك فى الله اخى الكريم

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

اكرمك المولى عز وجل وفضلك على العباد استاذى ابوخليل الفكرة ممتازة بس محتاج تضبيط ل قمت بالفلترة بتاريخ1/1/2022 الى 1/1/2022 ناتج الفلترة تمام عند استخراج التقرير احضر كل الحسابات وليس ناتج الفلترة فقط كمان لم يحضر ه بمراجعة السجلات المفروض الرصيد السابق ل عميل جديد1=933 السجل المحدد بالازرق لم يجمع مع الرصييد السابق السنة المالية له2020 وبتاريخ 1/8/2019 المفروض يكون التقرير هكذا اكرمك الله مثل ما اكرمتنى اخى الكريم

اخى الحبيب الى قلبى بارك الله لك احتاج الى تقرير بهذا الشكل الحساب الرصيد السابق منه له الرصيد الحالى ومن المثال السابق هنا عملت فلترة للعميل1 جديد للتوضيح هنا لنفرض اننا عملنا فلترة من تاريخ 1/1/2022 الى 1/1/2022 المفترض ان يظهر التقرير هكذا الرصيد السابق هو 933 لان الرصيد هو له-منه كل التواريخ قبل1/1/2022 هى رصيد سابق ولا يوجد منه الرصيد الحالى هى الرصيد السابق+له-منه احترامى وخالص دعائى

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

اخى الحبيب الى قلبى قمت بعمل تقرير مصدر التمويل رصيد سابق يخرج Pdf للتوضيح وارفقته اخى الكريم بارك الله فيك اخى الكريم نقبل احترامى الدالة تعمل ولكن لسنة مالية واحدة.rar

استاذى حبيبى ابوخليل ليتنى قريب منك لاذهب اليك واقبل رأسك ويديك لجميل صنعك ولتعبك معى اخى فى الله انا ادعو لك بقلبى وان شاء الله ربى سيستجيب ان شاء الله الموضوع خرج عن المطلوب للاسف حيث ان التقارير المطلوبة ليست بهذا الشكل الموضوع ان الاستاذ ابو عبد الله قام بتصميم دالة رائعة وكانت تنفذ المطلوب تمام الى ان جاء شهر1/7/2022 وهذا الشهر هو بداية سنة مالية جديدة اردت ان احصل على الرصيد السابق وجدت انه مرتبط بالسنة المالية كل ما احتاجه هو تعديل هذه الدالة لكى احصل على الرصيد السابق لاى تاريخ قبل تاريخ من بس هذا هو كل المطلوب استاذى بينما تعديل حضرتك استفدت منه كثيرا وسأوظفه ان شاء الله ولكنى الان فى ورطة مطلوب تقارير منى ولا يمكننى استخراجها الى الان نحن فى شهر سبتمبر ولم اخرج تقاريرى معلش لو امكن مساعدتى اكون شاكر داعى لك اخى وللتسهيل للحصول على نتائج بسهولة وضعت فقط 3 مدخلات بتاريخ 1/8/2020 -1/8/2021-1/8/2022 لكى نحصل على نتائج صحيحة بسهولة اعتذر لانى ارهقتك احبك فى الله اقبل رأسك استاذى الدالة تعمل ولكن لسنة مالية واحدة.rar

اوافق جدااا طبعا استاذى اعزك الله وزاد خيرك

تسلم ايدك استاذى انت مبدع ماشاء الله تبارك الله بس ايضا واجهتنى هذه المشكلة هنا قمت بعمل تصفية من 1/8/2021 حتى30/6/2022 بدون سنة مالية والتصفية اظهرت النتائج تمام هنا اريد عند الضغط على رصيد سابق مصدر تمويل او اى رصيد سابق يحضر البيانات المعروضة ناتج الفلترة والرصيد السابق هو تركمى اى تاريخ قبل تاريخ 1/8/2021 اى سنة قبل هذا التاريخ قمت بتعديل معيار السنة وحذفته فى الاستعلام كانت النتائج كل الحسابات ظهرت وهذا غير ناتج الفلترة المطلوب تقرير له اين الخطأ استاذى الحبيب ظهرت هذه المشكلة بعد حذف معيار السنة وهل لو تركت المعيار للسنة يؤثر على الرصيد السابق ولا يحضر الرصيد السابق الا خلال السنة المالية فقط وانا اريد الرصيد السابق تراكمى لكل السنوات السابقة لتاريخ من اسعد الله قلبك ومتعك بالخير امين حبيبى اخى