price                      newprice
492.5          492.50
5492.50          5492.50
1                      1.00
130                  130.00
459.8          459.80
459                  459.00
50.50             50.50
5.40                  5.40.00
285                  285.00
285                  285.00
120                  120.00
120                  120.00
199.5          199.50
199.5           199.50
3.0                      3.00
319                  319.00
407.5           407.50

เรียนอาจารย์ทุกท่านครับ   ผมมีข้อมูล ทางคอลัมภ์ซ้ายมือ Forrmat เป็น Text
ซึ่งมีจุดทศนิยม 1 ตำแหน่งบ้าง 2 ตำแหน่งบ้าง และบางตำแหน่งไม่มีจุดทศนิยม
ต้องการให้ได้ข้อมูลออกมา เหมือนทางคอลัมภ์ ขวามือ ด้วยวิธีการ Update ให้เป็นทศนิยม 2 ตำแหน่ง ทุก Record ไม่มีจุลภาคขั้น (Format ยังคงเป็น Text เหมือนเดิม)

เงื่อนไขคือ
1 .ถ้ามีทศนิยม 1 ตำแหน่ง ให้เติม 0 (ศูนย์) ต่อท้าย เพื่อให้ครบสองตำแหน่ง
2. ถ้าไม่มีทศนิยม ให้เติม .00   (จุดศูนย์ศูนย์)    ต่อท้าย เพื่อให้ครบสองตำแหน่ง
3. ถ้ามีทศนิยม 2 ตำแหน่งอยู่แล้ว ไม่ต้องแก้ไขอะไรให้ข้อมูลคงเดิม

ผมทดลองใช้ ใน Query แต่ได้ไม่ครบทุก Record
Expr : Trim([Price]) & IIf(Len([price])-InStrRev([price],'.')=1 And Len([Price])<>1 And Len([Price])-InStrRev([price],'.')=2,'0','.00')

อยากได้เป็น Module, Function, หรือ Commandline หรือ Vb น่าจะครอบคลุมกว่าใช้ Query

พยายามเปิดดู การใช้ For next   Do untile ก้ไม่ค่อยเข้าใจนัก (แทนค่าไม่ถูกครับ)