Update Query to Delete everything to thr right: 4th comma
Posted on 2007-03-20
I need an Update query that will delete everything to the left of the 4th comma in a a string.
Or maybe I need a function like this Revised:
Function getword(mystring As String) As String
Dim v As Variant
v = Split(Left([mystring], InStr([mystring], ",") - 1), " ")
getword = v(UBound(v))
UPDATE tblRichText set fldFirstComma = getword(fldRichText)
Sometimes the field may not have 4 commas, or No commas at all.