تجزئة الرقم

[Akram Galal]

السادة الأفاضل أريدكود يقوم بتجزئة الرقم

بمعنى

انه يكون داخل الفورمة تكست بوكس نكتب فيه الرقم كامل المكون من 14 رقم

و 14 تكست بوكس أخرين

وعند الضغط علي زر CommandButtonيتم تقسيم أو توزيع الرقم داخلهم

جزاكم الله خيرا

وارفق لكم صورة للتوضيح

صورة جديدة.bmp

[رجب جاويش]

تفضل أخى الفاضل

جرب هذه الفكرة

 

 

 

اكرم.rar

[الصـقر]

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

وكمان من فضلك ترفق ملف يوضح المطلوب

بعد اذن الاستاذ الفاضل رجب جاويش

من باب التنوع واثراء للموضوع

 

جرب الكود التالى

الكود يتم وضعه بحدث التغيير بالتكست بوكس 

Private Sub TextBox15_Change()
If Len(TextBox15) = 14 Then
For i = 1 To 14
Me.Controls("textbox" & i).Value = Mid(TextBox15, i, 1)
Next
End If
End Sub

تقبل تحياتى

====================================

 

 

[مهند الزيدي]

مرحبا بالأخ رجب جاويش .. اسعدنا وجودك

[Akram Galal]

46 دقائق مضت, رجب جاويش said:

تفضل أخى الفاضل

جرب هذه الفكرة

 

 

 

اكرم.rar

يااااااااااااااااااااااااااااااااااااااه

يا أ/ رجب بقالك زمان مشفنالكش حاجة

فرحتنا بشوفتك أكتر من من فرحتنا بالحل

والف شكر علي الحل التحفة جزاك الله خيرا

أ/ الصقر

تم تكرار الموضوع بدون قصد

ولا اعلم كيف تم ذلك

وشكرا علي التوجية

تم تعديل يناير 23, 2016 بواسطه Akram Galal

[رجب جاويش]

أخى الفاضل / مهند الزيدي

جزاك الله كل خير

 

أخى الفاضل / أكرم جلال

ربنا يخليك أخى الفاضل

شكرا جزيلا أخى الفاضل على كلماتك الطيبة

وجزاك الله كل خير

والله الغياب كان غصب عنى

وربنا يسهل ويستمر التواصل باذن الله

 

 

[قلم-الاكسل(عبدالعزيز)]

شكرا الاستاذ اكرم ابدعت فأمتعت

باركك الله