Ajouter champ dans une table ouverte

**Daniel MOREAU** · 25/06/2007, 22h50

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

**mout1234** · 25/06/2007, 22h59

Bonsoir,

Ce n'est guère surprenant puisque tes sources sont utilisées ... par tes sous formulaires.

Même si je ne vois pas bien où tu veux en venir... en supposant qu'il te faille effectivement créer ainsi dynamiquement des champs dans les tables source de tes formulaires, il faudra dans ce cas au minimum enlever la propriété source de tes sous formulaire.

Qq chose du genre (code écris à la volée, non testé)

Code :

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

1
2
3
4
5
6
7
 
Me!MonSousForm.Form.RecordSource =""
...
 
 
 
Me!MonSousForm.Form.RecordSource ="MaSource"

**Daniel MOREAU** · 25/06/2007, 23h18

re,

Merci mout1234, ça fonctionne.

Même si je ne vois pas bien où tu veux en venir... en supposant qu'il te faille effectivement créer ainsi dynamiquement des champs dans les tables source de tes formulaires, il faudra dans ce cas au minimum enlever la propriété source de tes sous formulaire.

En fait je cherche un moyen pour que l'utilisateur créé des nouveaux champs dans une table, et puis ensuite ajouter ces mêmes nouveaux champs à mon formulaire, ceci afin d'effectuer des contrôles.

Je reste preneur pour toute autre idée.

Merci encore pour ton aide.

Daniel