تفكيك اعداد يك فيلد در چند فيلد

[budget]

با سلام
من يك فيلد دارم داراي اعداد چهار رقمي كه مي خواهم به چهار فيلد اعداد تك رقمي تفكيك شوند از دوستاني كه راهنمايي بفرمايند ممنون مي شوم

[bita_ziba77]

با سلام
فرض كنيد نام فيلدي كه عدد شما را نگه مي دارد filed1 باشد در اين صورت 4 عدد textbox در فرم خود گذاشته و موارد زير را در انها كپي نماييد:

=Right([field1],1)

=Mid([field1],3,1)

=Mid([field1],2,1)

=Left([field1],1)
با تشكر

[stabesh]

با سلام
البته جسارت نباشه فکر کنم سرعت تقسیم بیشتر از توابع رشته باشه


yekan = MyNum Mod 10
dahgan = (MyNum Mod 100)\10
sadgan = (MyNum Mod 1000)\100
hezargan = (MyNum Mod 10000)\1000


http://zo-d.com/blog/archives/programming/vba-integer-division-and-mod.html
http://www.bettersolutions.com/vba/VNN529/LM646334512.htm
http://www.bettersolutions.com/vba/VNN529/SO914113332.htm
در ضمن با این روش میشه از حلقه برای پیدا کردن مقادیر استفاده کرد تعدادارقام هم محدود نیست

[stabesh]

البته نمیدونم بهتر اول تقسیم کرد بعد باقیمانده رو گرفت یا بر عکس
این طوری هم میشه برای حلقه این طوری بهتره


yekan = MyNum Mod 10
dahgan = (MyNum\10) Mod 10
sadgan = (MyNum\100) Mod 10
hezargan = (MyNum\1000) Mod 10