محمد احمد لطفى

الملف يعمل

تم الحل DoCmd.RunSQL "UPDATE SpeedyTab INNER JOIN main1115 ON SpeedyTab.[od] = main1115.[id1] SET SpeedyTab.[id] = [main1115]![id];"

تعديل كود استعلام تحديث ليعمل فى النموذج UPDATE SpeedyTab INNER JOIN main1115 ON SpeedyTab.[id] = main1115.[id1] SET SpeedyTab.[id] = [main1115]![id];

تفضل هل هذا ما تريد hossam.accdb

تمام

الاسبوع خلية والشهر نقول شهر 1 خليه و شهر 2 خلية

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

ده المطلوب من 1-1-2015 حتى 6-9-2016 88 أسبوع من 7-9-2016 حتى 30-9-2020 48 شهر من 1-10-2020 حتى 10-1-2021 3 أشهر 1-1-2015 88 اسبوع 48 شهر 3 اشهر الويندوذ عندى 11 لو عاوز تجرب حاجة مفيش مشكلى يأ أستاذى العزيز 😇

ليها علاقة بالضريبة على القيمة المضافة 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر ( ليها شهرين سماح لتقديم الاقرار )

أستاذى @ابو جودي على فكرة الدالة فى المشاركة الاولى مش مظبوط

ممكن مساعدة أستذى @أ / محمد صالح

للتذكرة

ألف مبروك وإلى الأمام

أنا أستخدم هذا "+20" 0000\ AAA\ AAAA

ممكن مساعدة أستاذى @أبو إبراهيم الغامدي

أستاذى @أبو عبدالله الحلوانى جزالك الله خيراً هذا الكود يعمل تماما على المثال السابق ذكره ولكن أعتقد أنه يمكن تحسينه للأفضل فى Function واحدة وليس على ثلاثة ولعل احد اخوانا او اساتذتنا يمكنه ذلك

يجب ضبط لغة الجهاز الى العربية

السلام عليكم ورحمة الله وبركاته لدينا تاريخين فى الاستعلام date1 و date2 نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط . أولا من تاريخ 1-1-1990 حتى مثلا 1-1-2050 تنقسم الى ثلاث شرايح 1 - الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر 3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر وتم عمل الكود ويعمل بشكل صحيح ولكن هل يمكن تبسيط المعادلة الى الافضل Option Compare Database '11111111111111111111111111111111111111111111111111111111111111111111111111 الشريحة الأولي Function checkDate1(sDate As Date, eDate As Date) If sDate > #9/6/2016# Then checkDate1 = 0 Else If sDate >= #1/1/1990# And eDate <= #9/6/2016# Then checkDate1 = DateDiff("ww", sDate, eDate) ElseIf sDate >= #1/1/1990# And eDate > #9/6/2016# Then checkDate1 = DateDiff("ww", sDate, #9/6/2016#) End If End If End Function '2222222222222222222222222222222222222222222222222222222222222222 الشريحة الثانية Function checkDate2(sDate As Date, eDate As Date) If sDate >= #9/30/2020# Then checkDate2 = 0 Else If sDate >= #1/1/1990# And eDate > #9/6/2016# Then checkDate2 = DateDiff("m", #9/7/2016#, #9/30/2020#) Else checkDate2 = 0 End If End If End Function '33333333333333333333333333333333333333333333333333333333333333333333333333 الشريحة الثالثة Function checkDate3(sDate As Date, eDate As Date) If sDate >= #1/1/1990# And eDate > #9/30/2020# Then checkDate3 = DateDiff("m", #10/1/2020#, eDate) Else checkDate3 = 0 End If End Function كل سنه وانتم طيبون وبخير وصحة وسعادة finish .mdb

المشكلة فى اخر مثالين شهر 9-2016 بيحسب لحد 6-9-2016 اسبوع و ده تمام و المفروض من 7-9-2016 الى 30-9-2016 يحسب شهر و لا أنا غلطان

تفضل تنازلي و تصاعدي (1).accdb

شكراً @احمد الفلاحجيجزاك الله خيراً و ننتظر أستاذ @أبو عبدالله الحلوانىلحل مشكلة -1 لى زميل عمل على مثالك أستاذ أحمد و لكن به خطأ فى شهر 9-2016 finish (1).mdb

النظر للمشاركة قبل الاخيرة

كل سنة و انتم جميعا طيبين و بخير

مفتاح المعاينة اجعله نعم أو حدث عند الفتح Me.KeyPreview = True

للتذكرة لدينا تاريخين فى الاستعلام date1 و date2 نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط . أولا من تاريخ 1-1-1990 حتى مثلا 1-1-2050 تنقسم الى ثلاث شرايح 1 - الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود منفصل يسمى الاسبوع 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر فى عمود يسمى الشهر 1 3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر فى عمود يسمى الشهر 2 ثانيا عن طريق وحدة نمطية و هناك حلان أ - حل الاستاذ احمد الفلاحجى ولكنه كل شريحه فى سطر وأنا اريد الحل فى سطر واحد ب - حل الاستاذ أبو عبدالله الحلوانى ولكنه عن طريق نموذج وليس استعلام كل سنه وانتم طيبون وبخير وصحة وسعادة تقبل الله منا ومنكم صالح الأعمال احمد الفلاحجى.mdb أبو عبدالله الحلوانى.accdb