Discussion :

[docjo]

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.

[tarnx]

Un petit truc du genre devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
While Not res.EOF
 
        lachirurgie_resume = lachirurgie_resume & res.Fields(0).Value 
 
        res.MoveNext
 
        If Not res.EOF Then
               lachirurgie_resume = lachirurgie_resume &  Chr(13) & Chr(10)
        End If
 
Wend

[mkl238]

ou alors, si tu veux vraiment supprimer la fin de ta chaine tu fais:

Code :

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

lachirurgie_resume = Left(lachirurgie_resume, Len(lachirurgie_resume) - 2)

[tarnx]

En effet, la solution demkl238 est plus rapide.