تحديد عدد سجلات النموذج الفرعي

[شاهر]

الاستاذ الفاضل رضوان تحيه طيبه وبعد

لدي مشكله شبيهه بهذه المشكله وهي ان لدي جدولين في نموذج لرئيسي وفرعي

هناك سجلات لنموذج الرئيسي في الفرعي مرتبطه وايد ان تكون سجل واحد في الفرعي لكل موظف فقط

علما باني وضعة هذا الكود في النموذج الفرعي لكن لم ينفع

If Me.RecordsetClone.RecordCount = 1 Then
Me.AllowAdditions = False
Else
Me.AllowAdditions = True

End If

مع خالص التقدير لشخصكم الكريم

تم تعديل ديسمبر 25, 2005 بواسطه شاهر

[شاهر]

للرفع لاهميه الموضوع

[rudwan]

اين وضعت الكود في أي حدث ؟

اذ يجب وضعه عند حدث الحالي للنموذج الفرعي و ليس الرئيسي

[شاهر]

استاذى الكريم رضوان

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

ان لم اضع السئوال الا وقد جربة الكود في النموذج الفرعي

في حدث في الحالي ولكن النموذج بعد ذلك لم يقبل سجلات بعد ذلك لا سماء الموظفين الاخرين

مع خالص الاحترام

[bash20000]

يمكن وضع الكود التالي في حدث عندالتركيز لأول حقل في النموذج الفرعي بالشكل التالي :

يقوم بعملية عد باستخدام الدالة count لحقل معين فإذا كان يساوي العدد المطلوب إذاً يتم اظهار رسالة تخبرك بأن عدد السجلات بلغ ذلك الرقم ولا يمكن أضافية سجلات أخرى وبمجرد الموافقة على الرسالة يقوم بفتح سجل جديد

أرجو أن يكون ردي واضح وأرجو ان تقبوله حتى لو أنه متواضع

[rudwan]

bash20000 شكرا لمرورك

الأخ شاهر ملاحظتك صحيحه , و لكن تأكد أن الكود صحيح و المشكله هي في الانتقال مابين السجلات

حاول الرجوع لسجل سابق في النموذج الرئيسي ثم عد الى الحالي تجده قد فتح المجال للاضافه

و على كل حال جرب هذا الكود الثاني :

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 3 Then
Cancel = True
Else
Cancel = False
End If

End Su

[شاهر]

الاستاذ الفاضل رضوان

وشكري للـ bash20000

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

زادك الله علما وحلم وانار الله دربك ونفعه الله بك وبعلم

اجرك به الجنه ورزقك الله واى الذريه الصالحه

لك من فائق الشكر والتقدير لقد عمل الكود بنجاح (y)

وجمعة مبارك مقدماٌ

اخوك شاهر

تم تعديل ديسمبر 29, 2005 بواسطه شاهر