Fermer les object Tab en VBA

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:

---

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.

bonjour,

Citation:

---

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:

---

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

Salut

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

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

Code:

---

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.

Merci.

Mais problème avec

Code:

---

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:

Citation:

---

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.

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

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:

---

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:

---

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 ?

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 ...

Citation:

---

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:

---

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:

---

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

---

Oui, c'est exact qu'il y a dans l'exemple du code que tu as proposé pour un autre sujet.

Cela étant dit, ta proposition fonctionne bien, sauf que les querydef sont sauvés. Ce n'est pas l'idéal quand justement on veut faire le ménage. On peut évidemment ajouter du code pour qu'à la fin de la fermeture des tab, on supprime les querydef ... mais je n'aime pas trop ça parce qu'une petite erreur et c'est tous les querydef qui pourraient être supprimés ...

Je me dis que l'on doit pouvoir faire autrement: quand on supprime un tab en cliquant sur la X à droite de la ligne des tab (en hint "Close <le nom du tab actif>"), on déclenche (trigger) un job qui ferme le tab.
C'est ce qu'il y a dans ce job que je suis curieux de savoir.

Citation:

---

Ce n'est pas l'idéal quand justement on veut faire le ménage. On peut évidemment ajouter du code pour qu'à la fin de la fermeture des tab, on supprime les querydef ... mais je n'aime pas trop ça parce qu'une petite erreur et c'est tous les querydef qui pourraient être supprimés ...

---

et en donnant à ces requêtes temporaires un préfixe spécifique afin de cibler la suppression ?

Citation:

---

Je me dis que l'on doit pouvoir faire autrement: quand on supprime un tab en cliquant sur la X à droite de la ligne des tab (en hint "Close <le nom du tab actif>"), on déclenche (trigger) un job qui ferme le tab.

---

je ne pense pas qu'on puisse mettre un trigger à ce niveau, de plus, c'est réservé aux tables

Code:

---

et en donnant à ces requêtes temporaires un préfixe spécifique afin de cibler la suppression ?

---

Oui, bien sûr. C'est ce que j'ai fait. Avec un message de confirmation qui donne la liste des querydef à supprimer.
Mais quand même, je préfèrerais l'autre solution si toutefois elle était possible.

Code:

---

de plus, c'est réservé aux tables

---

Non, pas qu'aux tables on peut fermer les querydef comme ça aussi. Pour être clair: le résultat d'un querydef qui est affiché "comme une table" peut être fermé en utilisant le X à droite en fin de ligne des tab.

bonjour,

Citation:

---

Non, pas qu'aux tables on peut fermer les querydef comme ça aussi. Pour être clair: le résultat d'un querydef qui est affiché "comme une table" peut être fermé en utilisant le X à droite en fin de ligne des tab.

---

je parlais de l'utilisation des triggers dans un tab: il est impossible de mettre du code à la fermeture des tabs (documents à onglets, pour moi)