السلام عليكم يا عباقرة...
ابصراحة انا حصلت نموذج لتغير كلمة المرور في كتاب معين، وحبيت اعمله مثله( يعني عملت شبيه بهذا) بس المشكلة ما ضبط معي؟؟؟!!!
وما عرفت وين السبب في هذا النموذج؟؟؟؟واجو تساعدوني في التعديل عليه؟؟؟ لاني ابصراحة انفجر راسي وما عرفت شو المشكلة؟؟؟
وعليكم السلام
في الفورم 2 (تغيير كلمة السر الحالية)
في كوماند حفظ يكون الكود كالتالي :
If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If
شرح الكود لو التكست1 الخاص باسم المستخدم فارغ يظهر مسج لكتابة اسم المستخدم .
=================================================
If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
شرح الكود لو التكست2 الخاص بكلمة المرور القديمة فارغ يظهر مسج لكتابة كلمة المرور القديمة .
=================================================
If Text3 = "" or Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
شرح الكود لو التكست3 فارغ أو التكست4 لا يساوي التكست3 يظهر مسج عدم تطابق كلمات المرور .
=================================================
If rs.State = adStateOpen Then rs.Close
شرح الكود لو المتغير rs مفتوح يتم اغلاقة
rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
شرح الكود المتغير rs يقوم بفتح الجدول بشرط تطابق حقل اسم المستخدم مع تكست1 و حقل الباسوورد مع تكست2
If rs.EOF = True Then
شرح الكود لو النتيجة True يعني لم يجد الشرط في الجدول يعني اسم المستخدم الموجود في تكست1 وكلمة المرور الموجودة في تكست2 غير موجودة في جدول Users
MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
شرح الكود إظهار مسج بوكس بعد وجود السجل
Else
شرح الكود أو تم وجود السجل
MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
شرح الكود إظهار رسالة مفادها هل انت متأكد من تعديل الباسوورد او تغييره
If MSGSave = vbYes Then
شرح الكود لو نقر كوماند موافق في الرسالة
rs!P_w = Text3
شرح الكود اسناد قيمة تكست3 إلى الحقل p_w
rs.Update
شرح الكود اتمام عملية حفظ كلمة السر الجديدة في الجدول
End If
MsgBox "Change Password Done"
شرح الكود إظهار مسج بوكس بتغيير كلمة السر
Unload Me
شرح الكود يغلق الفورم
End If
=================
الكود كامل يكون هكذا
====
If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
If Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then
MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
Else
MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
If MSGSave = vbYes Then
rs!P_w = Text3
rs.Update
End If
MsgBox "Change Password Done"
Unload Me
End If
=================codenew كتب:وعليكم السلام في الفورم 2 (تغيير كلمة السر الحالية) في كوماند حفظ يكون الكود كالتالي : If Text1 = "" Then MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error " Text1.SetFocus Exit Sub End If شرح الكود لو التكست1 الخاص باسم المستخدم فارغ يظهر مسج لكتابة اسم المستخدم . ================================================= If Text2 = "" Then MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error " Text2.SetFocus Exit Sub End If شرح الكود لو التكست2 الخاص بكلمة المرور القديمة فارغ يظهر مسج لكتابة كلمة المرور القديمة . ================================================= If Text3 = "" or Text3 <> Text4 Then MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error " Exit Sub End If شرح الكود لو التكست3 فارغ أو التكست4 لا يساوي التكست3 يظهر مسج عدم تطابق كلمات المرور . ================================================= If rs.State = adStateOpen Then rs.Close شرح الكود لو المتغير rs مفتوح يتم اغلاقة rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic شرح الكود المتغير rs يقوم بفتح الجدول بشرط تطابق حقل اسم المستخدم مع تكست1 و حقل الباسوورد مع تكست2 If rs.EOF = True Then شرح الكود لو النتيجة True يعني لم يجد الشرط في الجدول يعني اسم المستخدم الموجود في تكست1 وكلمة المرور الموجودة في تكست2 غير موجودة في جدول Users MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error " شرح الكود إظهار مسج بوكس بعد وجود السجل Else شرح الكود أو تم وجود السجل MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ") شرح الكود إظهار رسالة مفادها هل انت متأكد من تعديل الباسوورد او تغييره If MSGSave = vbYes Then شرح الكود لو نقر كوماند موافق في الرسالة rs!P_w = Text3 شرح الكود اسناد قيمة تكست3 إلى الحقل p_w rs.Update شرح الكود اتمام عملية حفظ كلمة السر الجديدة في الجدول End If MsgBox "Change Password Done" شرح الكود إظهار مسج بوكس بتغيير كلمة السر Unload Me شرح الكود يغلق الفورم End If ================= الكود كامل يكون هكذا ==== If Text1 = "" Then MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error " Text1.SetFocus Exit Sub End If If Text2 = "" Then MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error " Text2.SetFocus Exit Sub End If If Text3 <> Text4 Then MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error " Exit Sub End If If rs.State = adStateOpen Then rs.Close rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic If rs.EOF = True Then MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error " Else MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ") If MSGSave = vbYes Then rs!P_w = Text3 rs.Update End If MsgBox "Change Password Done" Unload Me End If =================
اشكك كل الشكر استاذي، ولكن ظهرت مشكلة وهي في حاله تساوي كلمة المرور في مربع النص الثاني مع الثالث يعطيني مسج( كلمة المرور لا تساوي التاكيد) المشكلة مرفقة بالصور.
ما ادري اذا كان تحليلي صحيح او لا:( اعتقد انه يحب ان نحط كود انه في حالة تساوي كلمة المرور في المربعين ينقلني الى الفورم الثاني)
واسمحلي لاني تقدمي عليك في تحليلي.
وتقبل نتيجتي سيدي
العفو ،
انا هنا اتكلم عن فورم 2 شاشة تغيير كلمة السر الحالية
حسب طلبك الأول
codenew كتب:العفو ،
انا هنا اتكلم عن فورم 2 شاشة تغيير كلمة السر الحالية
حسب طلبك الأول
اتضحت الصورة عزيزي... اشكرك.
طيب ظهرت لي مشكلة ثانية، مرفق المشكلة.
مرفق برنامج بدون توضيح اين المشكلة !!!
codenew كتب:مرفق برنامج بدون توضيح اين المشكلة !!!
هذه هي المشكلة بعد الضغط على زر الحفظ.
استاذي وينك..؟؟ انتظر ردك
codenew كتب:المعذرة
كلمات الشكر لا توفي حقك استاذي. وجزاك ربي خير الجزاء
استاذي في ملاحظة بعد اذنك:
كلما اضغط موافق في الفورم 4 تظهر لي هذه الصورة رقم (1). وهذا هو السبب في الصورة رقم (2):؟؟؟؟؟؟؟
واسمحلي لاني اتعبتك معي بارك الله فيك
العفو
المشكلة اسم الحقل في الجدول p_w وفي جملة SQLs مكتوب Password
يجب تعديل Password إلى p_w
أيضاً يجب عدم وضع مسافات مثال
Where User_n = ' " & Text1 & " ' And p_w = ' " & Text2 & " ' "
الجملة العلوية خطا
الصحيح كالتالي
Where User_n = '" & Text1 & "' And p_w = '" & Text2 & "'"
تم تعديل هذه المشاركة بواسطة codenew في 28 أبريل 2012 في 22:53
اللهم اغفر لهذا الانسان ولوالديه واهله انا معهم يا ارحم الراحمين.
بارك الله فيك يا اخي العزيز. وفعلاً انت عبقري. زادك الله من واسع فضله.
دمت للمبتدئين من امثالي دوماً.
الحياة امراة كتب:اللهم اغفر لهذا الانسان ولوالديه واهله انا معهم يا ارحم الراحمين.
بارك الله فيك يا اخي العزيز. وفعلاً انت عبقري. زادك الله من واسع فضله.
دمت للمبتدئين من امثالي دوماً.
آمين وياك والمسلمين يارب العالمين
