Access - Pertenencia o inclusión, ¿ existen en Access?

Option Compare Database

'***************************************************************

'&                                                            &*

'&                                                            &*

'&                                                            &*

'&                                                            &*

'&               Jefferson Jimenez (JJJT)                     &*

'&                 Cabimas - Venezuela                        &*

'&                   Agosto - 2012                            &*

'&                                                            &*

'&                                                            &*

'&                                                            &*

'&                                                            &*

'&                                                            &*

'***************************************************************

Sub ResaltaTexto(CpoTxt As Access.Control, Str1 As String)

If InStr(CpoTxt.Value, Str1) > 0 Then

CpoTxt.TextFormat = acTextFormatHTMLRichText

CpoTxt = Replace(CpoTxt.Value, Str1, _

"<font style=""background-color:#FFFF00"">" & Str1 & "</font>")

Else

MsgBox "Palabra no encontrada"

End If

End Sub

Sub QuitoResaltar(CpoTxt As Access.Control, Str1 As String)

CpoTxt = Replace(CpoTxt.Value, _

"<font style=""background-color:#FFFF00"">" & Str1 & "</font>", Str1)

CpoTxt.TextFormat = acTextFormatPlain

End Sub