Field Data

[IanT]

Hi

I have a field which will contain 10kg, 500g, 1ltr etc, how can I get code to ignore the numbers and us the letters!

Thanks in advance

 

[maxmangion]

check if this is what you're looking for.

 

[allan57]

Ian

If its the UoM you wish to return from the field each time then try the following:-

Dim strYourDataField As String

Dim strReturnedUoM As String

strYourDataField = "-1234.78kg"

strReturnedUoM = Right(strYourDataField, Len(strYourDataField) - CInt(Len(CStr(Val(strYourDataField)))))

'strReturnedUoM returns "kg"

Allan

 

[Mile-O]

Public Function GetText(ByVal strText As String) As String
    Dim strTemp As String
    Dim bytCounter As Byte
    For bytCounter = 1 To Len(strTemp)
        If Not IsNumeric(Mid(strTemp, bytCounter, 1) Then
            strTemp = strTemp & Mid(strTemp, bytCounter, 1)
        End If
    Next bytCounter
End Function