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 ?