🚀 go-pugleaf

Ho avuto anche io lo stesso problema e l'ho risolto con il doppio apice con
una funzione da me creata (e postata ad alcuni newsgroup) alcuni mesi fa.
Per� ho trovato una moltitudine di programmi che non hanno bisogno di questo
accorgimento poco "elegante".
Ci sto lavorando sopra. Spero di potrevi postare tutto al pi� presto.

Nicola Ottomano

********************************************************


"Giacomo L." <lijack@libero.it> ha scritto nel messaggio
news:_1B59.58411$lu5.1668640@twister1.libero.it...
> io uso una funzione che mi aggiunge il secondo apice in maniera da rendere
> idoneo il campo alla ricerca. Se non ho commesso nessun errore nel
> riadattarla alla tua esigenza dovrebbe andare come qui sotto elencata
>
> esempio:
> dim ricerca as string
> ricerca= DoppioApice(text1)
> rst.FindFirst "Campo1 = '" & ricerca & "'"
>
>
>
>
> Private Function DoppioApice(testo As String) As String
> '*********************'*********************
> '                           DOPPIO APICE
> '*********************'*********************
> Dim stringaTesto As String
> Dim i As Integer
>
> stringaTesto = ""
>
> For i = 1 To Len(testo)
>     If Mid(testo, i, 1) = "'" Then
>         stringaTesto= stringaTesto & "''"
>     Else
>         stringaTesto = stringaTesto & Mid(testo, i, 1)
>     End If
> Next i
>
> DoppioApice = stringaTesto
> End Function
>
>
>