Re: Removing html tags from field

From: Graham R Seach (gseach_at_NOSPAMpacificdb.com.au)
Date: 08/10/04 

Date: Tue, 10 Aug 2004 13:18:29 +1000

As Doug says, the module and the function can't share the same name. Also,
when you examine the function in the IDE (code design window), is anything
shown in red? If so, the newsreader may have split a line or two. Show us
the code you have now.

As regards the update query, you should have something like this:
    UPDATE tblMyTable SET myField = KillHTML([myField], " ")

And of course you renamed [tblMyTable] and [myField] to reflect the names of
your table and field ... right?

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: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: Prividing query criteria from function
    ... Your query will look like: ... Public Function SelectedFunds(strField As String) As Integer ... Dim LowerVal As Variant ... "Building Microsoft Access Applications" ...
    (microsoft.public.access.queries)
  • Re: Reattach Tables
    ... Doug Steele, Microsoft Access MVP ... >> Dim TableNamesAs String ...
    (microsoft.public.access.modulesdaovba)
  • Re: Error 3075 Syntax Error
    ... Doug Steele, Microsoft Access MVPhttp://I.Am/DougSteele ... Dim strQryName As String ...
    (microsoft.public.access.formscoding)
  • RE: How do I search for a directory?
    ... Microsoft Access MVP ... StartDir As String, _ ... Dim objFSO As Object ' FileSystemObject ... If objRootFolder.Name = DirName Then ...
    (microsoft.public.access.modulesdaovba)
  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)