مساعدة في ادراج نص في حقل

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

السلام عليكم 

في النموذج FLabelName D  يوجد حقل LabelNameText      ويوجد ثلاث ازرار  A,B,C    احتاج عند الضغط على احد هذة الازار  تكون قيمة الخقل LabelNameText       مساوية لقيمة نص تلميح عنصر التحكم للزر الذي تم الضغط علية 

LabelName.accdb

[ابوخليل]

Me.LabelNameText = Me.LabelNameA.ControlTipText

 

LabelName.rar

[شايب]

مشاركة مع الاستاذ ابو خليل

الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر

عن طريق عمل اجراء نعلى النحو التالي

Sub x()
LabelNameText = ActiveControl.ControlTipText
End Sub

ثم في زر الامر نشير لاسم الاجراء فقط

x

الملف مرفق

اخونا الشايب

 

LabelName.accdb

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

13 دقائق مضت, شايب said:

مشاركة مع الاستاذ ابو خليل

الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر

عن طريق عمل اجراء نعلى النحو التالي

ما شاء الله عليك اخي سهلة علي الكثير من العمل 

لكن ممكن شرح لطريقتك وماذا يقصد ب 

ActiveControl

مع جزيل الشكر

[شايب]

10 دقائق مضت, ازهر عبد العزيز said:

لكن ممكن شرح لطريقتك وماذا يقصد ب 

الزر النشط اي المستخدم حاليا

والفكرة باختصار في عالم البرمجة نتجنب تكرار الامر كلما امكن ذلك