Il codice che sto postando è preso dall'ocx presente nel progetto VB6 di un mio cliente che mi ha passato le sorgenti tramite penna usb. Tale spostamento è stato replicato con altri pc. In questi ultimi non si sono verificati casi anomali come nel mio caso.
Codice prima dello spostamento:
codice:
Replace(UCase(TextBox.Text), "'", "''")
Codice dopo lo spostamento:
codice:
Replace(UCase(TextBox.Text), ",", "''")
Vorrei precisare che lo stesso problema è stato riscontrato anche al di fuori della formula Replace, ma sempre all'interno della ocx.