برجاء التعديل على كود اظهار حقل مخفي او اخفاء حقل ظاهر

[alaa aboul-ela]

الاساتذة الاعزاء

السلام عليكم

اريد التعديل على الكود في الملف المرفق بحيث

اذا تساوت كلمة السر القديمة old مع كلمة السر password يظهر حقل كلمة السر الجديدة new

 

If [old] = [password] Then
Me.new.Visible = True
End If

وااذا لم تتساوى   old<> password  لايظهر حقل كلمة السر الجديدة

If [old] <> [password] Then
MsgBox "كلمة السر خطأ حاول مرة اخرى  ", vbCritical, "ÊÍÐíÑ"
Cancel = True
Me.new.Visible = False
End If

الغرض من التعديل
في كلا الحالتين يختفي حقل كلمة السر الجديدة وانا اريد اخفائها فقط في حالة ان كلمة السر المختبرة لا تساوي كلمة السر الحقيقية المدخلة مسبقاً

 

alaa_password.accdb

تم تعديل نوفمبر 14, 2018 بواسطه alaa aboul-ela

[alaa aboul-ela]

برجاء الدخول على شاشة تعديل كلمة السر password change

في حالة تطابق كلمة السر القديمة old   مع كلمة السر pass word يسمح بكتابة كلمة السر الجديدة  new

في حالة عدم التطابق يختفي حقل كلمة السر الجديدة new

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

[jjafferr]

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

 

انا اضفت Enable اللي ما يسمح بإدخال قيمة للحقل حتى ولو كان مرئي ، وطبعا يمكنك حذفه

 

جرب هذا الكود

Private Sub Form_Load()

    With Me.new
        .Visible = False
        .Enabled = False
    End With
    
End Sub

Private Sub old_AfterUpdate()
    
    If Me.old.Text = "" Then
        MsgBox "من فضلك أكتب إسم كلمة السر ", vbCritical, "تحذير"

    ElseIf Me.old.Text = [password] Then
        Me.new.Visible = True
        Me.new.Enabled = True

    ElseIf Me.old.Text <> [password] Then
        MsgBox "كلمة السر خطأ من فضلك حاول مرة اخرى ", vbCritical, "تحذير"

    End If
    
End Sub

 

جعفر

[ابو جودي]

اتفضل 

alaa_password(1).accdb

[alaa aboul-ela]

استاذي الغالي / جعفر ..

تمام زي الفل تسلم ايدك وربنا يبارك لك في صحتك ومالك وعيالك ...

استاذي / ابو جودي

تسلم ايدك وربنا يبارك ويحميك حملت الملف وكله تمام ...

تم تعديل نوفمبر 14, 2018 بواسطه alaa aboul-ela

[ابو جودي]

I am very sorry I did not pay attention to your presence

Professor Jaffer