Return text value in a string

[sdel_nevo]

Hi Guys



im using the code below to get the position of a "*" in a text filed, this is working great and returns the correct value of 15 for this text NI PL CU STR19*

Dim LPosition As Integer
LPosition = InStr(Forms!SOIAddDetails.Form.PartNumberDescripti onTXTBox, "*")

what i would like to do is this

how do i actually get the text value of the character 1 place to the left of "*" in this case 9

this value will be used in a calculation

is possible?

Kind regards

Steve

[cyanidem]

Is this always one position to the left?
And if you want to use it in calculation you'll need its numeric value, not text value.

Dim LPosition As Integer
Dim NumberPosition As Integer
Dim YourCharactersValue as Integer

LPosition = InStr(Forms!SOIAddDetails.Form.PartNumberDescripti onTXTBox, "*")
NumberPosition=LPosition-1
YourCharactersValue=Val(Mid(Forms!SOIAddDetails.Form.PartNumberDescriptionTXTB ox, NumberPosition, 1))

[sdel_nevo]

Hi Mate

Yes the required figure is always 1 to the left

will give that a go
Many thanks

Steve

[sdel_nevo]

Hi Mate

Many Thanks that was brill
Steve

[cyanidem]

Happy to help