Strip Teaser (V2002)

Topic

New Reply

I cannot seem to pull together code to correctly strip leading zeroes from a string. cint( won’t work because the field can be alpha-numeric. The only characters I will need to strip will be all leading zeroes.
Thanks!

Reply | Quote

Replies

You can paste the following function in a standard module:

Public Function StripLeadingZeros(ByVal aValue As Variant) As Variant
If IsNull(aValue) Then
StripLeadingZeros = Null
Else
Do While Left(aValue, 1) = “0”
aValue = Mid(aValue, 2)
Loop
StripLeadingZeros = aValue
End If
End Function

Use this function in a query or in the control source of a text box. For example in a calculated field in a query:

StrippedValue: StripLeadingZeros([FieldName])

Reply | Quote

Hans,
You are an absolute Champ!
Thanks!
Andrew

Reply | Quote