عدم السماح بالاضافة

[jo_2010]

السادة الخبراء الاعزاء 

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

هذا الحقل صفر 

لايسمح بإضافة اي سجلات جديدة للنموذج الفرعي 

مثال فاتورة عند سداد الفاتورة علي أقساط وعندما يتم سداد الفاتورة بالكامل لايسمح البرنامج بإضافة اي حقول جديدة

[kha9009lid]

13 ساعات مضت, jo_2010 said:

لايسمح بإضافة اي سجلات جديدة للنموذج الفرعي 

مثال فاتورة عند سداد الفاتورة علي أقساط وعندما يتم سداد الفاتورة بالكامل لايسمح البرنامج بإضافة اي حقول جديدة

تقصد لا يسمح باضافة اصناف على الفاتورة او تعديل اصناف بعد الدفع ؟

اذا كان فهمي صحيح

الامر يمكن عمله بتنسيق شرطي

ضلل حقول النموذج الفرعي

ثم من قائمة تنسيق اختار تنسيق شرطي

ثم قاعدة

ثم تعبير =

[Forms]![invoices2]![txt57]="تم الدفع"

طبعا بدل اسماء النموذج والحقل حسب مالديك

وكذلك تم الدفع ضع بدلا عنها 0

ثم اختيار عدم التمكين رقم 3 في الصورة

 

 

[kha9009lid]

وممكن ايضا عن طريق كود بسيط

If Me.tx_2 = 0 Then
Me.frm_2.Form.AllowAdditions = False
Else
Me.frm_2.Form.AllowAdditions = True
End If

 

tx_2 هو الحقل الموجود في الرئيسي

في الطريقة الاولى لا نستطيع اضافة او تعديل او حذف

وفي الثانية ممنوع الاضافة فقط ويمكن منع التعديل والحدف باستخدام اضافة للكود

AllowDeletions للحذف

 AllowEdits للتعديل

 

[jo_2010]

الخبير الفاضل kha9009lid

شكرا لك على الرد ولكن فى ى حدث اضع هذا الكود عند الفتح او عند التحميل خالص الشكر

سؤال اخير عندى نموذج مستمر حقل الكمية المباعة مثلا 20قطعة اريد منع تعديل على الكمية بعد الخروج والانتقال للحقل التالى السعر

كيف اكتب الكود واين اضعة

انا عملت فى الحالى

Private Sub Form_Current()
If Me.NewRecord Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If
End Sub
لكن هذا يتطلب الانتقال لسجل جديد اريد ايقاف التعديل وانا فى نفس السجل سامحنى على الاطالة