الحمد لله
هديت إلى المطلوب بعد عناء بحث كبير
وشكرا لكم
وهذه هى الطريقة لمن يريدها
هذه وظيفة تمنع أى سجل غير الأول
سواء للإضافة
أو للتعديل
أو حتى مجرد الإظهار
إذا كان للموظف سجل فى الفرعى به الأساسى
يظهر فقط هذا السجل و يسمح بالتعديل فيه
إذا لم يكن للموظف سجل
يظهر لك سجلا جديدا تضع فيه الأساسى
و إذا حاولت إضافة سجل تالى غير الأول
يختفى السجل الثانى الفارغ
هذه هى الوظيفة التى تقوم بذلك
Public Function LimitRecords( _
frm As Access.Form, _
Optional RecLimit As Integer = 1)
' Limit the number of records in the form passed as
' to no more than the number specified by .
With frm.RecordsetClone
If .RecordCount <> 0 Then .MoveLast
frm.AllowAdditions = (.RecordCount < RecLimit)
End With
End Function
و تستدعى الوظيفة من خلال حدث فى الحالى كما يلى فى النموذج الفرعى
Private Sub Form_Current()
'*** Substitute your subform control name for "sfMySubform" ***
LimitRecords Me.Form ' allow at most 1 record
' LimitRecords Me.sfMySubform.Form, 5 ' allow at most 5 records
End Sub
و استكمالا للفائدة
هاكم الملف
والمعلومة مفيدة جدا
إخوتى الكرام
بعد تحميل الملف حاولوا إضافة أكثر من سجل فى الفرعى لموظف واحد
myway1.rar