Methode Find [Résolu]

Signaler
Messages postés
2
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
10 juin 2005
-
Messages postés
19
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
13 octobre 2005
-
Bonjour tout le monde.

Tout dabord voilà ce que j'ai :

Une table "Materiel" avec trois champs "Nom", "Prix" et "Divers".
Un formulaire avec :
Une liste deroulante affichant la liste des noms de materiel ("Lst_Materiel).
Une zone de texte ("Txt_Prix").
Une zone de texte ("Txt_Divers").

Je souhaite afficher le prix et la designation du materiel(divers) lorsque je choisi un nom dans la liste.

Mon code est le suivant :

Private Sub Lst_materiel_Change()


Dim rst1 As Recordset

Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenKeyset
rst1.LockType = adLockOptimistic

rst1.Open "Materiel", CurrentProject.Connection
rst1.Find "[Nom] =" & Lst_materiel.Value


Debug.Print
Txt_prix.Value = rst1.Fields("Prix").Value
Txt_divers.Value = rst1.Fields("Divers").Value


rst1.Close


End Sub

Lorsque je test se code, le programme s'arrete sur la ligne rst1.find et le debogeur affiche : "Les arguments sont de type incorrecte, en dehors des limites autorisées ou en conflit les unes avec les autres.

J'ai essayé plein de code mais ca veut toujours. Aidez moi SVP.
Merci d'avance

3 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
6
Il faut entourer la variable Lst_materiel.Value avec des apostrophes :

rst1.Find "[Nom] ='" & Lst_materiel.Value & "'"

wape
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
13 octobre 2005

Salut ! A mons avis. il faut que tu remplaces rst1.Find "[Nom] =" & Lst_materiel.Value par rst1.Find "Nom = '" & Lst_materiel.Value & "'"
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
13 octobre 2005

Ah merde j'ai mis trop de temps pour repondre...la reponse a déjà été apporté