شرط عدم حفظ المستخدم الجديد اذا اختلفت كلمة السر والتأكيد

[Mr.Thinker]

السلام عليكم ورحمة الله وبركاته

أنا على وشك الانتهاء من مشروع برنامج حسابات للورش الصناعية

وبحكم اني مبتدئ ولا زلت جديد في عالم الاكسس أتمنى أن تتحملوني في الفترة القادمة لكثرة الأسئلة وان شاء الله استفيد منكم ويستفيد منها غيري

 

سؤالي عن  المستخدم الجديد اذا أردا التسجيل واختلفت كلمة السر والتأكيد

وضعت كود ولكن للأسف عندما يختلف التأكيد وأقوم بإلغاء عملية التسجيل أجد المستخدم تمت إضافته

والكود كالتالي:

If Me.Password_Confirm = [Password] Then
DoCmd.Save
DoCmd.GoToRecord , , acNewRec
Else
x = MsgBox("حقل كلمة المرور والتأكيد غير متطابقة", vbOKOnly, " لا يمكن الحفظ")
Exit Sub
End If

 

أتمنى ان اجد كود عند يساعد في عدم الحفظ في حال الخطأ

 

وشكرا لكم مقدما

[ابوخليل]

جرب اضاة السطر التالي

If Me.Password_Confirm = [Password] Then
DoCmd.Save
DoCmd.GoToRecord , , acNewRec
Else
x = MsgBox("حقل كلمة المرور والتأكيد غير متطابقة", vbOKOnly, " لا يمكن الحفظ")
DoCmd.CancelEvent
Undo
Exit Sub
End If

 

[Mr.Thinker]

الأخ أبو خليل

بارك الله فيك وجزاك خير الجزاء

 

لقيت كود يحذف السجل ويغلق النموذج وضعته في زر اسمه إلغاء ونجح الامر

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close

 

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

 

علما بأني وضعت في حدث النموذج on Erroor الكود التالي ولكنه لا يعمل

If DataErr = 3022 Then
Response = 0
x = MsgBox("يوجد مستخدم بهذا الاسم " & [User_Name], vbOKOnly, "تنبيه")

DoCmd.RunCommand acCmdUndo

End If