Bonjour,
J'ai créé une fonction, nommée "AnciennetéCorps()" dans l'objet Modules.
Je souhaite afficher le résultat de cette fonction dans une zone de texte dans un Etat.
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
18
19
20
21
22
23
24
25
26
27 Function AnciennetéCorps() As String Dim Corps As String Dim strAncCorps As String Dim Rst As DAO.Recordset Dim Db As DAO.Database Set Db = CurrentDb Set Rst = Db.OpenRecordset("R_Hist_Carrière_Tous_parDate") Corps = Rst.Fields("Corps") Do If Corps = Rst.Fields("Corps") Then Else strAncCorps = Rst.Fields("AncCorps") Exit Do AnciennetéCorps = strAncCorps End If Rst.MoveNext Loop Exit Function AnciennetéCorps = strAncCorps Rst.Close Db.Close Set Rst = Nothing Set Db = Nothing End Function
J'ai tapé dans la zone de texte comme suit :
Mais çà ne marche pas. Le message suivant appraît :
Code : Sélectionner tout - Visualiser dans une fenêtre à part =AnciennetéCorps()
"Entrer une valeur de paramètre AnciennetéCorps"
Pouvez-vous m'aider?
Partager