۲۲ دي ۱۳۹۰, ۰۹:۵۱ عصر
با سلام
راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش
[attachment=16]
موفق باشید
در برخی موارد این نیاز وجود داره که در اسناد ( گزارشات ) ارقام به صورتی مجزا به نمایش در بیان ( به صورت ذیل )
راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش
کد:
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
موفق باشید