كيف أمنع الكتابة في بقية الحقول إذا كتب في أحدها

الأخ زكوان

اولا يفضل أن تذكر أسماء الحقول حتى يكون الكود مطابقاً لها ولا تحتاج إلى أي تعديلات .

ثانيا : افترضت أن أسماء مربعات النص هي الأول والثاني والثالث والرابع .

ثالثاً : اجعل خاصية مؤمن لكل هذه المربعات إلى نعم .

رابعاً : ضع الكود التالي في الوحدة النمطية الخاصة بالنموذج :

Private Sub تأمين_الحقول()
الأول.Locked = True
الثاني.Locked = True
الثالث.Locked = True
الرابع.Locked = True
End Sub

خامساً في حدث عند الإدخال لكل الحقول الأربعة ضع ما يلي :

للأول :

If IsNull(Me![الثاني]) And _
IsNull(Me![الثالث]) And _
IsNull(Me![الرابع]) Then
Call تأمين_الحقول
Me![الأول].Locked = False
End If

وللثاني :

If IsNull(Me![الأول]) And _
IsNull(Me![الثالث]) And _
IsNull(Me![الرابع]) Then
Call تأمين_الحقول
Me![الثاني].Locked = False
End If

وللثالث :

If IsNull(Me![الأول]) And _
IsNull(Me![الثاني]) And _
IsNull(Me![الرابع]) Then
Call تأمين_الحقول
Me![الثالث].Locked = False
End If

وللرابع :

 
If IsNull(Me![الأول]) And _
IsNull(Me![الثاني]) And _
IsNull(Me![الثالث]) Then
Call تأمين_الحقول
Me![الرابع].Locked = False
End If

غير ما يلزم من الأسماء حسب ما عندك .

مع رجاء بمطالعة هذا الرابط :

http://www.arabteam2000.com/vb/showthread....p?threadid=5827

ولك تحياتي

الاخ ابو حمود

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