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

[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]

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.