Discussion :

[JamesPel]

Bonjour,

Comment fermer tous les recordsets qui sont ouverts, j'ai trouvé une solution mais dans ws.recordsets, recordsets n'est pas reconnu par le VBA.

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
Sub CloseAllRecordsets()
    Dim ws As DAO.Workspace
    Dim rs As DAO.Recordset
    Dim i As Integer
 
    ' Get the default workspace
    Set ws = DBEngine.Workspaces(0)
 
    ' Loop through all open recordsets in the workspace
    For i = ws.Recordsets.Count - 1 To 0 Step -1
        Set rs = ws.Recordsets(i)
        rs.Close
        Set rs = Nothing
    Next i
 
    ' Clean up
    Set ws = Nothing
End Sub

Je ne suis pas du tout à l'aise avec le DBEngine.Workspaces.

Auriez-vous une solution s.v.p.

MErci.

[User]

Bonjour,

Il faut utiliser un objet Database :

https://learn.microsoft.com/fr-fr/of...s-property-dao

Par exemple Currentdb renvoie un objet de ce type.

[JamesPel]

Bonjour User,

Ça fonctionne très bien.

Merci pour votre solution.

[deedolith]

Hello,

Quel est l'intérêt d'écrire une telle fonction ?
Elle s'occupe de se qui ne la regarde pas (viol de la Loi de Demeter https://fr.wikipedia.org/wiki/Loi_de_D%C3%A9m%C3%A9ter).

C'est probablement le syndrome d'une programmation "spaghetti", une refactorisation serait-elle à prévoir ?
Et quitte à préconiser de bonnes pratiques: https://en.wikipedia.org/wiki/Single...lity_principle