كود منع تكرار البيانات المدخلة ..

[عفرنس]

السلام عليكم 

أريد كود منع تكرار البيانات المدخلة في الجدول من خلال النموذج بحيث يعطيني رسالة ( البيانات مدخلة من قبل ) . 

بحثت لكني لم أصل إلى النتيجة .. 

[ناقل]

طبعا سؤالك حسب معطيات نموذجك ؟ ... لكن حاول ان تستفيد من هذا 

 If DCount("الرقم", "Données _sur- les- élèves", "[الاسم] = '" & الاسم & "' And [اللقب] = '" & اللقب & "' And [رقم التسجيل] ='" & رقم_التسجيل & "'") > 0 Then
        Cancel = True
        MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة"
    End If

 

وهذه طريق اخرى

If Not IsNull(DLookup("A", "ABCD", "A=form!A")) Then
MsgBox "هذا الرقم تكرر عند " & DLookup("B", "ABCD", "A=form!A")
End If

 

[ناقل]

وهذا يعرض لك موقع التكرار

If Not IsNull(DLookup("A", "ABCD", "A=form!A")) Then
MsgBox "هذا الرقم تكرر عند " & DLookup("B", "ABCD", "A=form!A")
End If

 

[عفرنس]

 @ناقل جزاك الله خير 

المعطيات عندي بهذا الشكل 

تم تعديل فبراير 6, 2021 بواسطه عفرنس

[ناقل]

اذن منع التكرار أن تكون اللجنة والقاعة وليس التكرار في اللجنة فقط .... بمعنى :

ان اللجنة 1 ..... القاعة1 ... لا يتكرران

 

أم ان اللجنة1 لا يتكرر ليوم معين وكذلك القاعة ليوم معين

مثلا يوم الاحد اللجنة1 لا يتكرر وايضا القاعة1 

[عفرنس]

  في 6‏/2‏/2021 at 13:52, ناقل said:

اذن منع التكرار أن تكون اللجنة والقاعة وليس التكرار في اللجنة فقط .... بمعنى :

ان اللجنة 1 ..... القاعة1 ... لا يتكرران

Expand  

هذا صحيح .. منع تكرار اللجنة 1 .... القاعة 1 

وهكذا بقية اللجان والقاعات 

[ناقل]

  في 6‏/2‏/2021 at 18:09, عفرنس said:

هذا صحيح .. منع تكرار اللجنة 1 .... القاعة 1 

وهكذا بقية اللجان والقاعات 

Expand  

ممكن مثال مصغر للعمل عليه

[عفرنس]

  في 6‏/2‏/2021 at 21:06, ناقل said:

ممكن مثال مصغر للعمل عليه

Expand  

تفضل 

النموذج باسم Table1 

الجداول Hall1 - Hall - Exam_Hall

 

تجربة.rarFetching info...

[ناقل]

تفضل ربما هذا هو طلبك ....

 

تجربة.rarFetching info...

[عفرنس]

  في 7‏/2‏/2021 at 04:53, ناقل said:

تفضل ربما هذا هو طلبك ....

 

تجربة.rar 314.52 kB · 0 downloads

Expand  

جزاك الله خيرا .. هذا المطلوب