Discussion :

[accessisgood]

Bonjour,

je cherche à faire un recordsetclone, non pas sur une forme, mais sur une table ou une requête ouverte en feuille de données et filtrée
est ce que c'est possible ?

en tout cas les tables ouvertes n'apparaissent pas quad on scrute par

Code :

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

For Each frm In Forms

est ce qu'on peut scruter par un autre objet ?

[nico84]

Bonjour,

Je ne comprends pas bien la question car "table ouverte" cela ne veut pas dire grand chose... Toutes les tables de la base sont accessibles en lecture/écriture, qu'elles soient affichées à l'écran ou non.

Il suffit pour cela d'ouvrir un recordset

Code :

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

1
2
3
Dim rst as DAO.recordset
set rst=currentdb.openrecordset "select * from matable"
...

[accessisgood]

Merci de ta réponse, je me suis mal exprimé:

ce que je souhaite
- je clic sur une table quelconque, elle s'affiche en feuille de données comme d'hab
- je réalise des filtres sur les en têtes de colonnes, les données sont automatiquement filtrées… ok

alors que cette fenêtre est toujours ouverte, je souhaiterais un code VBA qui récupère la clause SQL de ces filtres (par exemple WHERE CODEARTICLE LIKE 'GG*'), que je puisse récupérer l'info et l'utiliser par ailleurs
En fait, ce code doit scruter les fenêtres ouvertes et en extraire le filtre en texte.

je sais le faire en ouvrant une 'FORME' en mode feuille de données, mais pas en ouvrant une 'TABLE', d'où ma question

[accessisgood]

Je viens de voir qu'on pouvait récupérer la liste des tables ouvertes… mais comment en récupérer le filtre s'il y en a un ?

Code :

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

1
2
3
4
5
6
7
8
9
Public Function AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
    If obj.IsLoaded = True Then
        Debug.Print obj.Name & " " & obj.Type
     End If
Next obj
End Function

[nico84]

Je comprends mieux. Il y a bien un objet CurrentData.AllTables("matable") mais je ne sais pas comment explorer ses propriétés.

Quand on le ferme il propose de sauver quelque part une partie du formatage donc il doit y avoir moyen de le retrouver mais je ne sais pas où...

[Tortille]

Bonjour,
peut-être en cherchant dans les contraintes des champs de la table ?

[Tortille]

Je viens de trouver ça mais il faut fermer la table pour que le filtre se mette à jour et s'enregistre dans la propriété Filter de la table.

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
'List table properties.
Sub exaProperties()
Dim db As Database
Dim tbl As TableDef
Dim prp As Property
 
    Set db = CurrentDb
    Set tbl = db!TableName
 
    For Each prp In tbl.Properties
        If prp.Name = "Filter" Then
            Debug.Print prp.Name
            Debug.Print prp.Value
            Debug.Print prp.Type
            Debug.Print prp.Inherited
        End If
    Next prp
    Debug.Print tbl.Properties.Count
End Sub

[accessisgood]

Merci beaucoup Tortille, c'est exactement ce que je cherchais
en effet la propriété ne se met pas à jour en temps réel, mais il n'y a pas besoin de fermer la table, on peut juste faire une sauvegarde
en rajoutant un Docmd.Save au début de la procédure que tu m'a fourni