Bonjour

Dans une fonction de concaténation de champs, je reviens à la ligne à chaque nouvel enregistrement.

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
 
 
Public Function lachirurgie_resume(ID_Intervention As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
 
 
 
SQL = "SELECT libelle as lachirurgie FROM T_Type_Chirurgie WHERE ID_intervention = " & ID_Intervention
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
 
    While Not res.EOF
 
        lachirurgie_resume = lachirurgie_resume & res.Fields(0).Value & Chr(13) & Chr(10)
 
        res.MoveNext
    Wend
 
 
'libere la mémoire
Set res = Nothing
End Function
J'aimerai retirer le retour chariot de la dernière ligne. J'ai essayé avec Rtrim mais pas de résultat. En fait, j'imagine une condition dans la boucle <while> quand je suis au dernier enregistrement. Mais je n'arrive pas à trouver la bonne syntaxe.
Merci d'avance pour vos suggestions.