كتابة رقم الاسبوع حسب التقويم

تفضل اخي الكريم

الملف بعد التعديل

تم اضافة التنسيق

WEEK=Format([txtDate];"ww")

بواسطة الكود

ملاحظة : تم تغيير اسم حقل التاريخ Date الى txtDate

لأن اسم Date محجوز من قبل النظام ولا يمكن استخدامه

week_UP.rar

جزاك الله خير اختي الكريمة على الحل وهذا ما اريد

بارك الله فيك وخدمك المال والبنون

السلام عليكم ورحمة الله وبركاته

بدا لي مشكلة وهي انه يعتبر بداية الاسبوع من يوم الاحد مثال : يعتبر اسبوع 14 يبدأ من الاحد الاثنين الثلاثاء الاربعاء الخميس الجمعة السبت وهكذا 15 ... المطلوب يعتبر بداية الاسبوع من السبت

وجدت رابط يتكلم عن ذلك ولم استطيع الاستفاده منه لضعف اللغة عندي .

http://office.microsoft.com/en-us/access/HA012288391033.aspx

والمثال موجود في رد الاخت زهرةأعلى. -waf

أخي الفاضل

سنظيف تعديل بسيط جدا لدالة الأسبوع وهي vbSaturday وسيكون بداية الأسبوع هو يوم السبت ليصبح الكود بهذا الشكل

Private Sub date_AfterUpdate()
week = Format([txtdate], "ww", vbSaturday)
Me.week.Requery
End Sub

بداية الأسبوع الرابع عشر هو : 07/04/2007 ( السبت 7 - ابريل - 2007 )

بداية الأسبوع الخامس عشر هو : 14/04/2007 ( السبت 14 - ابريل - 2007 )

وهذا الملف بعد التعديل

week_UP2.rar

أختى الفاضلة/زهرة

الملفات المرفقة بأي تنسيق لأنها تظهر عندي كتكست غريب الرموز

وشكرا