UPDATE transaction SET particulars=changeover(particulars)is will automatcally assign the value.... great!!!
Public Function changeover(curname As String) As String >Dim lcNewString, lcNewString1, lcNewString2 > >lcNewString = curname > >Select Case lcNewString ' Evaluate New Name. > > Case InStr(1, lcNewString, "0", 1) > 1 > ' We will leave this one alone.... > Case InStr(1, lcNewString, " ", 1) < 1 > ' This string looks to be all characters... so leave it alone.... > Case InStr(1, lcNewString, " ", 1) > 1 > ' Okay, if we have more than two spaces, we are in a bit of strife... > lcNewString = "***" + lcNewString > Case InStr(1, lcNewString, " ", 1) = 1 > ' Okay, now we have one space.... so, what do we have as far as > ' length of the two strings.... > lcString1 = Mid$(1, lcNewString, InStr(1, lcNewString, " ", 1)) > lcString2 = Mid$(1, lcNewString, Len(lcNewString) - InStr(1, lcNewString, " ", 1)) > ' now, change the positions.... > lcNewString = ALLTRIM(lcString2) + ALLTRIM(lcString1) >End Select > >changeover = lcNewString >End Function>