طلب كود يمنع كتابة اي حاجة فى TextBox8 و يسمح فقط بالاختيار من القائمة المنسدلة

[ehabaf2]

السلام عليكم الاخوة الافاضل السادة الخبراء

عندى فورم و به اكتر من TextBox محتاج  كود يمنع كتابة اي حاجة فى TextBox8 و يسمح فقط بالاختيار من القائمة المنسدلة 

و شكرا على مجهودكم 

الف الف شكر

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

وعليكم السلام ورحمة اللع وبركاته

لم تصلنى الفكرة بعد

منذ ساعه, ehabaf2 said:

يسمح فقط بالاختيار من القائمة المنسدلة

اين توجد القائمة المتسدلة لا اعتفد انها في TextBox8  لان 

TextBox في الـ VBA (UserForm) لا يدعم  قائمة منسدلة (DropDown / List) ، مع وجود ComboBox.

انا اذا كانت TextBox8  مرتبطة بكمبوبكس او لستبكس - قم بالضغط على  TextBox8   في وضع التصميم ثم من الخصائص  على يسار الشاشة اختار locked - true    او  enabled-false

 

ارفاق ملف  يختصر الوقت لفهم فكرة عمل TextBox8  

تحياتي

 

[ehabaf2]

الاستاذ الفاضل @عبدالله بشير عبدالله

الف شكر لحضرتك 

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

اكرر شكرى لحضر على مرورك و مجهودك

برنامج المراكز الطبية 30 اغسطس.xlsm

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

في طلبك الاول TextBox8 فقط  والان تغير الطلب  الى الكمبوبكس

يمكن اظافة   التالي الى UserForm_Initialize

Dim ctrl As Control
    
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" Then
            ctrl.Style = fmStyleDropDownList
            ctrl.Locked = False   
        End If
    Next ctrl

 

برنامج المراكز الطبية 30 اغسطس.xlsm

تم تعديل منذ 6 ساعات بواسطه عبدالله بشير عبدالله