Discussion :

[waici]

Bonjour,

Dans une procédure VBA depuis une base de données Access 2002, j'ouvre une autre base de données Access 2002 afin d'y créer une table.

Mais lors de l'instruction

Code :

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

<base>.TableDefs.Append tdfTable

...j'obtiens l'erreur suivante :

Erreur d'exécution '3111':
Création impossible; pas d'autorisation de modification de la structure de la table ou de la requête '<table>'.

Idem pour la suppression

Précisions :
- J'utilise un fichier de groupe de travail personnalisé
- L'identifiant employé est administrateur
- Si j'ouvre la base de données avec cet identifiant, je peux créer, modifier, supprimer des tables.


Merci pour votre aide.

waici

[Tofalu]

Bonjour,

Comment est ouvert l'objet Base ? Et l'objet Worskpace ?

Un exemple de code :

http://access.developpez.com/sources...#DAOConnectMDW

[waici]

Bonjour,

La base est ouverte avec :

Code :

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

1
2
Dim db As Database
Set db = OpenDatabase(Base, False, False)

Par contre si j'essaie de créer un Workspace :

Code :

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

1
2
Dim ws As Workspace
Set ws = CreateWorkspace("ws", User, Pwd)

j'obtiens une autre erreur :

Erreur '3028' : Impossible de démarrer votre application. Le fichier d'informations du groupe de travail est absent ou ouvert en mode exclusif par un autre utilisateur.

Idem si je passe par un DBEngine comme dans l'exemple de la FAQ :

Code :

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

1
2
3
4
5
Dim bde As DBEngine
Set bde = New DBEngine
bde.SystemDB = "<chemin_fichier_MDW>"
Set ws = bde.CreateWorkspace("ws", User, Pwd)
Set db = ws.OpenDatabase(Base, False, False)

erreur sur bde.CreateWorkspace

Mon fichier de groupe de travail est utilisé simultanément par plusieurs bases de données, je ne comprends pas pourquoi il serait ouvert en mode exclusif...

[waici]

Etonnant quand même, en mode debug, une fois passé l'instruction

Code :

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

dbe.SystemDB = "<chemin_fichier>"

, en survolant l'expression dbe.SystemDB avec la souris, la valeur affichée est "system.mdb" alors que mon fichier s'appelle "GDT00003.mdw"

Normal ou pas ?

[waici]

Ca y est, j'ai trouvé !

Il fallait bien utiliser un DBEngine, mais de la façon suivante :

Code :

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

Dim bdeZ As New DBEngine

Il fallait insérer le New dans la déclaration de variable et non pas avec l'instruction 'Set dbe = New DBEngine'.

Et là la propriété SystemDB prend bien la valeur que je lui affecte (chemin du MDW perso)

Nota : J'ai essayé ça car j'avais eu des problèmes en VBA Excel (97-2002) pour me connecter à une base Access avec ADODB, je dois déclarer des "Dim objet As New ADODB.Connection" car cela ne fonctionne pas avec "Dim objet As ADODB.Connection" puis "Set objet = New ADODB.Connection"

Merci pour le lien vers la FAQ !

waici