How to autoincrement with Leading Zeroes?
Try . Use Format function
strAutoNum = "item002"
strAutoNum = "item" & Format(Right(strAutoNum, 3) + 1, "000")
MsgBox strAutoNum
If this post helps click Yes
---------------
Jacob Skaria
"vrk1" wrote:
I have a string variable: x = "item000"
I would like to code to autogenerate a code such that when the code gets
executed, I increment the item by 1 from its previous value. (so, I see
values like item000, item001, item 002....item010, item 011...)
How do I accomplish this?
The code I have thus far which doesn't work is below:
rightstring = Right(x,3)
lefstring = left(x,len(x)-len(rightstring))
autonum = cstr(Right("000" & cint(rightstring) + 1, 3))
msgbox(autonum)
__________________________________________
Any ideas how to get this done?
|