السلام عليكم ورحمة الله
وجدت طريقة سهلة وميسرة لمنع العبث بحقل معين ... بل وتعبئته ببيانات أنت تريد اظهارها
ولا يمكن التعديل على محتوياتها.
ولنفرض أنك تريد اضافة اسم جديد (بيانات جديدة ) ضمن حقول بيانات الموظفين
وما عليك الا كتابة الاسم في حقل الاسم وبمجرد الضغط على Enter سيتم ادراج تاريخ ووقت هذه العملية ..
وهنا الفكرة ..
يوجد أمام المسخدم حقل( بمجرد ادخال الاسم) سيدرج فيه التاريخ والوقت ولا يمكن التعديل عليه
وسيتم نقلك من خانة الاسم الى الخانة التي تلي خانة (تاريخ التعديل على البيانات).
وهذه الأكواد المستخدمة :
*الكود الأول لتخطي الحقل
Private Sub txtYourControl_AfterUpdate() txtYourNextControl.SetFocus With txtYourControl .Enabled = False .Locked = True End With End Sub
*الكود الثاني : لإدراج التاريخ والوقت
txtYourNextControl = Now()
ولا تنس :
أن تجعل حقل ( تاريخ تعديل البيانات) مؤمن
ولا تنسانا من دعوة صالحة
انظر المرفقات
اللامي
