مساعدة في اختصار كود مع اضافة باسورد لزر

[ازهر عبد العزيز]

السلام  عليكم ....لدي نموذج info هل بالمكان اختصار هذا الكود تحت الزر sec  وايضا محتاج باسورد للزر secshow في نفس النموذج 

Private Sub sec_Click()
   Me.rank.Visible = False
      Me.Serial_Number.Visible = False
         Me.Password.Visible = False
         Me.adress.Visible = False
      Me.mobail.Visible = False
   Me.mobail2.Visible = False
End Sub

 

sec.accdb

تم تعديل أبريل 27, 2020 بواسطه ازهر عبد العزيز

[Khalid Jnb]

السلام عليكم

بالنسبة لكلمة المرور  هي (1234)

تفضل اخي الكريم

 

sec.rar

تم تعديل أبريل 27, 2020 بواسطه Khalid Jnb

[ازهر عبد العزيز]

الاستاذ @Khalid Jnb   ماشاء اللة عليك روعة ... طلب اخر هل بالامكان دمج الزران في زر واحد اي اظهار الحقول  واخفائها في نفس الزر مع اضافة  الباسورد 

تم تعديل أبريل 27, 2020 بواسطه ازهر عبد العزيز

[Khalid Jnb]

السلام عليكم

يمكن عمل زر واحد يقوم بعملين اظهار واخفاء الحقول

هل هذا هو طلبك

تحياتي

 

[ازهر عبد العزيز]

5 دقائق مضت, Khalid Jnb said:

السلام عليكم

يمكن عمل زر واحد يقوم بعملين اظهار واخفاء الحقول

هل هذا هو طلبك

تحياتي

 

نعم استاذ هذا طلبي

 

[Khalid Jnb]

اخي انتظرني قليلا 

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم

اتمنى ان يكون هو المطلوب

تحياتي

sec.rar

[Khalid Jnb]

السلام عليكم

اخي العزيز

تم تصحيح الكود الخاص بكلمه المرور

تحياتي

sec.rar

[ازهر عبد العزيز]

الاستاذ @Khalid Jnb