كود عدم تكرار المُدخل

[AbedElkader]

السلام عليكم ورحمة الله وبركاته
طلب كود عدم تكرار مدخل للحقل موجود مسبقا في فواعد البيانات 
وشكرا

[أبو آدم]

تفضل

بشرط تدقيق تطابق تكرار حقل واحد فقط

Private Sub OrderID_AfterUpdate()

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst!ID = Me!OrderID  Then

MsgBox " السجل مكرر  ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
Cancel = True
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close

End Sub

 

[AbedElkader]

4 ساعات مضت, أبو آدم said:

تفضل

بشرط تدقيق تطابق تكرار حقل واحد فقط

Private Sub OrderID_AfterUpdate()

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst!ID = Me!OrderID  Then

MsgBox " السجل مكرر  ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
Cancel = True
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close

End Sub

الف شكر وبارك الله فيكم ...
ممكن لو بس شرح بسيط للكود ؟

 

[أبو آدم]

تم تعريف مجموعة السجلات التي نعمل من خلالها في النموذج

لنتجول بها حتى نهايتها

فاذا كانت قيمة الحقل ID في مجموعة السجلات متطابقة  مع قيمة الحقل OrderID في النموذج تظهر لنا رسالة تؤكد ان القيمة التي ننوي ادراجها ضمن مجموعة السجلات موجودة اصلا و ستحدث تكرارا ، لذا يتم الغاء القيمة المدخلة في الحقل ، تم نخرج من سلسلة مجموعة السجلات ولا داعي لاستكمال التجوال لنهاية السجلات .

في حال لم نجد تطابقا في القيمة في السجل الذي وصلنا له ، ننتقل للسجل التالي  و نستمر بالتقدم حتى نهاية مجموعة السجلات .

و اذا لم نجد تطابقا يتحقق التحديث لقيمة الحقل و تثبت القيمة كونه لم يتحقق الشرط ( تطابق قيمة الحقل ID في مجموعة السجلات مع قيمة الحقل OrderID في النموذج )

و السلام ختام ...

[AbedElkader]

في ١٢‏/٢‏/٢٠١٨ at 16:57, أبو آدم said:

تم تعريف مجموعة السجلات التي نعمل من خلالها في النموذج

لنتجول بها حتى نهايتها

فاذا كانت قيمة الحقل ID في مجموعة السجلات متطابقة  مع قيمة الحقل OrderID في النموذج تظهر لنا رسالة تؤكد ان القيمة التي ننوي ادراجها ضمن مجموعة السجلات موجودة اصلا و ستحدث تكرارا ، لذا يتم الغاء القيمة المدخلة في الحقل ، تم نخرج من سلسلة مجموعة السجلات ولا داعي لاستكمال التجوال لنهاية السجلات .

في حال لم نجد تطابقا في القيمة في السجل الذي وصلنا له ، ننتقل للسجل التالي  و نستمر بالتقدم حتى نهاية مجموعة السجلات .

و اذا لم نجد تطابقا يتحقق التحديث لقيمة الحقل و تثبت القيمة كونه لم يتحقق الشرط ( تطابق قيمة الحقل ID في مجموعة السجلات مع قيمة الحقل OrderID في النموذج )

و السلام ختام ...

جزاك الله خيرا ,,,
الف شكر على المجهود الطيب