Discussion :

[fazpedro]

Bonjour,

je cherche à créer une table dans plusieurs bases ACCESS en VBA, j'ai voulu faire un test et la création fonctionne bien mais pas le fait de masquer la table.
Merci de votre aide,

Code :

Code :

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

1
2
3
 
DoCmd.RunSQL "CREATE TABLE [C:\USER\MonUSer\MaBase_TEST.accdb].LISTE (USER CHAR(10),Nom CHAR(25))"
Application.SetHiddenAttribute acTable, "[C:\USER\MonUSer\MaBase_TEST.accdb.LISTE]", True

Message d'erreur :
3011 - Le moteur de base de données Microsoft Access n’a pas pu trouver l’objet [C:\USER\MonUSer\MaBase_TEST.accdb.LISTE]

> Pourtant la base existe bien car il crée bien la table... mais ne masque pas la table.

[nico84]

Bonjour,

Je ne connais pas cette méthode mais le dernier crochet est mal placé

[fazpedro]

J'ai modifié :

Code :

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

[C:\USER\MonUSer\MaBase_TEST.accdb.LISTE]

par :

Code :

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

[C:\USER\MonUSer\MaBase_TEST.accdb].LISTE

mais j'ai le même message d'erreur...

[Paraffine]

Dans le premier cas tu utilise une instruction SQL pour créer ta table, donc [C:\USER\MonUSer\MaBase_TEST.accdb] est reconnu comme une base Jet.

Par contre avec "Application.xxx" tu n'utilise pas le même mécanisme. Là ce sont des objets Access que tu veux manipuler (Table, Formulaire, Macros, même combat) et [C:\USER\MonUSer\MaBase_TEST.accdb] n'est pas reconnu comme application Access. Pour cela il faudrait que tu fasses de l'automation, ou peut-être que tu associes cette base dans les Références du projet.

Cordialement.

[fazpedro]

Merci Paraffine

Par contre, je ne vois pas comment modifier pour "associer cette base dans les Références du projet"...

Merci d'avance

[fazpedro]

j'ai essayé comme ceci :

Code :

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

1
2
3
4
5
6
7
 
Dim lDb As DAO.Database
Dim lTdf As DAO.TableDef
Set lDb = CurrentDb
Call lDb.Execute("CREATE TABLE [C:\USER\MonUSer\MaBase_TEST.accdb].LISTE (USER CHAR(7),Nom CHAR(25));")
Set lTdf = lDb.TableDefs("LISTE")
lTdf.Attributes = dbHiddenObject

j'ai le message d'erreur :
Erreur 3265 - Élémént non trouvé dans cette collection

Alors que la table "LISTE" a bien été créée...

[Paraffine]

Il y a ce lienhttps://access.developpez.com/faq/?p...ss#OuvrBddForm qui explique le principe pour manipuler des objets distants - là il s'agit de formulaires-.

[Paraffine]

j'ai essayé comme ceci :
j'ai le message d'erreur :
Erreur 3265 - Élément non trouvé dans cette collection

Normal, tu cherche LISTE dans :

Code :

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

1
2
 
Set lDb = CurrentDb

ta base courante, alors qu'il te faut chercher dans la base distante.

[hyperion13]

Salut
Ceci fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande0_Click()
Dim dbs As Database
Set dbs = OpenDatabase("C:\Users\....\Desktop\NorthwindCS.accdb") ' bdd distante
dbs.Execute "CREATE TABLE MyTable " _
    & "(FirstName CHAR, LastName CHAR, " _
    & "DateOfBirth DATETIME, " _
    & "CONSTRAINT MyTableConstraint UNIQUE " _
    & "(FirstName, LastName, DateOfBirth));"
dbs.TableDefs("MyTable").Attributes = dbHiddenObject
dbs.Close
End Sub

[Paraffine]

Voilà, dans l'exemple d'Hypérion, tu travailles directement dans la base distante, grâce au

Code :

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

Set dbs = OpenDatabase("C:\Users\....")

où tu dois saisir ton chemin d'accès

Tu y fais directement et la création et la manipulation de l'objet.

Tandis que préfixer la table par un chemin ne fonctionne que dans les instructions SQL.

[nico84]

Par curiosité, ça a quel intérêt de masquer une table ? Comme les utilisateurs ne doivent pas les voir autant leur interdire l'accès à l'ensemble de la dorsale, non ?

[fazpedro]

Le code ci-dessous fonctionne mais trop.. :
il fait disparaître la table !
Ce que je souhaite c'est juste la masquer pour pouvoir aussi la consulter via les options de navigation "Afficher les objets masqués"...
Merci

Code :

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

1
2
3
4
5
Dim dbs As Database
Set dbs = OpenDatabase("C:\USER\MonUSer\MaBase_TEST.accdb") ' bdd distante
dbs.Execute "CREATE TABLE LISTE (USER CHAR(7),Nom CHAR(25));"
dbs.TableDefs("LISTE").Attributes = dbHiddenObject
dbs.Close

[Paraffine]

Pour des tables visibles, tu dois à nouveau changer l'attribut à l'aide de code VBA.

Tu peux aller voir sur ce lien.

Notamment pour l'utilisation du MyTableDef.Attributes = dbHiddenObject :

The code (...) will hide objects in a manner that the tools --> options wont work to show the table again.

[hyperion13]

Hidden = masquer
Ce n'est pas parce qu'elle n'est plus visible dans la liste des objets de votre bdd distante que vous ne pouvez pas lire son contenu.
Une simple syntaxe sql devrait suffire SELECT * FROM LISTE

[fazpedro]

Merci à tous !

Code qui fonctionne pour créer et cacher la table :

Code :

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

1
2
3
4
5
Dim dbs As Database
Set dbs = OpenDatabase("C:\USER\MonUSer\MaBase_TEST.accdb") ' bdd distante
dbs.Execute "CREATE TABLE LISTE (USER CHAR(7),Nom CHAR(25));"
dbs.TableDefs("LISTE").Attributes = dbHiddenObject
dbs.Close

Code qui fonctionne pour afficher de nouveau la table :

Code :

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

1
2
3
4
Dim dbs As Database
Set dbs = OpenDatabase("C:\USER\MonUSer\MaBase_TEST.accdb") ' bdd distante
dbs.TableDefs("LISTE").Attributes = 0
dbs.Close