diff options
-rw-r--r-- | wizards/source/access2base/Database.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index e3dba90c9ac6..30b412fb9cfa 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1574,7 +1574,7 @@ Dim i As Integer, l As Long lNextQuote = InStr(lUrl, psString, """", 1) If lNextQuote = 0 Then lNextQuote = Len(psString) ' Should not happen but, if quoted string not closed ... sUrl = Mid(psString, lUrl, lNextQuote - lUrl) - sOutput = sOutput & sPattern & Iif(sPattern = "<a id=""", sUrl, ConvertToUrl(sUrl)) & """" + sOutput = sOutput & sPattern & sUrl & """" lCurrentChar = lNextQuote + 1 bQuote = False bTagEnd = False |