✔ Programação GLOBAL®: VBA Access - Adicionando Colchete para SQL

VBA Access - Adicionando Colchete para SQL - SQL Add Brackets

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Esta função envolve cada ocorrência que contenha os caracteres [, *, #, e ? numa string com um par de colchetes esquerdo e direito ([]).

Isso é muito útil quando usamos uma seqüência numa comparação "Like" em uma consulta (por exemplo, "WHERE FieldName Like '" & SearchString & "'"), porque estes são caracteres especiais num processo padrão de pesquisa.

Esta função não deve ser utilizado ao se fazer uma comparação "direta" em uma consulta (por exemplo, "WHERE FieldName = '" & SearchString & "'").

Public Function SQLAddBrackets (ByVal varReplaceStringValue As Variant) As String

On Error GoTo Error_Function

Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "[", "[[]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "*", "[*]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "#", "[#]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "?", "[?]", 1, -1, vbTextCompare)

Let SQLAddBrackets = varReplaceStringValue

Exit_Function:
      Err.Clear
      Exit Function

Error_Function:
Let SQLAddBrackets = xstrReplaceStringValue
      Resume Next

End Function