اغلاق فترة بالجدول وعدم السماح بتسجيل البيانات

تفضل أخى جرب هذا

لاحظ اننا نحتفظ بالفترة المغلقة فى جدول منفصل

هناك مشكلة فى رفع المرفق بالمنتدى

عموما اعمل جدول جديد اسمه closed و ضع به عمود ترقيم تلقائى (مفتاح الجدول ) اسمه id و عمود تاريخ باسم cls_date

حيث سيتم حفظ الفترات المغلقة به

ثم ضع هذا الكود فى النموذج quntity4

Private Sub b_LostFocus()
If Len(Me.b & "") > 0 Then
If DCount("id", "closed", "[cls_date]= #" & Me.b & "# ") > 0 Then
Me.[كودالعميل].SetFocus
Me.b.SetFocus
MsgBox "الفترة مغلقة"
End If
End If
End Sub

اخى الفاضل ابو يوسف

شكراا لمرورك الكريم وكل عام وانتم بصحة وسعادة

فضلا ارفع الملف للاطلاع علية

وشكر لك

شكرااا ابو يوسف

يتم اغلاق الفترة فى نهاية كل شهر طبقا للمثال المرفق

ماذا لو اردناها تغلق فى منتصف ونهاية كل شهر

salma2012.rar

sayedaaa كتب:

شكرااا ابو يوسف

يتم اغلاق الفترة فى نهاية كل شهر طبقا للمثال المرفق

ماذا لو اردناها تغلق فى منتصف ونهاية كل شهر

salma2012.rar

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

اما اذا كنت تريد تحديد فترة من عدة ايام

فان الامر سيتطلب اضافة حقل جديد الى الجدول closed باسم cls_date1 ليكون بمثابة نهاية للفترة

و يكون الحقل cls_date هو بداية الفترة

و يتم تعديل الكود بعد ذلك

Private Sub b_LostFocus()
If Len(Me.b & "") > 0 Then
If DCount("id", "closed", "[cls_date] <= #" & Me.b & "# and [cls_date2] >= #" & Me.b & "#") > 0 Then
Me.[كودالعميل].SetFocus
Me.b.SetFocus
MsgBox "الفترة مغلقة"
End If
End If
End Sub

السلام عليكم

لقد ذهبت الى العمل اليوم وقمت بتسجيل بيانات 3/8/2012

ولالاسف بدلا من كتابة التاريخ 3/8/2012 قمت بكتابة التاريخ 3/7/2012

وذهبت لطباعة كشف حساب للعميل لم تظهر بيانات 3/8/2012 بالتقرير

وبالمراجعة تبين انها سجلت بتاريخ 3/7/2012

ما اريدة

فى المثال اعلاة يتم اقفال الفترة فى منتصف ونهاية كل شهر

وذلك بمساعدة ابو يوسف حفظة الله لكن لا يفى بالغرض

حيث ان اضافة جميع ايام الشهر الى الجدول closed

هو امر شاق يصعب تحقيقة فى ظل وجود تسجيل حركات كثيرة

اريد الاقفال يوميا على نفس المثال السابق

وجزاكم الله كل خير