CISA FotoGallery

Statistiche

Tot. visite contenuti : 927968
Home Articoli tecnici VBA Ricerca con virgolette

Ricerca con virgolette

Il seguente codice permette di gestire filtri con eventuali apici all'interno dellla stringa.

Public Function ComponiStringaPerSQL(ByVal stringa As String) As String
Dim n As Long, posiz As Long
Dim h As String
On Local Error Resume Next

If IsNull(stringa) Then
h = ""
GoTo Fine
End If
h = stringa: posiz = 1
n = InStr(posiz, h, "'")
While n > 0
h = Left$(h, n) & "'" & Right$(h, Len(h) - n)
posiz = n + 2
n = InStr(posiz, h, "'")
Wend
Fine:
ComponiStringaPerSQL = h
End Function


Ovviamente basterà inserirlo in un modulo e richiamarlo con ComponiStringaPerSQL(la stringa da confrontare)