بعد التحية والتقدير في الملف المرفق اريد عدم قبول تكرار بيانات حقل رقم البطاقة الشخصية وظهور رسالة مفادها ان بيانات هذا الشخص قد تم ادخالها وذلك بعد الانتقال إلى الحقل الذي ليه مباشرة حقل رقم تسجيل القوى وليست بعد الانتهاء من ادخال كامل البيانات يعني بعد ادخال بيانات حقل البطاقة الشخصية مباشرة ولكم الشكر
عدم تكرار رقم البطاقة الشخصية
السلام عليكم ورحمة الله وبركاته ..
أخي الكريم استبدل كامل الكود المدخل بحدث بعد التحديث لمربع نص رقم البطاقة لديك بهذا الكود :
Dim ix As Variant
ix = Nz(DLookup("StudentID", "Students", "StudentID=Forms!formregistration!StudentID"), 0)
If Me.StudentID = ix Then
MsgBox "رقم البطاقة مدخل لديك مسبقاً"
Me.StudentID = ""
End Ifمع تعديل اسم الفورم لديك ليكون بدون مسافة ليكون اسم الفورم ( formregistration ) بدلاً من ( formr egistration )
وبالتوفيق إن شاء الله ....
(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)
«´¨`.¸ أبو رهـــــــف ¸.´¨`»
(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )
¸.•’’ ’’
( `•.¸
`•.¸
لك الشكر والتقدير اخي ابو رهف والشكر كل الشكر لاستاتي الفاضلة ام عهود وهكذا عهدناكي دائما عمل رائعا جدا واكرر كل الشكر للاساتذة