Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" <quentin@optojet.fr> a écrit dans le message de news:
4acf649a$0$912$ba4acef3@news.orange.fr...
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" <quentin@optojet.fr> a écrit dans le message de news:
4acf649a$0$912$ba4acef3@news.orange.fr...
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde fois,
j'ai un vilain message: "Cette opération n'est pas autorisée si l'objet est
ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert "Rst.Open
sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde fois,
j'ai un vilain message: "Cette opération n'est pas autorisée si l'objet est
ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert "Rst.Open
sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
uwgvDMZSKHA.504@TK2MSFTNGP06.phx.gbl...
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" <quentin@optojet.fr> a écrit dans le message de news:
4acf649a$0$912$ba4acef3@news.orange.fr...
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde fois,
j'ai un vilain message: "Cette opération n'est pas autorisée si l'objet est
ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert "Rst.Open
sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
End Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir le
total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Goupil a présenté l'énoncé suivant :Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.closeEnd Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close
Goupil a présenté l'énoncé suivant :
Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
uwgvDMZSKHA.504@TK2MSFTNGP06.phx.gbl...
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.close
End Function
Cdt, Blaise
---- ---- ----
"Goupil" <quentin@optojet.fr> a écrit dans le message de news:
4acf649a$0$912$ba4acef3@news.orange.fr...
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close
Goupil a présenté l'énoncé suivant :Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.closeEnd Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet d'avoir
le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close
GRRR
PAS "autant" pour moi, mais "au temps" pour moi !
"Blaise Cacramp" <pré a écrit dans le message de news:
%Goupil a présenté l'énoncé suivant :Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.closeEnd Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet
d'avoir le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close
GRRR
PAS "autant" pour moi, mais "au temps" pour moi !
"Blaise Cacramp" <prénom.nom@gmail.com> a écrit dans le message de news:
%23JArXiYWKHA.5368@TK2MSFTNGP02.phx.gbl...
Goupil a présenté l'énoncé suivant :
Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
uwgvDMZSKHA.504@TK2MSFTNGP06.phx.gbl...
Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.close
End Function
Cdt, Blaise
---- ---- ----
"Goupil" <quentin@optojet.fr> a écrit dans le message de news:
4acf649a$0$912$ba4acef3@news.orange.fr...
Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet
d'avoir le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close
GRRR
PAS "autant" pour moi, mais "au temps" pour moi !
"Blaise Cacramp" <pré a écrit dans le message de news:
%Goupil a présenté l'énoncé suivant :Bonjour tout le monde, bonjour Blaise
Cette fonction marche très bien, par contre, si je la lance une seconde
fois, j'ai un vilain message: "Cette opération n'est pas autorisée si
l'objet est ouvert."
Je suppose qu'il existe une fonction pour fermer après avoir ouvert
"Rst.Open sSql, CurrentProject.Connection, adOpenStatic"
Merci à ceux qui peuvent m'apporter plus de précision...
Goup'
"Blaise Cacramp" a écrit dans le message de news:Selon : Bonjour ou bonsoir
En VBA :
Function Concatenation As String
Dim sSql, I As Integer, Catena As String
Dim Rst As New ADODB.Recordset
sSql = "SELECT Les Champs" _
& " FROM Les tables" _
& " WHERE Les critères;"
Rst.Open sSql, CurrentProject.Connection, adOpenStatic
If Rst.RecordCount = 0 Then
Concatenation = "Vide"
Else
For I = 1 To Rst.RecordCount
Catena = Catena & Rst("Nom de champ") & " "
If Not Rst.Eof Then Rst.MoveNext
Next
Catena = Trim(Catena)
Concatenation = Catena
End If
rst.closeEnd Function
Cdt, Blaise
---- ---- ----
"Goupil" a écrit dans le message de news:
4acf649a$0$912$Du forum, bonjour,
J'essaye (sans y arriver) de faire une fonction qui me permettrait de
concaténer tous les enregistrements d'un champ.
Un peut comme la fonction DSum("[Montant]","MaTable") me permet
d'avoir le total de tous les enregistrements d'un champ.
Quelqu'un aurait-il un début de piste ?
Merci d'avance
Goup'
Autant pour moi !
rst.close