حالت موضوعی | حالت خطی

***CPSD Admin***

با سلام

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

راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش

کد: 

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

Dividing Numbers.zip (اندازه: 53.48 KB / تعداد دفعات دریافت: 408)

موفق باشید Smile

chemvoice

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

با تشکر از شما

***CPSD Admin***

سلام

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

کد: 

For i = 1 To 9

       Me("p" & i) = Mid(txtNum, i, 1)

Next i

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

موفق باشید

حالت موضوعی \| حالت خطی جداسازی اعداد از یکدیگر
نویسنده	پیام