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
Crear cuenta