affectation à recordset.find en vba
Bonjour,
je suis en train de realiser une application en vba autocad.la ou je suis arrivé je suis amené a faire une recherche dans une base de données a travers une interface utilisateur,et j ai utilisé le code suivant:
///reservoir est le nom de la table dans ma base de données et id_res est la clé primaire
Code:
1
2
3
4
5
6
7
8
| Set rst = New ADODB.Recordset
rst.Open "select id_res from reservoir", cnx, adOpenKeyset, adLockBatchOptimistic
rst.Find "id_res=textbox1value"
If (rst.BOF = True) Or (rst.EOF = True) Then
MsgBox "objet non troouvé"
Else
MsgBox "objet trouvé"
End If |
le probleme c est quand je tape un enregistrement qui existe à la place de textbox1.value ça marche mais quand je veux prendre la valeur dans le textbox1,ça me généré l'erreur suivante
arguments are of the wrong type are out of acceptable range or are in conflict with one another.
merci pour votre comprehension
