السلام عليكم
لدي هذا الكود ونتيجته يسمح بعدد معين من السجلات في كل تاريخ
المشكله انه يظهر لي الرساله على طول سواء وصل الحد المطلوب او لم يصل في اكسس 2007 لكن في اكسس 2003 يعمل بكفاءه
ارجو من من لديهم الخبرة اكتشاف موطن الخلل شاكراً لكم جهودكم
تقبلو تحياتي
الكود
Dim intResult As Integer
If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 2 Then
MsgBox "لقد وصل عدد السجلات الحد المسموح به , فضلاً اكتب تاريخاً غير هذا التاريخ", vbOKOnly
Cancel = True
Me!DateReceipt.Undo
End If
لا ارى مشكلة فى الكود
لكن اعتقد ان المشكلة فى تنسيق التاريخ بالكومبيوتر
اى انه لا يرى التاريخ بالشكل الموجود بالقاعدة
حاول ملاحظة تنسيق التاريخ بالكومبيوتر من خلال لوحة التحكم
اشكرك اخي على الرد
من ضمن الخيارات عندي استخدام التاريخ الهجري ام القرى ما العمل لحل المشكله
تقبل تحياتي
جرب اخى هذا التعديل
Dim intResult As Integer
Const FJetDate = "\#mm\/dd\/yyyy\#"
If DCount("*", "Details", "[DateReceipt] =" & Format(Me.DateReceipt, FJetDate)) > 2 Then
MsgBox "لقد وصل عدد السجلات الحد المسموح به , فضلاً اكتب تاريخاً غير هذا التاريخ", vbOKOnly
Cancel = True
Me!DateReceipt.Undo
End Ifماصار شي سيدي الكريم
نفس المشكله
لكن الكود يعمل معى أخى
و على 2007
بعد ان كان لا يعمل فى البداية
انا التاريخ عندي هجري ام القرى وكذلك الاكسس محدد خانة استخدام التاريخ الهجري
هل لهذا علاقه
اذا كنت تستخدم التاريخ الميلادي نعم يجب انك تلغي اختيار التاريخ الهجري لقاعدة البيانات ، أما بالنسبة للمشكلة فهل لديك مانع بتغير طريقة قراءة المعلومة واستخدام طريقة غير DCOUNT ، هنالك طريقة أسرع واخف ومضمونة وهي استخدام استعلام فرعي مخفي في الفورم يقرأ من الاستعلام اللي عملته ويعمل المقارنة اللي تبيها بطريقة أبسط.
أرفقت لك مثال للفكرة جربه وان شاء الله يكون المطلوب
تم تعديل هذه المشاركة بواسطة superhot3000 في 15 يوليو 2011 في 17:26
تظهر لي رساله ان النص طويل
واذا قمت بادخال البيانات واخترت تاريخ فيه 29 شخص تظهر الرساله باني قد وصلت الى الحد المسموح علماً ان الحد المسموح به هو 30
If [Cn]![crn] > 2 Then
غير هذا الكود من أكبر من 2 إلى أكبر من 30 يعني
If [Cn]![crn] > 30 Then
نفس الشي كأن لم يكن هناك كود
عندي استفسارين
1 - هل هناك اعدادات معينه يجب علي ان اعملها في محرر VB
2 - لم اجد هذه العناصر ([Cn]![crn]) في القاعده هل من الممكن توضيح الأمر
تحياتي لك
لم يتغير شيء
هل هناك اعدادات معينه يجب علي ان اعملها في محرر VB كي تعمل الاكواد بشكل افضل
ياليت ترفق لي صور اعدادات محرر vb
تحياتي لك
تقدر تجرب هذه المحاولة اذا نجحت بلغني . التغيير الذي حدث أنه النموذج الفرعي فقد الربط بينه وبين النموذج الرئيسي بالخطأ وقد عملت له التعديل وأتمنى انه بيكون هذا طلبك. لا يزال التاريخ 1/1/1433 به 29 ادخال وسيقبل ادخال واحد ويكمل 30 وبعدها سيعطيك الرسالة.
انتظر ردك 
تم تعديل هذه المشاركة بواسطة superhot3000 في 18 يوليو 2011 في 11:04
نفس الشي الكود ما اشتغل بل تمكنت من تسجيل 31 عميل
