text editing help

[stevenrec]

Hi,
have a table 'article' with a field 'description' with about 100000
entries

many entries at the end have the text 'zur syn..' or 'zur ana'.. or
'fuer ...'

I would like to run code to remove the last part of the text if it
contains the "key" word.

lot of nice examples in the forum, but I am lost. could someone give me
a hand please.

thanks

[Rudi]

stevenrec wrote:

Hi,
have a table 'article' with a field 'description' with about 100000
entries

many entries at the end have the text 'zur syn..' or 'zur ana'.. or
'fuer ...'

I would like to run code to remove the last part of the text if it
contains the "key" word.

lot of nice examples in the forum, but I am lost. could someone give me
a hand please.

thanks

dim db as dao.database
dim rs as dao.recordset

set db=currentdb
set rs=wsdb.openrecordset("article",DB_OPEN_DYNASET)

rs.movefirst
do until rs.eof

if right(rs!description,7)="zur ana" or ...... = "zur syn" then

rs!description=left(rs!description,len(rs!descript ion)-7)
rs.update
else
if right(rs!description,4)="fuer" then

rs!description=left(rs!description,len(rs!descript ion)-4)
rs.update
endif
endif

rs.movenext
loop

set rs=nothing
set db=nothing

[Rudi]

PS : replace 'wsdb' on top with just 'db'.