أحبتي السلام عليكم
لدي جدول به رقم الموظف num
تاريخ اليوم date_d
تاريخ الشهرdate_m
تاريخ السنة date_y
أريد عمل استعلام يحذف السجلات المكررة إذا تساوى التكرار في جمييع الحقول السابقة ما عدا السجل الأول
بمعنى لو أدخلت رقم الموظف مرتين بنفس التاريخ فإنه يحذف التسجيل الثاني دون الأول
أو أفيدوني عن كود منع تكرار التسجيل إذا تساوت الحقول السابقة علما بأن الجدول اسمه tech
أخي الغالي
السلام عليكم ورحمة الله وبركاتة
كل و انت بخير
انظر لهذا المثال
في حقل NUM وضعت لك كود كما تري في حدث الخروج من الحقل بمنع تسجيل اي بيانات قد تم تسجيلها سابقاً في قاعدة بيانات
حاول تسجيل رقم 1 أو 2 أو 3 لغاية السجل رقم 10 ستجد البرنامج يرفض تسجيل هذه البيانات نظراً لانها مسجله سابقا
طيب مرة أخري حاول تسجل من رقم 11 الي ما لانهاية اعتقد ان البرنامج سيقبل التسجيل
مرفق مثال
numfield = Me.num
Dim a
a = DLookup("[num]", "tech", "[num]='" & Me.num & "'")
If Not (IsNull(a)) Then
MsgBox "عفــــواً أنت تحاول تسجيل رقم موظف موجود سابقاً بقاعدة بياناتك", vbCritical, "رسالة تحـــزيرية"
Cancel = True
Me.Undo
End If
أخي الغالي أبو غدي
ما هذا الملف المرفق
انا فكيت الضغط عن الملف لكي أجد ملف امتداده غريب
غياب.accdb
برجاء الافادة ما هذا الملف ؟؟؟؟؟
للرفع
للرفع
up
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…