الرقم القومي

السلام عليكم

نوع الحقل:نص 

قناع الادخال 

00000000000000^

شكرا يا اخي

جرب هذا بعد التحديث 

حيث ان no_card   هو اسم حقل رقم البطاقة 

Private Sub NO_CARD_AfterUpdate()

' ÈÚÏ ßÊÇÈÉ ÇáÑÞã ÇáÞæãì ÇáÊÇßÏ ãäå íÓÇæì 14 ÑÞã
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If Len(Trim(NO_CARD)) <> 14 Then
MsgBox "      !!!!اكتب رسالتك   !!!!!!         ", vbCritical, "ÊÍÐíÑ!!!!!!"
DoCmd.CancelEvent
[NO_CARD].SetFocus
[NO_CARD].Undo
NO_CARD = Null
End If
DoCmd.CancelEvent
[NO_CARD].SetFocus
[NO_CARD].Undo
NO_CARD = Null
End If
End Sub
 

احمد احمد بدر كتب:

حقل مذكرة اكتب فيه الرقم القومي ونحن نعرف ان عدد الرقم القومي 14 رقم اريد كود يظهر الرسالة تخبر المستخدم اذا ادخل رقم اكثر من 14 رقم او اقل من 14 رقم ان الرقم غير صحيح ثم اذا اكتمل الحقل ب14 رقم ينتقل تلقائيا الي الحقل الذي يليه

طيب وليه عامل حقل الرقم القومى مذكره

اعمله نص وحدد عدد الحروف 14

وفى قناع الادخال اكتب 00000000000000 لكى يقوم بادخال ارقام فقط

باستخدام قاعدة التحقق من الصحه ضع اسم الحقل للرقم القومى بدل kwmy

Len([kwmy])=14

وتضع فى نص التحقق الرساله اللتى تريدها

بالتوفيق

اليك مرفق صغير 

اتمنى الافادة 

الرقم القومى.mdb