Création d'un champ dans une table via VBA

Bonjour à tous,

Je veux créer un champ dans une table en passant par un formulaire.

Dans ce formulaire j'ai 2 zones : strNomDuChamp (Zone de Texte) et ListeType (Zone de liste déroulante rattachée à une table qui contient deux champs).

J'ai aussi un bouton avec notamment le code ci-dessous qui est rattaché :

Code:

---

Set MonChamp = MaTable.CreateField(Me.strNomChamp, Me.ListeType)

---

La partie Me.strNomChamp fonctionne sans problème mais pas Me.ListeType...

Pourtant quand je mets un :

Code:

---

MsgBox Me.ListeType

---

il me met bien la valeur que je souhaite (c'est à dire : dbBoolean ou dbInteger par exemple) mais ensuite le code Set MonChamp provoque un avertissement Erreur d'exécution '3421'.

J'avoue que je ne comprends pas pourquoi ?

Oliv'

Salut,

Il me semble, que dbBoolean ou dbInteger sont des constantes (numérique) et non des chaines de caractères comme dans ton cas :?

A+

Salut User,

Tu dois avoir raison mais lorsque l'on définit le champ normalement la syntaxe est par exemple:

Code:

---

Set MonChamp = MaTable.CreateField(Me.strNomChamp, dbBoolean)

---

Donc il faut bien transmettre une chaine de caractères. Non ?

Oliv'

Il semblerait que cela fonctionne si au lieu de transmettre la constante en toute lettre on transmet sa valeur :

1 pour dbBoolean
2 pour dbByte
3 pour dbInteger
...

Je teste cela demain matin et je vous tiens au courant.

Bonne soirée

Oliv'

Citation:

---

Envoyé par Oliv'83

Il semblerait que cela fonctionne si au lieu de transmettre la constante en toute lettre on transmet sa valeur :

1 pour dbBoolean
2 pour dbByte
3 pour dbInteger
...

Je teste cela demain matin et je vous tiens au courant.

Bonne soirée

Oliv'

---

Oui, bien vu, ça devrait fonctionner :

c'est ce que l'on fait habituellement dans les requêtes qui n'acceptent pas les constantes ;)

Je confirme ce que je disais hier soir, cela fonctionne avec les valeurs.

Bonne journée à tous et merci à User pour son aide.

Oliv'