Discussion :

[aldama]

bonjour,

j'ai créé un formulaire recherche qui me permet de rechercher un fournisseur à partir de son code et de m'afficher les information le concernant dans des zones de texte.

à l'aide d'un requete, je fais afficher le nom de tous les fournisseurs dans une liste déroulante. j'ai mis un bouton 'recherche' sur le formulaire.
la liste deroulante se denomme code_four et la clé de ma table fournisseur, codfour.

sous le bouton 'recherche', j'ai mis le code suivant:

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
Private Sub recherche_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
 
sql = "SELECT Codfour, Nom, Contact," _
& " Adresse , residence" _
& " FROM Fournisseur" _
& " WHERE codfour = code_four.value "
 
 
rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Adresse = rs!Adresse
Codfour = rs!Codfour
Contact = rs!Contact
 
End Sub

lorsque je sélectionne un fournisseur et que je clique sur mon bouton 'recherche', il me ramène un message d'erreur:

Aucune valeur donnée pour un ou plusieurs paramètre requis

comment recuperer la valeur contenu ds la liste déroulante pour la comparer aux valeurs de ma table?

y a t-il une meilleure méthode pour faire ma recherche et afficher mes données?

merci

[vlksoft]

Bonjour,

je crois qu'il n'est pas necessaire d'aller dans un recordset pour faire ce que tu veux faire. Alors qu'on le fasse en ordre. Expliquez d'abord les objets que vous voulez manipuler dans cette action.

bye

[argyronet]

Bonjour,

Ta requête est mal écrite :

Code :

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

1
2
3
sql = "SELECT Codfour, Nom, Contact, Adresse , residence "
sql =sql  & "FROM Fournisseur"
sql = sql & "WHERE codfour = '" & Me!code_four & "'"

si c'est un code alphanumérique

Code :

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

sql = sql & "WHERE codfour = " & Me!code_four

si c'est un nombre.

En dehors de cela, ton Recordset n'est pas fermé et tes objets pas libérés.
Un regard du coté de la manipulation des données via ADO ou DAO s'avère important pour toi, je pense.

Argy

[aldama]

j'ai essayé de suivre tes conseil argyronet. A vrai dire je m'y connais plus en vb et c'est mon premier projet sur access. je maitrise pas trop la syntaxe au niveau de access. J'ai saisi le code sql comme tu me l'a motrer:

Code :

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

1
2
3
sql = "SELECT Codfour, Nom, Contact, Adresse , residence "
sql = sql & " FROM Fournisseur"
sql = sql & " WHERE codfour = " & Me!Codfour

mais re recois unmessage d'erreur:

erreur de syntaxe (operateur absent) ans l'expression 'codfour='

.

j'ai fermer mon recordset par la syntaxe:

Code :

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

rs.close

[argyronet]

Est-ce que le champ Codfour existe au moins ?

Argy

[aldama]

oui, dans ma table fournisseur