أبوبسمله

السلام عليكم اخى @ABOLO2 هى مثل النماذج فالحقل الذى تريده فالتقرير الرئيسى فمصدر عنص التحكم يساوى اسم التقرير الفرعى ! اسم الحقل بالتقرير الفرعى ده مثال على النماذج اطلع عليه وان شاء الله تفهم الطريقه بالتوفيق Database 3.accdb

السلام عليكم اخى محمد @محمد احمد لطفى كل عام وانت طيب عيدك مبارك ولا يكون خاطرك الا طيب قمت بالتعديل على الوحده النمطيه لاخى ومعلمى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا وبعد اذنه طبعا ليتناسب معك كما تريد وهو ان تكون النتائج بالاستعلام ولكن وجدت اختلاف واحد فالنتائج فالتواريخ التاليه مابين الجدول والاستعلام وذلك فى معادله الشهر Table1 FromDate1 ToDate2 Weeks Month1 Month2 Descrp 01/10/2020 10/01/2021 0 0 3 عدد الشرائح 1 qry FromDate1 ToDate2 qw qm qm1 01/10/2020 10/01/2021 0 -1 3 ولا اعلم اين المشكله حاليا لعل اخى واستاذى العزيز محمد الحلوانى يطلع عليها ويفيدك تقبلوا تحياتى ومرورى وكل عام وانتم بخير عيدكم مبارك Database2.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق

كل عام وانتم بخير وتقبل الله منكم الصيام والقيام وصالح الاعمال وعيدكم مبارك

وعليكم السلام ورحمه الله وبركاته طيب ليه عاوز هذه القيم فالجدول بما انه يمكنك الحصول عليها فى الاستعلامات وافضل والعمل عليها ؟ اتفضل تم استخدام استعلام تحديث وليس الحاق بالتوفيق Database_3.accdb

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

بل الشكر لله ثم لك اخى موسى وفقك الله 💐

صحيح ما ذكرت طيب بدله بقى حتى يتم ضبط الحروف بالعكس لانه بيجيب اول حرف كما هو If InStr(1, m, ".") > 0 Then TXT = " " & TXT End If بالتوفيق

السلام عليكم ورحمه الله وبركاته اخى واستاذى موسى @Moosak جزاك الله خيرا 🌹 ملحوظه بسيطه اخى على كودك الرائع وتسلم ايدك 💐 استبدل هذا الجزء من الكود If InStr(1, m, ".") > 0 Then TXT = TXT & " " End If الى If InStr(1, m, ".") > 0 Then TXT = TXT End If بالتوفيق

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

