Errore apostrofo

di
Paolo87
il
2 risposte
P
Paolo87
Pochi posts
Iscritto da
mar, 2019
Messaggi:
41

Errore apostrofo

Buongiorno a tutti,
Se seleziono dalla listbox una parola con l'apostrofo mi da errore.... ho provato anche a raddoppiare gli apici ma evidentemente commetto qualche errore nella sintassi...
Set rs = DB.OpenRecordset("Select * from Nome where voce = '" & Trim(lst_dati.List(lst_dati.ListIndex)) & "'")

2 Risposte

  • gibra
    gibra
    Molto attivo
    Iscritto da
    gen, 2013
    Messaggi:
    1647

    Re: Errore apostrofo

    Perché non usi una funzione UDF?
    
Public Function Apici(ByVal s As String) As String
    s = s & vbNullString
    If s = vbNullString Then
        Apici = "''"
        Exit Function
    End If
    Apici = Chr$(39) & Replace(s, "'", "''") & Chr$(39)
Ebd Function
    Poi la usi così: 
    Set rs = DB.OpenRecordset("Select * from Nome where voce = " & Apici(Trim(lst_dati.List(lst_dati.ListIndex)))
  • P
    Paolo87
    Pochi posts
    Iscritto da
    mar, 2019
    Messaggi:
    41

    Re: Errore apostrofo

    Grazie gibra
Devi accedere o registrarti per scrivere nel forum
2 risposte