Bonsoir à tous,

J'ai un formulaire principal et 2 sous-formulaires.

Ces 2 sous-formulaires m'affichent les champs de 2 tables différentes.

Je souhaite créer et ajouter des nouveaux champs dans ces tables.

Voici mon code :

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
Dim db As Database
Dim tb As TableDef
Dim fld As Field
 
Set db = CurrentDb
Set fld = New Field
Set tb = db.TableDefs("Tbl_Taux")
 
    With tb
    Set fld = .CreateField("Essai", dbDouble)
    .Fields.Append fld
    End With
 
Set fld = Nothing
Set tb = Nothing
Mon souci c'est que j'ai un message d'erreur qui me dit que la table n'a pas pu être verouiller car elle est déjà utilisée.

Comment procéder pour régler ce problème.

Merci pour votre aide

Daniel