كتابة امر للرجوع الى الخلية السابقة

[محمد التميمي]

السلام عليكم

طيب الله اوقاتكم 

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

المطلوب بدل امر (CancelEvent) اوريد كتابة امر اذا كان رقم الهوية مكرر يقوم بارجاعي الى خانة الاسم

مع خالص الشكر والتقدير

555.accdb

[Eng.Qassim]

وعليكم السلام

اكتب الكود بعد التحديث...هكذا

Private Sub xx_AfterUpdate()
If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then
Else
MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه"
DoCmd.CancelEvent
Me.xx = ""
End If
Me.الاسم.SetFocus
End Sub

 

[محمد التميمي]

8 ساعات مضت, Eng.Qassim said:

وعليكم السلام

اكتب الكود بعد التحديث...هكذا

Private Sub xx_AfterUpdate()
If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then
Else
MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه"
DoCmd.CancelEvent
Me.xx = ""
End If
Me.الاسم.SetFocus
End Sub

 

شكرا اخي العزيز قاسم وبارك الله بك.هذا المطلوب