Auto fill leading zeros (1 Viewer)

[ScottXe]

I have an unbound control in data input form requiring to input a 6-digit number. I have put a validation rule restricting more than 6 digits. Most users prefer to enter, say 123 and the system can help enter the 3 leading zero for them. Any idea to accomplish it? Thanks!

 

[JHB]

Look here it is more or less the same question/answer.
http://www.access-programmers.co.uk/forums/showthread.php?t=276019

 

[ScottXe]

Thanks for your advice. Unfortunately it is not applicable to my case. The unbound box is temporarily stored the input data and then twisted before passing onto the field control. I need to auto fill the leading zeros before the twisting.

 

[Gasman]

JHB has already mentioned the Format property of the control.

The same applies to using the function in VBA ?

http://bytes.com/topic/access/answers/853626-left-padding-0-string

So the first usage will display leading zeroes to the user and using it in VBA will create a *string* of leading zeroes or use later on in whatever uou need to do.?

HTH

 

[gemma-the-husky]

I would make a fixed width field of the sort you describe TEXT, rather than numeric. I cannot believe you will want to manipulate these values as numbers - so they are in fact text values, and stored with leading zeroes.

Someone else pointed out a simple trick to left fill leading spaces


usestring = right("000000") & enteredstring,6)

so "123"
becomes right("000000123",6)
becomes "000123"

 

[Gasman]

It always puzzled me that MS had two DB products and never seemed to mix the functions. :-(

Foxpro has/had PADL, PADC and PADR for needs such as these.? Now in .Net?

https://msdn.microsoft.com/en-us/library/aa978112(v=vs.71).aspx

 

[ScottXe]

I would make a fixed width field of the sort you describe TEXT, rather than numeric. I cannot believe you will want to manipulate these values as numbers - so they are in fact text values, and stored with leading zeroes.

Someone else pointed out a simple trick to left fill leading spaces


usestring = right("000000") & enteredstring,6)

so "123"
becomes right("000000123",6)
becomes "000123"

Hi Gemma,

The code is working well for my case. Thanks a lot!

 

[Sam Summers]

Where do you put the code?