Discussion :

[Celephais]

Bonjour,
J'apprends à manipuler les recordset et j'ai un problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Age (Dim N As String) As Integer
 
Dim rs As DAO.Recordset
Dim Qry As QueryDef
Dim DB As Database
 
Set DB = Application.CurrentDb
Set Qry = DB.QueryDefs("Cherche_Age")
 
Qry.Parameters("[Entrez un Nom:]") = N
 
Set rs = Qry.OpenRecordset
 
Age = rs.Fields("Age")

A la dernière ligne, il y a un problème. On me dit que l'item n'existe pas.

Qu'en pensez-vous ?

[jacou]

Bonsoir, dans ta requête Cherche_Age, il faut le champ Age soit sélectionné.

Dans la définition de cette requête en visualisation SQL, il te faut quelque chose comme çà:

Code :

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

1
2
SELECT Nom, Age, ... FROM tabMaTableClients WHERE (Nom LIKE '*' & [Entrez un Nom:] & '*');

[Celephais]

Bonsoir Jacou,

Malheureusement, le champ "Age" est bien sélectionné donc mon problème subsiste...

[=JBO=]

Bonjour Celephais,

Es-tu certain que la requête a bien retourné au moins un enregistrement ?

Code vb :

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

1
2
3
4
5
6
7
Set rs = Qry.OpenRecordset
 
If rs.RecordCount = 0 Then
    ' pas d'enregistrement !!!
Else
    Age = rs.Fields("Age")
End If

[Celephais]

Bonjour JBO,

J'ai aussi eu le problème dans le cas de requêtes qui retournaient des enregistrements.
J'ai finalement réussi à résoudre le problème en changeant la syntaxe de mon appel au champ du recordset.

Code :

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

 Age = rs.Fields![Age]

Je pensais que les deux syntaxes étaient valables mais apparemment ce n'est pas vrai sur tous les ordinateurs.

Merci de vos réponses