Loop question

[Pyro]

Hi,

I have the following code:

Dim X As Long
 
X = Len(Me.txtProduct_Temp_Req) -1

If Not IsNumeric(Right(Me.txtProduct_Temp_Req, 1)) Then
    Me.txtProduct_Temp_Req = Left(Me.txtProduct_Temp_Req, X)
 
Else
    Me.txtProduct_Temp_Req = Me.txtProduct_Temp_Req & "°C"

End If

I would like to run this as a loop to chop off any character that is not a number and then tack on "°C", but i haven't really come across the need for anything like this until now.

I have tried a few ideas but they have mostly just crashed access... any ideas?

 

[Pyro]

It seems as though my perseverance has paid off:

Do Until Right(Me.txtProduct_Temp_Req, 2) = "°C"
 
Dim X As Integer
 
X = Len(Me.txtProduct_Temp_Req) - 1
 
If Not IsNumeric(Right(Me.txtProduct_Temp_Req, 1)) Then
    Me.txtProduct_Temp_Req = Left(Me.txtProduct_Temp_Req, X)
     
Else
    Me.txtProduct_Temp_Req = Me.txtProduct_Temp_Req & "°C"
 
End If
 
Loop

...seems to work.

Thanks anyway!

 

[ajetrumpet]

to CHOP OFF the last chars in the string, instead of replacing all non numbers completely, maybe try...

Dim X As string
 
X = Me.txtProduct_Temp_Req 

do until isnumeric(right(x, 1)) = false

   x = left(x, (len(x) - 1)

loop

    Me.txtProduct_Temp_Req = x & "°C"