كيف ينبهني البرنامج بأن الرقم قد تم إدخاله سابقا

[2003salah_salah]

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

db111.rar

[ابوخليل]

الطرق متعددة وهذا أحدها

Dim rst As Recordset

Set rst = Me.RecordsetClone

rst.MoveFirst

Do Until rst.EOF

If rst![بطاقة تعريف] = Me![بطاقة تعريف] Then

MsgBox " رقم بطاقة التعريف تم إدخاله سابقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo

DoCmd.CancelEvent

Exit Do

End If

rst.MoveNext

Loop

rst.Close

db1.rar

[محمد ايمن]

بسم الله ما شاء الله اخي ابو خليل ابداع بلا حدود

[ابوخليل]

تغيب وتجي سالم اخي محمد

شكرا لك