Discussion :

[Lingo]

Bonjour,

J'ai créé une fonction, nommée "AnciennetéCorps()" dans l'objet Modules.

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

Je souhaite afficher le résultat de cette fonction dans une zone de texte dans un Etat.
J'ai tapé dans la zone de texte comme suit :

Code :

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

=AnciennetéCorps()

Mais çà ne marche pas. Le message suivant appraît :
"Entrer une valeur de paramètre AnciennetéCorps"

Pouvez-vous m'aider?

[issam16]

salut,
je crois que tu dois enlever les parentheses!!!!

[Lingo]

Bjr,

çà ne marche pas j'ai tjrs le même message

[Lingo]

Peut être que ma fonction est incorrecte ?

[issam16]

j'ai remarquè une chose, t'as pas une condition d'arret de ta boucle??

[issam16]

et en fait "Corps " c'est quoi, c'est un champ d'une table??

[Lingo]

Ma fonction AnnciennetéCorps() exploite un objet Recordset qui lit le résultat de ma requête "R_Hist_Carrière_Tous_parDate", cette dernière retourne les champs suivants avec condition Where Date-Effet est décroissant:
Date_Effet; Corps; Grade; Ehcelon; et AncCorps.

Pour comparer les enregistrements j'utilise la boucle "DO ... LOOP"