Discussion :

[steph_p]

Bonjour,
C'est une question très très naïve : je voudrais insérer la valeur de l'un de mes champs de formulaire dans une requête SQL.
Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub Commande10_Click()
    Dim rep As Recordset
    bla = "SELECT age FROM desc_age WHERE (num_collection = '" + Str(Texte0.Value) + "')"
    Set rep = CurrentDb.OpenRecordset(bla)
    MsgBox (rep(0))
 
End Sub

Apparement la syntaxe n'est pas correcte car cela ne fonctionne pas...
Merci d'avance pour votre aide

[Invité]

Bonjour

1 - bla est bien déclaré de type String
2 - Ne pas utiliser des + pour la concaténation, mais des &, car si tu as des chiffres tu auras des soucis.
3 - Num_Collection est bien du texte ?
4 - Pourquoi utiliser str ?

Starec

[steph_p]

1) Bla est bien déclaré comme String
2 ) j'ai essayé avec les & ça ne change pas
3) Num_collection est un numéro
4) j'avais mis Str() pour avoir un type compatible avec bla
Merci pour ton aide

[Invité]

RE

1) Bla est bien déclaré comme String

OK

2 ) j'ai essayé avec les & ça ne change pas

C'est pourtant ce qu'il faut mettre de préférence.

3) Num_collection est un numéro

Si le champ est de type numérique (attention à ne pas confondre, on peut stocker un numéro dans un champ de type texte).

4) j'avais mis Str() pour avoir un type compatible avec bla
Merci pour ton aide

str ne sert à rien si c'est un champ de type numérique, et aucun rapport avec le type de bla.

Essayes :

Code :

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

 bla = "SELECT age FROM [desc_age] WHERE [num_collection]=" & me.Texte0.Value & ";"

Starec

[steph_p]

Merci beaucoup ça fonctionne.
Apparemment mes ' " ... ' " n'étaient pas une bonne idée.
Merci pour ton aide !