• 0
hDrCsD

اخفاء واظهار textbox اعتماداً على قيمة الـ Combobox

سؤال

السلام عليكم ورحمة الله وبركاته
يرجى تفضلكم بمساعدتي في موضوع اخفاء تكست بوكس اعتماداً على الكومبوبوكس
حيث في الملف المرفق نموذج يتضمن:-
1-كومبوبوكس يتضمن قيم (عمومي ، خصوصي )
2-تكست بوكس عدد 2 يتضمن احدهما رقم العمومي والاخر رقم الخصوصي
المطلوب هو
عند اختيار عمومي من الكومبو بوكس يتم اظهار التكست بوكس الخاص بالعمومي مع الابقاء على اخفاء تكست الـ خصوصي والعكس صحيح
بالاضافة الى مراعاه ظهور الـ التكست الخاص بكل حالة عند التنقل بـ سكرول الماوس او ازرار التنقل بين الحقول

مع جزيل الشكر والاحترامM.rar

تم تعديل بواسطه hDrCsD
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

تفضل ، هذا هو الكود المطلوب:

Public Sub Show_Hide()    Select Case Me.النوع        Case "عمومي"                    Me.عمومي.Visible = True            Me.خصوصي.Visible = False                    Case "خصوصي"                Me.عمومي.Visible = False            Me.خصوصي.Visible = True        End Select    End SubPrivate Sub Form_Current()    Call Show_HideEnd SubPrivate Sub النوع_AfterUpdate()    Call Show_HideEnd Sub

جعفر

236.m.mdb.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جزيلا على الاجابة استاذ جعفر
تم حل المشكلة
عشت يا طيب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حيا الله من يانا :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم اخى 

انا حاولت تطبيق ما قمت بشرحه بس لم اجد ان 

التكست بوكس بتاع العمومى اختفى او الخصوصى 

فهل انا اختلط عليا الامر او شىء من هذا القبيل 

برجاء التوضيح

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي محمد

 

انزل المرفق في مشاركتي رقم 2 ، وسترى الكود ونتيجة الكود :)

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .