Discussion :

[alexgo]

Bonjour

je ne comprend pas le probleme, il me met"erreur lors du traitement 3075 erreur de syntaxe (operateur absent)" lorsque j'ai une valeur texte qui contient un '. Je suis novice en VBA et je n'arrive pas à résoudre le problème.
pouvez vous m'aidez please
MErci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim sql, num_produit   As String
        Dim rs As DAO.Recordset
        Static i As Byte
        sql = "SELECT * FROM liste_produits_arguments WHERE produit ='" & Me.Modifiable8 & "' and FRANCHISE ='" & Forms![donnees_user]![NOM].Value & "' and rdv ='" & Forms![F_ACCUEIL]![selection rdv].Value & "'"
          Set rs = CurrentDb.OpenRecordset(sql)
                If Not rs.EOF Then
                num_produit = rs("[N° produit]").Value
                Forms![donnees_user]![produits_arg].Value = num_produit
                Else
                MsgBox (erreur)
                End If

[Invité]

bonjour,

et comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "SELECT * FROM liste_produits_arguments WHERE produit =""" & Me.Modifiable8 & """ and FRANCHISE =""" & Forms![donnees_user]![NOM].Value & """ and rdv =""" & Forms![F_ACCUEIL]![selection rdv].Value & """"