عدم تغيير قيمة الحقل

[Abdelaziz Osman]

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

لدي حقل داخل نموذج

اسم الحقل  Retial

المطلوب كود حدث وظيفته عدم تغيير قيمة هذا الحقل بعد تحديثه ويقبل التحديث فى حالة اذا كان خالى

 

 

[Foksh]

حسب ما توضحت الصورة في طلبك ، تفضل هذا المثال :-

في حدث في الحالي للنموذج ضع هذا الكود :-

Private Sub Form_Current()
    If Not IsNull(Me.Retial) Then
        Cancel = True
        Me.Retial.Enabled = False
        Else
        Cancel = False
        Me.Retial.Enabled = True
    End If
End Sub

وفي حدث بعد التحديث لمربع النص ضع هذا الجزء :-

        Cancel = True
        Me.Retial.Enabled = False

 

Retial.accdb

[Abdelaziz Osman]

مش قابل معايا فى نموذج ورقة بيانات

استخدمت الكود التالى بس للاسف بيشتغل عل السجل انا محتاجه فى الحقل نفسه

الكود هو

Retial_afterUpdate

Retial_
if Not Me.newRecord Then
MsgBox "غير مسموح بتغيير البيانات"
Retial.value = Retial.oldvalue
End IF
End SUb

 

تم تعديل April 1 بواسطه Abdelaziz Osman

[Foksh]

5 دقائق مضت, Abdelaziz Osman said:

مش قابل معايا فى نموذج ورقة بيانات

استخدمت الكود التالى بس للاسف بيشتغل عل السجل انا محتاجه فى الحقل نفسه

الكود هو

Retial_afterUpdate

Retial_
if Not Me.newRecord Then
MsgBox "غير مسموح بتغيير البيانات"
Retial.value = Retial.oldvalue
End IF
End SUb

 

اخي الكريم @Abdelaziz Osman انت عضو مميز ما شاء الله ، ومن المفترض انك تعي تماماً انشاء موضوع جديد ومتطلباته لتنفيذ افكارك وحل مشاكل واجهتها ، فلم توضح ان النموذج يعرض ورقة بيانات ولا اي شيء ، ولا حتى ارفاق ملف لم تقم به .

 

كل الشكر والتقدير لك 🤗

[Abdelaziz Osman]

معذرتا معلمى و اخى الكريم @Foksh

[Abdelaziz Osman]

مرفق ملف العمل

تطبيق الفكرة على حقل retial

Retial -.accdb

[Foksh]

تفضل اخي @Abdelaziz Osman هذه الفكرة ، تم تعديل الأكواد على النحو التالي:-

في حدث بعد التحديث و حدث عند التركيز للحقل Retial 

    If Not IsNull(Me.Retial) Then
        Cancel = True
        Me.Retial.Locked = True
        Else
        Cancel = False
        Me.Retial.Locked = False
    End If

لاحظ أن الكود نفسه تم استخدامه في حدثين ، ولك حرية التعديل حسب حاجتك 😊

 

Retial -.accdb

تم تعديل April 2 بواسطه Foksh
إضافة الملف المرفق

[Abdelaziz Osman]

اخى ومعلمى @Foksh

لك كل التقدير والاحترام