اخى محمد @محمد احمد لطفى هذا المثال بالتواريخ الجديده للموضوع الحالى وبه المعادلات بالمثال الاخر بالموضوع القديم لاخى واستاذى محمد جزاه الله خيرا ارجو منك ضبط التواريخ فى اخر عمودين ع التواريخ الجديده حتى يسهل على النظر فيهم والعمل عليهم ان شاء الله سواء منى اوى من اخوتنا واساتذتنا جزاهم الله خيرا weekx3: IIf([DATE2]<=#30/08/2016#;DateDiff("w";[DATE1];[DATE2]);IIf([DATE1]<=#30/08/2016#;DateDiff("w";[DATE1];#30/08/2016#);0)) Monthx3: IIf([DATE2]<=#30/08/2016#;0;IIf([DATE1]>=#01/09/2016#;DateDiff("m";[DATE1];[DATE2]);DateDiff("m";#01/09/2016#;[DATE2]))) بالتوفيق ضريبة _4.mdb

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

قمت بنقل الاداه الى بارتشن D وتم انشاء ملف واحد بجانب الاداه فقط ولم تعمل معى خير الحمد الله مو مشكله جزاك الله خيرا على ماقدمت بالتوفيق

بعد الرجوع لهذه المشاركه بالذات وكما قلت لك فيجب الرجوع لاول حاجه قمت لك بها والا الامر يحتاج توضيح اكثر بارك الله فيك لانه ردك الاخير تشتييت للامور كلها بجانب كيف تريدها بصف واحد وعلى اى اساس ثم ان ناتج المرفقه بالصوره الاخيره لك 88 غير صحيح والصحيح 352 DateDiff("ww", #1/1/2015#, #10/1/2021#) بصراحه الامور اتلخبطت معايا واعذرنى لقله فهمى لعل احد اخواننا واساتذتنا يفهم المطلوب بشكل اوضح ويفيدك بما تريد باذن الله بالتوفيق اخى محمد

جزاك الله خيرا استاذ @Amr Ashraf ولكن الاداه لا تعمل معى بالرغم انى نزلت الاداه الموافقه لويندوز 7 - 32 بت نسخه محموله من الموقع الا انها لا تستجيب الى الاختصار الذى وضحته ولا للزر كوبى بالاداه بالتوفيق

الحمدلله الذى بنعمته تتم الصالحات ولكن هل نظرت لاخر شرط بعد التعديل السابق انه بقى 19 شهر مش 18 كيف هذا وعلى اساس سيكونوا فى صف واحد ؟ اكمل انت الفترات الاخرى فقد تركتها لك وعلى العموم هى نسخ ولصق وضبط التواريخ فالشروط بس بالتوفيق

منور اخى ومهندسنا العزيز @Eng.Qassim اخى محمد فى تعديل بسيط للشرط الاخير Function cheekDate(sDate As Date, eDate As Date, x As Byte) If sDate >= #1/1/1990# And eDate <= #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", sDate, eDate) ElseIf sDate >= #9/7/2016# And eDate <= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", sDate, eDate) ElseIf sDate >= #9/30/2020# And sDate <= Date And x = 3 Then cheekDate = DateDiff("m", sDate, eDate) End If End Function

اتفضل اخى محمد Function cheekDate(sDate As Date, eDate As Date, x As Byte) If sDate >= #1/1/1990# And eDate <= #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", sDate, eDate) ElseIf sDate >= #9/7/2016# And eDate <= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", sDate, eDate) ElseIf sDate >= #9/30/2020# And x = 3 Then cheekDate = DateDiff("m", sDate, Date) End If End Function بالتوفيق

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

ربنا يبشرك بكل خير ان شاء الله اتفضل وقمت بعمل تعديل بسيط عليها ايضا Function cheekDate(sDate As Date, eDate As Date, x As Byte) If sDate >= #1/1/1990# And eDate <= #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", #1/1/2016#, #9/6/2016#) ElseIf sDate >= #9/7/2016# And eDate <= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", #9/7/2016#, #9/30/2020#) ElseIf sDate >= #9/30/2020# And x = 3 Then cheekDate = DateDiff("m", #10/1/2020#, Date) End If End Function بالتوفيق ضريبة _2.mdb

وفيك بارك الله وانا اخوك ولست باستاذ جزاهم الله عنا كل خير والسؤال للاخ السائل كيفيه معرفه من ليس له ديون حتى يتم تنفيذ الشرط الاساسى لك والباقى فقد قدمه لك اخى @عمر ضاحى لان فى حلى الاول فهو ليس بحل ولكن وضعته كمحاوله للوصول للمطلوب ولكن داله dlookUp سوف تاتى باول سجل مطابق للشروط ويمكن لديه سجلات اخرى وعليه ديون فكيف لنا ان نعرف بانه ليس عليه ديون فى وضع مثالك الحالى حتى يتم التفكير فالحل المنطقى لذلك بالتوفيق

اتفضل اخى @محمد احمد لطفى حاجه على قدى واكمل باقى الوحده وان شاء الله اخوانا واساتذتنا يقدموا ما لديهم Function cheekDate(sDate As Date, eDate As Date, x As Integer) If sDate = #1/1/1990# And eDate = #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", #1/1/2016#, #9/6/2016#) ElseIf sDate = #9/7/2016# And eDate = #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", #9/7/2016#, #9/30/2020#) ElseIf sDate >= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", #10/1/2020#, Date) End If End Function بالتوفيق ضريبة _1.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بلاش استاذ فما انا سوى طالب علم اتعلم معكم اخوانى بارك الله فيكم برجاء مراجعه النتائج التى ارفقتها لك بالمشاؤكه السابقه مع نتائجك واخبرنى ايهما اصح وان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق

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

احسنت اخى @عمر ضاحى وجزاك الله خيرا عالمتابعه 🌹 بالتوفيق