VBA : Recordset SQL et formulaires

Fermé
SevenDay - 28 juil. 2009 à 16:31
 SevenDay - 28 juil. 2009 à 16:52
Bonjour,

Je suis entrain de programmer une base de donnée en VBA et Access, et je suis confronté à un léger soucis :

Je souhaite faire un recordset d'un SQL, selon les données d'un formulaire.
Hors, à l'execution, je tombe sur une erreur : "Type de donné incompatible dans l'expression du critère".

Voici le code :

Dim Enr As Recordset
Dim Numero As Integer

Set Enr = CurrentDb.OpenRecordset("SELECT N° FROM Stock WHERE Teinte = " & forms![AJOUT]![teinte]")

Enr.MoveFirst
Numero = Enr("N°")

MsgBox (Numero)


Et même si je claque le paramètre de formulaire dans une requête, ca me fait la même.

Quelqu'un saurait m'en sortir ?

1 réponse

Problème résolu :

Set Enr = CurrentDb.OpenRecordset("SELECT N° FROM Stock WHERE Teinte = '" & Forms![AJOUT]![Teinte] & "';")

Il faut mettre le paramètre entre '" "' (il fallait le savoir ...)
0