ازهر عبد العزيز قام بنشر مايو 1, 2023 مشاركة قام بنشر مايو 1, 2023 السلام عليكم لدي مربع نص textbox1 وهناك ثلاثة ازرار الاول button1 والثاني button2 والثالث button3 احتاج عند الضغط على الزر الاول يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار طبعا نوجد طريفة وهي كتاية الكود التالي تحت كل زر وحسب الرقم المطلوب me.textbox1 = 1 لكني احتاج طريقة اسهل لوجد العديد من الازرار في مشروعي وهناك مجموعة من الاكواد المرتبطة في كل زر New Microsoft Access قاعدة بيانات.accdb 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة متقاعد قام بنشر مايو 2, 2023 أفضل إجابة مشاركة قام بنشر مايو 2, 2023 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 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مايو 2, 2023 الكاتب مشاركة قام بنشر مايو 2, 2023 23 دقائق مضت, متقاعد said: مع اني ربما لم افهم المطلوب وهو المطلوب جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مايو 2, 2023 مشاركة قام بنشر مايو 2, 2023 (معدل) مشاركة مع أخي @متقاعد نموذجين بطريقتين مختلفتين والشرح على النماذج ........... تفضل أخي . عند الضط على الزر يكتب رقمه بالتكستبوكس.accdb تم تعديل مايو 2, 2023 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان