فروم تخصصی - پشتیبانی CPSD

نسخه‌ی کامل: جداسازی اعداد از یکدیگر
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
با سلام

در برخی موارد این نیاز وجود داره که در اسناد ( گزارشات ) ارقام به صورتی مجزا به نمایش در بیان ( به صورت ذیل )

[تصویر:  Dividing%20Nums.png]

راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش
کد:
For i = 1 To 9
       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)
Next i
دستور فوق اقدام به جداسازی اعداد 9 رقمی خواهد نمود در صورتی که مایل بودید تعداد ارقام رو تغییر بدید شما تنها نیاز دارید عدد 9 رو به عدد مد نظر تغییر داده و TextBox های متناظر رو در داخل گزارش به جهت جایگیری عدد ایجاد کنید

کد:
For i = 1 To 12
       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)
Next i

[attachment=16]

موفق باشید Smile
سلام دوست عزیز
لطفا در صورت امکان راهنمایی فرمایید چگونه این تابع را به تابعی تبدیل کنم که همین کار را برای حروف انجام دهد(مثلا برای تفکیک نام و نام خانوادگی در فرم ها)
در ضمن این نکته حائز اهمیت است که تعداد کاراکترهای نام و نام خانوادگی متغیر و متفاوت است مثلا اگر حلقه را 10 بار تکرار کنم ممکن است "نام" 7 کاراکتر داشته باشد.Huh
با تشکر از شما
سلام

دوست گرامی تنها تغییری که نیاز دارید حذف تابع StrReverse و تغییر کد به صورت زیر هستش

کد:
For i = 1 To 9
       Me("p" & i) = Mid(txtNum, i, 1)
Next i

در خصوص تعداد کاراکتر هم , همونطوری که در بخش اول هم توضیح داده شد , شما بر اساس احتمال بیشترین طول تعداد کاراکتر نام و نام خانوادگی , اقدام به ایجاد TextBox های متناظر در داخل گزارش خودتون کنید , تابع جایگزینی مناسب رو به عمل خواهد آورد

موفق باشید