تأمين

اخي العزيز

new

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

نفترض ان مربع النص الذي به حقل رقم الفاتوره اسمه

number

اذن اكتب الكود التالي عند حدث (عند الخروج) لمربع النص الذي به رقم الفاتوره

code:

number.Locked = True

----------

شرح الكود .........

وهذا الكود به الخاصيه

locked

التي تقوم بتأمين الكائن

number

اذا اعطيناها القيمه

true

واذا اردنا الغاء التأمين .. نعطيها القيمه

false

----------

وذلك في حدود معلوماتي والله سبحانه وتعالى اعلم واعلم

اخوك في الله

شكراً للعزيز (f) مبتدىء جدا(f)

على تجوبه السريع

جربت الكود السابق ولم ينجح

نعم هو يأمن الحقل (namber) ، ولكن عند إضافة سجل جديد فهو لايسمح بإضافة أي رقم في حقل (namber) حتى ولو كان فارغ !

وعند الرجوع إلى الحقول السابقة يمكن التعديل عليها ..

هل من أحد يفيدنا بحل أمثل ... :o

اجعل حدثين :

الأول : بعد التحديث بالنسبة لمربع النص أو إن شئت بالنسبة للنموذج .

والثاني : في الحالي بالنسبة للنموذج .

Private Sub Form_Current()
If Me.NewRecord Then
Me.number.Locked = False
Else
Me.number.Locked = True
End If
End Sub

Private Sub number_AfterUpdate()
Me.number.Locked = True
End Sub

ممتاز

شكراً أخي حارث ( جزاك الله خيراً )

الفكرة ناجحة وطبقتها 100%

..:: إضافة ::..

طبقت الأكواد السابقة في نموذج مستمر

وواجهت بعض المشاكل

حيث إذا رغب في التراجع باستخدام مفاتح Esc

فإن المشكل السابقة ترجع ويقفل السجل ولا يمكن إضافة إي سجل آخر

نرجو التكرم بالحل على هذه المشكلة

شاكرا ًللجميع جهودهم المبذولة

UP

إذا تكرمتم

لماذا لا تستغني عن إقفال حقل رقم الفاتورة بعد تحديثه، وتجعل الإقفال بعد تحديث النموذج ، أي بدلا من :

Private Sub number_AfterUpdate()

Me.number.Locked = True

End Sub

يكون :

Private Sub Form_AfterUpdate()

Me.number.Locked = True

End Sub

أما حدث في الحالي فيبقى كما هو .

ألف شكر لك أخي العزيز (f) حارث(f)