Re: Removing html tags from field

From: Douglas J. Steele (NOSPAM_djsteele_at_NOSPAM_canada.com)
Date: 08/09/04 

Date: Sun, 8 Aug 2004 20:19:41 -0400

You didn't happen to name the module KillHTML, did you? Modules can't have
the same name as functions or subroutines.

If that's not the problem, what happens when you run your query? Do you get
any error messages? If so, what are they? 

-- 
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"JA" <jarmour@kc.rr.com> wrote in message
news:yXyRc.79322$vN3.57412@twister.rdc-kc.rr.com...
> Graham,
>
> Thanks. I am just now getting to this. I don't quite know how to call it.
I
> put the first part in a module. Then I made an update query, and put
>
> KillHTML([myField], " ")
>
> as the thing to update it to, but that doesn't seem to work. I put the
real
> fieldname in for "myField".  But I don't think I'm doing it right.
>
> Thank you,
>
> JA
>
>
> "Graham R Seach" <gseach@NOSPAMpacificdb.com.au> wrote in message
> news:On67YGTdEHA.3528@TK2MSFTNGP12.phx.gbl...
> > I just remembered - you want to replace the tags with a space or
> something.
> >
> > Public Function KillHTML(sText As String, sReplaceWith As String) As
> String
> >     'Kills HTML tags
> >     Dim iLeft As Integer
> >     Dim iRight As Integer
> >     Dim sTmp As String
> >
> >     iLeft = InStr(1, sText, "<")
> >     While iLeft > 0
> >         iRight = InStr(iLeft + 1, sText, ">")
> >         sTmp = Mid(sText, iLeft, iRight - iLeft + 1)
> >         sText = Mid(sText, 1, iLeft - 1) & sReplaceWith & Mid(sText,
iLeft
> +
> > Len(sTmp))
> >         iLeft = InStr(1, sText, "<")
> >     Wend
> >
> >     KillHTML = sText
> > End Function
> >
> > You can call this function from SQL, like so:
> >     SELECT KillHTML([myField], " ") As NewText
> >     FROM tblMyTable
> >
> > Regards,
> > Graham R Seach
> > Microsoft Access MVP
> > Sydney, Australia
> >
> > Microsoft Access 2003 VBA Programmer's Reference
> > http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
> >
> >
> > "JA" <jarmour@kc.rr.com> wrote in message
> > news:68%Nc.56136$vN3.6971@twister.rdc-kc.rr.com...
> > > First, thank you all who answered my previous questions. And now I
have
> > > another.
> > >
> > > Is there a way to remove html tags from a memo field? Like a way to
> remove
> > > the "<" and the ">" and anything in between them. And maybe replace
them
> > > with a space? There would most likely be more than one tag per record.
> > >
> > > Thanks again!
> > >
> > > JA
> > >
> > >
> >
> >
>
>

Relevant Pages

  • Re: Removing html tags from field
    ... Public Function KillHTML(sText As String) As String ... Dim iLeft As Integer ... Dim iRight As Integer ... > Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)
  • Re: Removing html tags from field
    ... > Public Function KillHTML(sText As String, ... > Dim iRight As Integer ... > Microsoft Access 2003 VBA Programmer's Reference ... >> Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)
  • Re : Outlook 2003 - Turn Word on or off as e-mail editor or viewer
    ... but since the variable "corps" contains html tags there are ... Private Function EnvoiMail_HTML(Adresse As String, Objet As String, Corps ... Dim MonAppliOutlook As Outlook.Application ...
    (microsoft.public.outlook.program_vba)
  • Re: Removing html tags from field
    ... I just remembered - you want to replace the tags with a space or something. ... Public Function KillHTML(sText As String, ... Dim iRight As Integer ... > Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)
  • Re: Table in MySql database
    ... >can add html tags and so on and all works fine. ... the function that does the translation does not know you are ... Now if you remove the nl2br() function then it will prevent it happening ... Note that this assumes that the string '<table' will only occur when you ...
    (alt.php)