السلام عليكم
عندي فورم في مربع نص عدد 2 وزر
في المربع الأول يوجد الرقم التالي : 12854635789
أريد عند الضغط على الزر أن يقوم بالعمليات التالية
استبدال ثالث رقم بالعدد 6
استبدال سابع رقم بالعدد 2
استبدال ثامن رقم بالعدد 7
الرقم التاسع أضف عليه 2 ثم اضربه بـ7
النتيجة تكون في التيكست الثاني وتبقى بقية الأرقام على حالها دون تغيير
فيصبح الرقم هكذا: 126546276389
النموذج بالمرفقات....
وجزاكم الله خيراً
فاعلم أنه لا إله إلا الله
تفضل
r = Me.Text1 r = Left(r, 2) & 6 & Right(r, Len(r) - 3) r = Left(r, 7) & 2 & Right(r, Len(r) - 8) r = Left(r, 8) & 7 & Right(r, Len(r) - 9) Me.Text1 = r t = (Val(Mid(r, 9, 1)) + 2) * 7 Me.Text2 = t
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
الله ينور دربك ويفتح عليك ويحسن لوالديك أخ عبد الفتاح الحسن
هذا ما أريده وبعد التعديل أصبح الكود هكذا وهذا رأيته أسهل
R = Text1
السلام عليكم
فاعلم أنه لا إله إلا الله
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…