المقدمة :

في هذا الدرس سنتعلم كيفية منع إدخال سجل مكرر فى حقل من الحقول فى برنامج الأكسس الخاص بشركة مايكروسوفت

الدرس:

- التحكم فى برنامج الكسس غالباً ما يكون بإستخدام الخصائص عند تصميم الجدول  أو بإستخدام الماكرو بوضع الحالة التى يجب ان تكون عليها الحقل المطلوب التحكم فيه . الماكرو وتصميمه يحتاج لتفصيل قد يطول.

- أو التحكم يكون بإستخدام حدث الفيجوال بيسك المناسب للحقل . لم أتطرق إلى الأحداث بل سأختصر بالحدث الذى نريده هنا وهو (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) والبيانات الأخرى.

هكذا بالإستعانة ببرنامج الـفيجوال بيسك ستسطيع منع التكرار في الحقول.