Replace leading comma?

[MottoK]

Hi,

This should be simple but I'm having difficulties.

I have a simple update query with a text field in it, I want to add a little VBA so that if the field (called [Product]) contains text that begins with a comma "," then it will remove that comma and only that comma, completely.

Thanks.

E.G. I want the following string:

,Product1, Product2, Product3

to look like this:

Product1, Product2, Product3

 

[Andrzejek]

Dim strText As String

strText = ",Product1, Product2, Product3"

If Left$(strText, 1) = "," Then
    strText = Mid(strText, 2)
End If

Debug.Print strText

Have fun.

---- Andy

 

[PHV]

SQL code:
UPDATE yourTable
SET Product=Mid([Product],2)
WHERE Product Like ',*'

Anyway, having a comma separated list in a field seems strange to me.
Have a look here:

http://r937.com/relational.html

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[MottoK]

Excellent - working great now, many thanks.