Discussion :

[morinxav]

Bonjour,

Je voudrais exécuter une requête en VBA pour ajouter une colonne dans une table. Sauf que quand je lance ma requête l'erreur : "Le moteur de base de données n'a pas pu verrouiller la table <nom> car elle est déjà utilisée par une autre personne ou un autre processus. (Erreur 3211)" apparaît.

La seul raison de cette erreur est le fait que mon formulaire qui lance la requête à comme source de contrôle la table en question. J'ai donc eu l'idée de mettre ce contrôle à "vide", d’exécuter la requête puis de remettre le contrôle sauf que je n'y arrive pas.
J'ai vu sur la FAQ qu'il fallait utiliser ceci :
Me.NomDeMonFormulaire.Form.RecordSource = "Select ..."
Sauf que quand je met le nomduformulaire ça ne marche pas. Pouvez vous me donner la syntaxe pour cette commande sachant que mon formulaire se nomme : F_Ajout_Formation_Stagiaire.

Mon code :

Code :

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

1
2
3
4
5
6
7
8
 
           ajcolsql = "ALTER TABLE T_Formation_Stagiaire ADD " &  rstid.Fields(0) & " varchar(15)" 
 
            Set Req = db.CreateQueryDef("", ajcolsql)
 
            'Me.F_Ajout_Formation_Stagiaire.Form.RecordSource = ""
 
            Req.Execute dbFailOnError

Ou alors le problème ne vient pas de là, je ne sais pas.

Merci d'avance pour vos réponses.

[Jean-Philippe André]

salut,
attention à ne pas tout confondre
la syntaxe SQL pour les ALTER TABLE d'une part
http://access.developpez.com/sql/#L2.2.1
exécution de requête action d'autre part
http://access.developpez.com/faq/?page=SQL#qryActions

[morinxav]

Merci je vais regarder ça très attentivement.

[morinxav]

J'ai quelque peut modifier mon code mais j'ai toujours la même erreur.

Code :

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

1
2
3
4
 
          Dim db As DAO.Database: Set db = CurrentDb
          ajcolsql = "ALTER TABLE T_Formation_Stagiaire ADD COLUMN" & rstid.Fields(0) & " varchar(15)" 
          db.Execute ajcolsql

[Jean-Philippe André]

regarde déjà le contenu SQL de ta requête avant de l'exécuter

tu y verras notamment une espace manquante entre COLUMN et le nom du champ

[morinxav]

Oui c'est corrigé. Mais ça ne m’enlève pas l'erreur.