Discussion :

[C15nantes]

Bonjour à tous et à toutes,
Dans une table j'ai des champs (booléens) dénommés C...à C35.

Je voudrais rajouter les champs C36 à C41.

En m'inspirant de discussions trouvées ça ou là, j'ai fait ceci et cela marche

Code :

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

1
2
3
4
For x = 36 To 41
Set oFld = oTbl.CreateField("C" & Format(x, "00"), dbBoolean)
oTbl.Fields.Append oFld
Next x

Pour améliorer ceci, je voudrais faire 2 ou 3 choses :
vérifier le dernier champ existant (ici ce serait C35)
ajouter les 5 champs suivants (ici de C36 à C41)
et là je suis très exigeant (je ne suis pas sur que cela soit possible) insérer les champs C36 à C41 APRES le C35
enfin, faire apparaitre une msgbox disant que les champs C36 à C41 ont bien été ajoutés

Merci de votre aide.
A+
C15

[Jean-Philippe André]

Bonjour,

cette notion d'ordre n'est pas pertinente, vu que c'est juste une facon que tu as de les voir, mais au niveau machine, l'ordre des champs n'a aucun sens

Ajoute tes champs, et au pire change l'ordre manuellement dans ton interface et/ou choisis l'ordre qui te convient dans les SQL utilises

[C15nantes]

Bonjour,

Je ne suis pas surpris de ta réponse ; effectivement quand ils sont créés, il suffit de les repositionner à la main pour une meilleure lisibilité.
Par contre auras-tu une piste pour les autres points évoqués ?

Merci
A+
Hervé

[Jean-Philippe André]

Tu peux faire un test simple

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
debug.print oTbl.Fields("C35").Name
If Err.Number > 0 then 
Err.Clear
'Le champ n'existe pas
Else
'ton code d'ajout
Msgbox "t'es le meilleur"
End If

[C15nantes]

Bonjour,
Merci de cette réponse.
C'est si simple
A+
C15