نقل اسم وصف الزر عند الضغط إلى حقل نصي

[Hamtoooo]

السلام عليكم اسعد الله اوقاتكم بكل خير

لدي نموذج في اكثر من زر كل زر معنون بإسم 

اريد عندما اضغط على الزر ينقل اسم وصف الزر إلى حقل نصي بنفس النموذج 

الفكرة لاني اريد استخدام هذا الاسم كلما ضغط المستخدم على زر ينقل اسمه إلى الحقل النصي 

 

RR.accdb

[ابوخليل]

ما الذي تقصد بــــ  اسم وصف الزر ؟ هل تقصد التسمية الظاهرة على الزر ؟

[ابو جودي]

2 ساعات مضت, ابوخليل said:

ما الذي تقصد بــــ  اسم وصف الزر ؟ هل تقصد التسمية الظاهرة على الزر ؟

اعتقد يقصد الـتسمية " Caption "

والحل فى وحدة نمطية عامة

Public Function CopyCaptionToTextBox(TextBoxName As String)
    Dim ctrl As Control
    Set ctrl = Screen.ActiveControl
    
    If TypeOf ctrl Is CommandButton Then
        Forms(ctrl.Parent.Name).Controls(TextBoxName).Value = ctrl.Caption
    End If
End Function

للاستدعاء على اكثر من زر 

اولا تحديد كل الازرار التى نريد منها تنفيذ هذا الاجراء

والاستدعاء يتم بكتابة الكود بالشكل التالى فى الحدث عند الضغط

طبعا مع تغيير YouTextBoxNameInForm باسم مربع النص الموجود فى النموذج 

 

=CopyCaptionToTextBox("YouTextBoxNameInForm")

 

 

 

 

المرفق بعد التعديل 

 

RR.accdb

[Hamtoooo]

10 ساعات مضت, ابو جودي said:

المرفق بعد التعديل 

 

أحسن الله إليك وزادك الله علما
نفس الذي كنت اريده تماما شاكر ومقدر لك @ابو جودي 

كن بخير

[Hamtoooo]

@ابو جودي  حبيبنا الله يعطيك العافية

لو كان الزر بنموذج اخر واريده ينقل اسم الزر إلى الحقل النصي الموجود بالنموذج الاول 
اعتقد اغير مساره ("LABLEE") هنا
 

=CopyCaptionToTextBox("LABLEE")

لكن ما عرفت كيف افهمه اني اريد نقل اسم الزر للحقل النصي الموجود بالنموذج الاول

[Hamtoooo]

@ابو جودي  والاخوه الاعزاء مع التحيه لشخصكم إذا تشوفون حل اللي في ردي فوق ^^^