Abdelaziz Osman قام بنشر April 1 مشاركة قام بنشر April 1 السلام عليكم ورحمة الله لدي حقل داخل نموذج اسم الحقل Retial المطلوب كود حدث وظيفته عدم تغيير قيمة هذا الحقل بعد تحديثه ويقبل التحديث فى حالة اذا كان خالى رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 1 مشاركة قام بنشر April 1 حسب ما توضحت الصورة في طلبك ، تفضل هذا المثال :- في حدث في الحالي للنموذج ضع هذا الكود :- 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 1 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 (معدل) مش قابل معايا فى نموذج ورقة بيانات استخدمت الكود التالى بس للاسف بيشتغل عل السجل انا محتاجه فى الحقل نفسه الكود هو Retial_afterUpdate Retial_ if Not Me.newRecord Then MsgBox "غير مسموح بتغيير البيانات" Retial.value = Retial.oldvalue End IF End SUb تم تعديل April 1 بواسطه Abdelaziz Osman رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 1 مشاركة قام بنشر April 1 5 دقائق مضت, Abdelaziz Osman said: مش قابل معايا فى نموذج ورقة بيانات استخدمت الكود التالى بس للاسف بيشتغل عل السجل انا محتاجه فى الحقل نفسه الكود هو Retial_afterUpdate Retial_ if Not Me.newRecord Then MsgBox "غير مسموح بتغيير البيانات" Retial.value = Retial.oldvalue End IF End SUb اخي الكريم @Abdelaziz Osman انت عضو مميز ما شاء الله ، ومن المفترض انك تعي تماماً انشاء موضوع جديد ومتطلباته لتنفيذ افكارك وحل مشاكل واجهتها ، فلم توضح ان النموذج يعرض ورقة بيانات ولا اي شيء ، ولا حتى ارفاق ملف لم تقم به . كل الشكر والتقدير لك 🤗 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 معذرتا معلمى و اخى الكريم @Foksh رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 مرفق ملف العمل تطبيق الفكرة على حقل retial Retial -.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 2 أفضل إجابة مشاركة قام بنشر April 2 (معدل) تفضل اخي @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 إضافة الملف المرفق رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر April 2 الكاتب مشاركة قام بنشر April 2 اخى ومعلمى @Foksh لك كل التقدير والاحترام 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.