Discussion :

[voxov]

Bonjour,

Je voudrais fermer les Object Tab qui représentent les tables, queries, forms, etc. ouverts, dans l'accueil Access.
Il s'agit des tab qui s'ajoutent en-dessous du menu (ribbon), à mesure que l'on ouvre des tables, des queries et des forms.
Attention: il s'agit des Object Tab, pas de Control Tab que l'on peut mettre dans un Form !

Pas de problème pour le faire en donnant le type et le nom de l'objet, ex:

Code :

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

1
2
    DoCmd.Close acQuery, "queryxyz"
    DoCmd.Close acTable, "tablexyz"

Ca fait le job.

Mais ce que je voudrais faire, c'est fermer en série, sans devoir donner le nom des objets. J'imagine un For Each ... Next

Mais sur quels types d'objets et sur quelles collections ?

Merci d'avance.

[tee_grandbois]

bonjour,

J'imagine un For Each ... Next

oui, c'est la bonne méthode en parcourant les objets de l'application, exemple pour les tables:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AllTables() 
 Dim obj As AccessObject, dbs As Object 
 Set dbs = Application.CurrentData 
 ' Search for open AccessObject objects in AllTables collection. 
 For Each obj In dbs.AllTables 
     If obj.IsLoaded = True Then 
         ' Print name of obj. 
         Debug.Print obj.Name 
     End If 
 Next obj 
End Sub

mais ce type de code est un cas extrême et, de toute façon, en fermant la base tout objet ouvert sera fermé.
Car dans une base bien conçue, les ouvertures et fermetures des objets en cascade à partir d'un menu sont maitrisées: des boutons ouvrent et ferment les formulaires qui peuvent ouvrir un état ou un autre formulaire mais ne doit pas laisser (sauf un état en aperçu avant impression si on choisit de ne pas m'imprimer) un objet ouvert sans qu'une action d'un bouton ne puisse fermer cet objet précédemment ouvert jusqu'à revenir au menu du début.
Enfin, les objets requêtes ou tables ne devraient s'afficher que dans un formulaire.

C'est pour cela que les formulaires doivent avoir le plus souvent possible la propriété modale à oui

[voxov]

Merci.

Mais problème avec

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim obj As AccessObject
 Dim dbs As Object
 
 Set dbs = Application.CurrentData
 ' Search for open AccessObject objects in AllTables collection.
 For Each obj In dbs.AllTables
     If obj.IsLoaded = True Then
         DoCmd.Close obj, acTable
     End If
 Next obj

Mais j'ai un runtime error 438 sur la ligne DoCmd.Close obj, acTable:

l'objet ne supporte pas la méthode (DoCmd).

Alors comment faire pour fermer le tab quand c'est une table, quand c'est un query, et quand c'est un form.

L'idée de fermer en série, c'est de "faire le ménage" dans ce qui est ouvert.

[Jean-Philippe André]

Les parametres sont inversés
il faut voir aussi si tu dois utiliser un .Name avec ton obj

[voxov]

Merci Jean-Philippe.

Ca fonctionne très bien.
Alors je vais compliquer un peu les choses: je voudrais fermer aussi des tab qui ont été créées par:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'MyQuerySQL est un string qui contient le SQL du query dont je veux afficher le résultat
 
Dim NomQueryDef As String
    With CurrentDb
        .QueryDefs.Delete NomQueryDef
        .CreateQueryDef NomQueryDef, MyQuerySQL
    End With
 
'on affiche la requête et on la supprime dans la foulée
    DoCmd.OpenQuery NomQueryDef
    CurrentDb.QueryDefs.Delete NomQueryDef

Il faut donc fermer un tab qui contient le résultat d'un query ... qui a déjà été supprimé.

c'est pour ça que

Code :

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

1
2
3
4
5
For Each tmp In CurrentDb.QueryDefs
    If SysCmd(acSysCmdGetObjectState, acQuery, tmp.Name) = acObjStateOpen Then
        DoCmd.Close acQuery, tmp.Name
    End If
Next

ne ferme pas ce tab.

Comment faire ?

[tee_grandbois]

pour les requêtes, c'est sensiblement le même code que pour les tables mais avec AllQueries (voir à la fin du lien l'exemple d'utilisation)
idem pour les formulaires: Allforms, les états: AllReports ...

[tee_grandbois]

Alors je vais compliquer un peu les choses: je voudrais fermer aussi des tab qui ont été créées par:

je crois reconnaitre du code que j'ai donné pour un autre post ...
Dans ce cas le Object.Isloaded ne fonctionnera pas puisque l'objet est détruit ...
il serait préférable de modifier le code précédent et ne pas supprimer l'objet après affichage, on ajoute la gestion d'erreur au cas où l'objet existe déjà (à dire vrai, cela devrait être systématique dans du code 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
19
20
21
22
23
24
'MyQuerySQL est un string qui contient le SQL du query dont je veux afficher le résultat
 On Error GoTo GestErr
 
Dim NomQueryDef As String
    With CurrentDb
        .QueryDefs.Delete NomQueryDef
        .CreateQueryDef NomQueryDef, MyQuerySQL
    End With
 
'on affiche la requête 
    DoCmd.OpenQuery NomQueryDef
'on rafraichit la fenêtre base de données pour faire apparaitre l'objet créé
    RefreshDatabaseWindow
 
GestErr:
If err <> 0 Then
    Select Case err
    Case 3265    ' élément non trouvé dans la collection car requête non trouvée
        Resume Next
    Case Else
        MsgBox err.Number & "-" & err.DESCRIPTION
        Exit Sub
    End Select
End If

le code de fermeture des objets ouverts devrait fonctionner maintenant:

Code :

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

1
2
3
4
5
6
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
 
 For Each obj In dbs.AllQueries
     If obj.IsLoaded Then DoCmd.Close acQuery, obj.Name, acSaveNo
 Next obj

[Jean-Philippe André]

Salut

effectivement, une boucle For Each avec un test sur l'ouverture

par exemple pour les tables ca donnerait un code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub piou()
Dim tmp
For Each tmp In CurrentDb.TableDefs
If SysCmd(acSysCmdGetObjectState, acTable, tmp.Name) = acObjStateOpen Then
    DoCmd.Close acTable, tmp.Name
End If
Next
End Sub

à toi de l'adapter pour ton cas et les objets que tu voudras parcourir.