اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

 

  • Like 1
رابط هذا التعليق
شارك

الأخ أبو خليل

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

 

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information