كود نسيت كلمة المرور

[Rawannnna]

السلام عليكم

اريد كود لتغيير كلمة المرور من خلال النموذج

اضفت هذا الكود لكن لايعمل

اريده ان يطابق البيانات فقط ثم ينتقل لنموذج كلمة المرور الجديدة

علما أن sds1 هي التكست بوكس لـ Emploee Number

             sds2 = User_Phone

sds3=Email

 

[jjafferr]

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

 

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

 

جعفر

[Rawannnna]

10 ساعات مضت, jjafferr said:

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

 

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

 

جعفر

نعم البيانات صحيحة نفسها الموجودة في الجدول

[jjafferr]

كم مستخدم عندك؟

عادة لكل مستخدم سجل فيه معلوماته ومعلومات الدخول،

فاذا كان عندك مستخدم اسمه جعفر ، وآخر اسمه جعفر2 ، وعند دخولك النموذج ، فتلقائيا النموذج يُفتح على السجل الاول ، والذي يكون جعفر ، ولكن المستخدم قد يكون جعفر2!!

 

الطريقة السهلة لكي تعرفين ان البيانات متطابقة هي ان تجعلين الحقول ظاهره وغير مخفية ، ومنها تكون المقارنة

 

شيء آخر تستطيعين عمله هو تغيير الكود بهذا:

if me.sds1.text=me.user_Name and .....

بحيث تضيفين للحقول الغير مضمنه كلمة
.text
ومعناها القيمة التي لم تُحفظ بعد

 

واذا هذه الطرق ما نفعت ، فلوسمحتي ترفقي هذه الجزئية من قاعدة بياناتك

 

جعفر

[Rawannnna]

في ‏٢٧‏/‏٠٧‏/‏١٤٣٨ at 11:21, jjafferr said:

كم مستخدم عندك؟

عادة لكل مستخدم سجل فيه معلوماته ومعلومات الدخول،

فاذا كان عندك مستخدم اسمه جعفر ، وآخر اسمه جعفر2 ، وعند دخولك النموذج ، فتلقائيا النموذج يُفتح على السجل الاول ، والذي يكون جعفر ، ولكن المستخدم قد يكون جعفر2!!

 

الطريقة السهلة لكي تعرفين ان البيانات متطابقة هي ان تجعلين الحقول ظاهره وغير مخفية ، ومنها تكون المقارنة

 

شيء آخر تستطيعين عمله هو تغيير الكود بهذا:

if me.sds1.text=me.user_Name and .....

بحيث تضيفين للحقول الغير مضمنه كلمة
.text
ومعناها القيمة التي لم تُحفظ بعد

 

واذا هذه الطرق ما نفعت ، فلوسمحتي ترفقي هذه الجزئية من قاعدة بياناتك

 

جعفر

 

البيانات ظاهره ومطابقة

عملت نفس الكود لكن في الاستعلام لايقبل الصياغة sds1.text

[Forms]![Forgot password]![sds1.text]

 

[Shivan Rekany]

هل من الممكن ان ترفق جزء المطلوب عمل عليها من قاعدة بياناتك

[jjafferr]

1 ساعه مضت, Rawannnna said:

عملت نفس الكود لكن في الاستعلام لايقبل الصياغة sds1.text

ليس في الاستعلام ، وانما في حدث الزر امر9 مثل ما ارفقتيه في الصورة في اول مشاركتة لك

 

جعفر

[jjafferr]

اختي لقد فتحتي موضوع جديد وارفقتي قاعدة البيانات هناك ،

وهذا كان الحل:

 

جعفر

[Rawannnna]

3 ساعات مضت, jjafferr said:

اختي لقد فتحتي موضوع جديد وارفقتي قاعدة البيانات هناك ،

وهذا كان الحل:

 

جعفر

عندي ثلاثة مستخدمين فقط

أستاذ جعفر اسفة على اللخبطة

ولكن لم تنجح الطريقتين

[jjafferr]

 

تفضلي

Private Sub amr9_Click()
'If Me.sds1.Text = Me.User_ID And Me.sds2.Text = Me.User_Phone And Me.sds3.Text = Me.User_Email Then

    If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then
       
        DoCmd.OpenForm "New password", acNormal
    Else

        ms$ = "The data dose't match"
        ti$ = "Make sure your data"
        re = MsgBox(ms$, 0, ti$)
    End If
    

End Sub

 

والنتيجة

 

.

جعفر

تم تعديل مايو 4, 2017 بواسطه jjafferr
تم حذف الفيديو ، حسب طلب صاحب الموضوع

[Rawannnna]

7 ساعات مضت, jjafferr said:

 

تفضلي

Private Sub amr9_Click()
'If Me.sds1.Text = Me.User_ID And Me.sds2.Text = Me.User_Phone And Me.sds3.Text = Me.User_Email Then

    If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then
       
        DoCmd.OpenForm "New password", acNormal
    Else

        ms$ = "The data dose't match"
        ti$ = "Make sure your data"
        re = MsgBox(ms$, 0, ti$)
    End If
    

End Sub

 

والنتيجة

 

.

جعفر

 

أستاذ جعفر انا طبقت نفس الكود بالضبط وبرضو مازالت المشكلة

 

تم تعديل مايو 4, 2017 بواسطه jjafferr

[jjafferr]

تفضلي أختي 

 

هذا مثالك بعد التغيير ، ولكن الملف بصيغة 7z ، فرجاء تغيير اسمه بعد انزاله ،

ملفك حجمه بعد الضغط يصل الى 8MB فلم استطع رفعه إلا بهذه الصيغة ،

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

 

جعفر

636.‏‏DBSystem 99999998 - نسخة (2).accdb.zip

[Rawannnna]

49 دقائق مضت, jjafferr said:

تفضلي أختي 

 

هذا مثالك بعد التغيير ، ولكن الملف بصيغة 7z ، فرجاء تغيير اسمه بعد انزاله ،

ملفك حجمه بعد الضغط يصل الى 8MB فلم استطع رفعه إلا بهذه الصيغة ،

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

 

جعفر

636.‏‏DBSystem 99999998 - نسخة (2).accdb.zip

 

ششششكرا أستاذ جعفر الله يعطيك العافية

وشكرا على النصيحة باذن الله سأبحث عنها بالمنتدى

[jjafferr]

[Rawannnna]

1 دقيقه مضت, jjafferr said:

أستاذ جعفر هل يوجد بالمنتدى رسايل خاصه ؟؟؟

 

[jjafferr]

نعم يوجد ، ولكن ليس للأعضاء الجدد

يجب ان تصل مشاركاتك الى رقم معين ، فتتفعّل هذه الخاصية تلقائيا

 

جعفر

[Rawannnna]

1 دقيقه مضت, jjafferr said:

نعم يوجد ، ولكن ليس للأعضاء الجدد

يجب ان تصل مشاركاتك الى رقم معين ، فتتفعّل هذه الخاصية تلقائيا

 

جعفر

ماهو الرقم المعين ؟

 

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

 

وكل الشكر والتقدير لمجهودك في تووصيل المعلومة

[jjafferr]

3 دقائق مضت, Rawannnna said:

1. ماهو الرقم المعين ؟

2. وأتمنى منك حذف شرح الفيديو لان البيانات الظاهرة فيه بيانات شخص حقيقي

 

وكل الشكر والتقدير لمجهودك في تووصيل المعلومة

1. لا اتذكر ، ولكني على ما اعتقد ، بأن رتبتك سترتقي للمرحلة التاليه ، وعندها ستتوفر الخدمة ،

2. تم عمل الازم.