Microsoft Access 掲示板

あっ、またまたすみません。
SearchHighlight関数を下記に修正してください。

Public Function SearchHighlight(フィールド, 検索文字列, Optional 色 As String = "#ffff00") As String
    Dim s As String
    s = Nz(フィールド)
    If s = "" Then Exit Function
    If Nz(検索文字列) = "" Then
        SearchHighlight = s
        Exit Function
    End If
    Dim color As String
    Dim i
    s = Replace("<p>" & s & "</p>", Chr(13), "</p><p>")
    For Each i In Split(検索文字列)
        s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>")
    Next
    SearchHighlight = s
End Function