في هذا الدرس سنتعلم كيفية منع إدخال سجل مكرر فى حقل من الحقول فى برنامج الأكسس الخاص بشركة مايكروسوفت
الدرس:
- التحكم فى برنامج الكسس غالباً ما يكون بإستخدام الخصائص عند تصميم الجدول أو بإستخدام الماكرو بوضع الحالة التى يجب ان تكون عليها الحقل المطلوب التحكم فيه . الماكرو وتصميمه يحتاج لتفصيل قد يطول.
- أو التحكم يكون بإستخدام حدث الفيجوال بيسك المناسب للحقل . لم أتطرق إلى الأحداث بل سأختصر بالحدث الذى نريده هنا وهو (BeforeUpdate) قبل حفظ التغييرات التى حدثت على السجل المدخل.
وإليكم الحدث مصمم بالفيجوال بيسك :
Private Sub ST-Name_BeforeUpdate(Cancel As Integer)
If(Not IsNull(DLookup("[ST-Name]", _
"Student", "[ST-Name] ='" _
& Me!ST-Name & "'"))) Then
MsgBox "هذا الرقم مكرر."
Cancel = True
End If
End Sub
حيث أن (ST-Name) هو الحقل المطول منع التكرار فيه.
و ( student) هو الجدول الذى يحوى بيانات ال(ST-Name) والبيانات الأخرى.
هكذا بالإستعانة ببرنامج الـفيجوال بيسك ستسطيع منع التكرار في الحقول.