مساعدة في مربع نص

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

السلام عليكم

لدي مربع نص textbox1 وهناك ثلاثة ازرار  الاول button1 والثاني button2 والثالث button3   احتاج عند الضغط على الزر الاول  يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار

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

me.textbox1 = 1

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

New Microsoft Access قاعدة بيانات.accdb

[متقاعد]

14 ساعات مضت, ازهر عبد العزيز said:

 احتاج عند الضغط على الزر الاول  يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار

مع اني ربما لم افهم المطلوب

ولكني ساحاول

ممكن نعمل اجراء

Sub k()
Dim a As Byte
Dim n, m  As String
For a = 1 To Len(ActiveControl.Name)
n = Mid(ActiveControl.Name, a, 1)
Select Case n
Case "0" To 9
m = m & n
End Select
Next a
Me.textbox1 = m
End Sub

ثم في كل زر امر نستدعي الاجراء بالشكل التالي

k

طبعا هذا الاستداء لايؤثر على اي اوامر في الازار

هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل

الملف في المرفقات

 

New Microsoft Access قاعدة بيانات).accdb

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

23 دقائق مضت, متقاعد said:

مع اني ربما لم افهم المطلوب

 

وهو المطلوب جزاك الله كل خير

[kkhalifa1960]

مشاركة مع أخي @متقاعد  نموذجين بطريقتين مختلفتين والشرح على النماذج ...........   تفضل أخي .

 

 

عند الضط على الزر يكتب رقمه بالتكستبوكس.accdb

تم تعديل مايو 2, 2023 بواسطه kkhalifa1960