Hi All

I Have Memo Field (txtDescription) that

which has the following data (or similar) on 10,000 records

Some of the records have a * before each line an some don't

* 820 Watt, 230v motor
* Variable speed control with reverse action 0 to 2500rpm
* Speed limiter dial on switch ensures consistent drilling at slower
speeds
* Selector switch for rotary hammer or rotary only drilling
* Lock-on button automatically releases if power is cut
* Includes 13mm keyed chuck, depth gauge & auxiliary front handle
* Weight 2.4kgs

I would like to open the form which contains this data and be able to
click a Command Button to strip out the stars whenever I see them,
rather than remove the stars one by one. I do not want to go through
the records and have do the whole lot in one go (on the current
event??) jsut strip them out whenever I see a record that has the *'s

Thanks

On Thu, 21 May 2009 11:37:15 -0700 (PDT), bobdydd
<reallyuseful2004 (AT) yahoo (DOT) co.uk> wrote:

Are these multiple memo fields each with one or two lines? Or one big memo
field with multiple lines?

Do you want to remove all the asterisks in just one record? or all of the
(sub?) records on a form?

More details please!
--

John W. Vinson [MVP]

Hi

I am using Access 2007 running on Windows XP. I am not that brave
to us Vista yet

I was able to remove all the stars in the text with the followng code
Me.txtDescription = Replace(txtDescription, "*", "")

It does not remove the leading space from each of the lines, but
as it is being pasted into Dreamweaver that does not matter as DW
remove all formatting until you apply HTML.

Thanks to everyone who helped

Regards and Thanks

To remove the leading space, try

Me.txtDescription = LTrim(Replace(txtDescription, "*", ""))


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"put_upon" <reallyuseful2004 (AT) yahoo (DOT) co.uk> wrote

put_upon wrote:
demos how to remove the leading spaces. Use one line help for keywords
you don't understand. Copy the code below into a code module and run
the demo code.

Sub ArTest()
Dim m As String
Dim sTrim As String
Dim sOrig As String

Dim i As Integer
Dim ar() As String

m = " this is line1" & vbNewLine
m = m & " this is line2" & vbNewLine
m = m & " this is line3"

'creates an array of each line using cr/ln as the delimeter
ar = Split(m, vbNewLine)

For i = LBound(ar) To UBound(ar)
'remove leading space
sTrim = sTrim & Trim(ar(i)) & vbNewLine 'removes space
'keep original
sOrig = sOrig & ar(i) & vbNewLine 'keeps orig format
Next

'display orig and then space removed
MsgBox "Original: " & vbNewLine & _
sOrig & vbNewLine & _
"Trimmed: " & vbNewLine & _
sTrim

End Sub