السلام عليكم ورحمة الله وبركاته
اخواني اعضاء المنتدى
اريد ظهور بيانات الأسبوع بالنسبة لتاريخ اليوم
مثال اليوم الأثنين تاريخ 3/9/2007
اريد ظهور البيانات في الفورم من يوم الأحد 2/9/2007 بداية السبوع لغاية يوم السبت 8/9/2007 نهاية الأسبوع فقط
وذلك بشكل تلقائي عن فتح النموذج.
ولكم مني جزيل الشكر
شكرا لك اخي محمد لكن ليس هذا المطلوب
ما اريدة هو ان البرنامج يتعرف على بداية ونهاية الاسبوع بشكل تلقائي وليس كتابته وذلك بناءً على اليوم الحالي
نفرض اني فتحت النموذج بتاريخ 11/9/2007
بداية الأسبوع تكون 9/9/2007 والنهاية 15/9/2007 هل كل مرة ساغير في الكود؟
مع الشكر
شكرا لك أخي الكريم Dream_Works
يوجد خلل في Modules وهو CurrentDate = Now
مع الشكر الجزيل
بارك الله فيك يا أخي الغالي Dream_Worksحل هايلأخي الغالي ahmed_12 تم تعديل الخلل الموجود في الموديول نزل المرفق وجرببارك الله فيك يا أخي الغالي Dream_Worksحل هايلأخي الغالي ahmed_12 تم تعديل الخلل الموجود في الموديول نزل المرفق وجرببارك الله فيك يا أخي الغالي Dream_Worksحل هايلأخي الغالي ahmed_12 تم تعديل الخلل الموجود في الموديول نزل المرفق وجرب
الأخوه الكرام محمد فؤاد و Dream_Works
لكم الشكر الجزيل لقد جربت الطريقة على احسن ما يرام
عندي استفسار اضافي وهو
اريد ظهور بيانات الأسبوع السابق والأسبوع التالي وذلك بالضعط على command button كما في المثال المرفق
مع امكانية طباعة التقرير للاسبوع المعروض فقط في النموذج
مرفق مثال ارجو التعديل علية
مع تحياتي
صممت دالة لإعطاء تاريخ بداية أي أسبوع مطلوب :
Function GetStartDate(Optional Weeks As Long = 0, _ Optional DayOfWeek As VbDayOfWeek = vbSunday) As Date Dim wStart As Date wStart = Date - Weekday(Date, DayOfWeek) + 1 GetStartDate = wStart + Weeks * 7 End Function
وهذا إجراء لطريقة استدعائها :
Sub Testing() Dim StartDate As Date Dim EndDate As Date StartDate = GetStartDate(0, vbSaturday) EndDate = StartDate + 6 MsgBox "بداية الأسبوع = " & StartDate & vbCrLf & _ "نهاية الأسبوع = " & EndDate End Sub
ولطلب تاريخ الأسبوع التالي يكون طلب الدالة كالتالي :
StartDate = GetStartDate(1, vbSaturday)
ولطلب تاريخ الأسبوع السابق يكون طلب الدالة كالتالي :
StartDate = GetStartDate(-1, vbSaturday)
كما يمكنكم تبديل بداية الأسبوع كيوم وليس تاريخ أي السبت أو الأحد وهكذا من خلال المدخل DayOfWeek
شكراً لك أخي الكريم Accessna
لقد حاولت ولم افلح
هل من الممكن التعديل على المرفق
وماذا عن طباعة التقرير بالنسبة للاسبوع المعروض في النموذج فقط
مع جزيل الشكر
المثال مرفق بعد التعديل
حصلت مشكلة مع دالة البيزك Date() ولم أستطع معرفة السبب !!
إضطررت أن أحذف المراجع غير المطلوبة ومع ذلك لم تنتهي المشكلة مما دعاني أن أعدل بالدالة واستخدم دالة Now() بدلا منها
فهل يعرف أحدكم السبب ؟! أم هي مشاكل الإصدار 2000 دائما هكذا !
تم تعديل هذه المشاركة بواسطة Accessna في 4 سبتمبر 2007 في 22:10
شكراً على الرد السريع أخي Accessna
بقيت مشكلة واحدة فقط وهي عندما أضغط على الأسبوع السابق او التالي لا اريد اسبوع واحد فقط بل يتتابع كلما ضغطت على الأسبوع السابق أو التالي
على سبيل المثال اريد ان اشاهدالعشرة اسابيع السابقة.
ارجو ان اوضحت المطلوب مع شكري الجزيل
المثال بعد التعديل
بسم الله الرحمن الرحيم
بارك الله فيكم اخواني
موضوع مميز
موضوع جميل وفكرته مهمة
بارك الله فيكم وزادكم من علمه
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
