Discussion :

[Oltharis]

Bonjour,

J'ai un problème de mise en place, dans un module vba, d'un string faisant office de critère sql. Voilà le code que j'utilise : il n'y a pas de message d'erreur, c'est juste que strCritere n'est apparement pas bon.
Ce que je voudrai c'est rechercher l'enregistrement de le table "Revêtements" tel que le champ "Nom" soit égal à la valeur de la variable string change(1).
Apparement strCritere doit être égale à une clause WHERE de requête sql, mais je ne sais pas faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
            Dim rs As DAO.Recordset
            Dim strCritere As String
            Set rs = CurrentDb.OpenRecordset("Select * FROM Revêtements")
            strCritere = "Nom Like " & "" & Changer(1) & ""
            rs.FindFirst strCritere
            If rs.NoMatch Then
            MsgBox "Aucun enregistrement n'a été trouvé"
            Else
            rs.Edit
            rs("Nom") = "" & Changer(1) & ""
            rs("Classe") = "" & Changer(2) & ""
            rs("SousClasse") = "" & Changer(3) & ""
            rs("Nature") = "" & Changer(4) & ""
            rs("Lien") = "" & Changer(6) & ""
            rs("EntrepriseID") = 1
            rs("Internet") = True
            rs.Update
            rs.Close
            End If

Merci à vous !
Jean

[LedZeppII]

Bonjour,

Il manque le délimiteur de texte SQL.
Au choix : guillemet simple (') ou guillemet double (").

Avec guillemets simples :

Code :

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

            strCritere = "Nom Like '" & Replace(Changer(1), "'", "''") & "'"

Code :

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

Replace(Changer(1), "'", "''")

sert à doubler le caractère délimiteur de texte au cas où Changer(1) en contiendrait un ou plusieurs.

A+