Déplacer un champ en VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour.
Désolé, j'ai cherché en vain comment déplacer un champ (dans mon cas en première colonne) après l'avoir inséré.
J'essaye d'utiliser la propriété OrdinalPosition mais le champ reste dans la même position (dernière colonne) qlqsoit la valeur attribuée à la propriété (celle-ci est bien en lecture écriture dans l'explorateur d'objet).
J'ajoute que je ne veux pas utiliser de requête puisque celle-ci dépend du format de la table d'entrée qui lui même est mis à jour par le code (insertion d'un champ) en bref tout doit se faire en vba (si possible):roll:
Voici le code (c'est l'étape 4 qui ne fonctionne pas):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Sub AjoutChampDansTable() Dim oDb As DAO.Database Dim oTbl As DAO.TableDef Dim oFld As DAO.Field Dim tTable As DAO.TableDef Set oDb = CurrentDb 'Suppression de la Table A Traiter Originale For Each tTable In oDb.TableDefs If tTable.Name = "Table_A_Traiter_Ori" Then DoCmd.DeleteObject acTable, tTable.Name End If Next 'Copie de la table à traiter DoCmd.CopyObject , "Table_A_Traiter_Ori", acTable, "Table_A_Traiter" Set oTbl = oDb.TableDefs("Table_A_Traiter") 'Etape 1 : Créer le champ Set oFld = oTbl.CreateField("Id", dbText, 120) 'Etape 2 : Définit les propriétés oFld.AllowZeroLength = False 'Chaine vide autorisée : Non oFld.Required = True 'Null interdit : Oui 'Etape 3 : Ajout du champ à la table oTbl.Fields.Append oFld 'Etape 4 : Placement du champ inséré en première colonne oFld.OrdinalPosition = 1 'Rafraichit la collection oTbl.Fields.Refresh End Sub

18/02/2022, 19h15
User
Bonjour,

Citation:

J'ajoute que je ne veux pas utiliser de requête puisque celle-ci dépend du format de la table d'entrée qui lui même est mis à jour par le code (insertion d'un champ) en bref tout doit se faire en vba (si possible)

Je pensais en fait que vous pouviez modifier la structure de votre requête basée sur votre table ensuite en utilisant du code VBA :
Code:

1 2 3 4 5 6 set dbs = currentdb() set qry = dbs.QueryDefs("NomRequête") qry.SQL="select Id,... from Table_A_Traiter;" set qry = nothing

bonsoir,
dans les collections, la première position est 0:
Code:

1 2 'Etape 4 : Placement du champ inséré en première colonne oFld.OrdinalPosition = 0

18/02/2022, 20h04
Carabistouilleur

Merci Je vais essayer votre solution.
Cordialement
18/02/2022, 20h14
Carabistouilleur
Citation:
Envoyé par tee_grandbois

bonsoir,
dans les collections, la première position est 0:

Code:

1 2 'Etape 4 : Placement du champ inséré en première colonne oFld.OrdinalPosition = 0
Désolé mais le champ est toujours inséré en dernière position avec ce code.
Cdlt
18/02/2022, 20h23
tee_grandbois

à quel endroit regardes-tu ?
18/02/2022, 21h02
Carabistouilleur

Je regarde dans le table qui s’appelle table à traiter et le champ inséré est en dernière position
18/02/2022, 21h49
tee_grandbois

en mode création ou en mode feuille de données ?
18/02/2022, 22h12
Carabistouilleur

En mode feuille de données
18/02/2022, 23h40
tee_grandbois

et en mode création ?
19/02/2022, 00h09
tee_grandbois

en mode affichage "Feuille de données" c'est la propriété ColumnOrder qui est utilisée et si elle existe pour le champ.
De ce fait l'ordre peut être différent de OrdinalPosition, de plus cette propriété n'est pas facile à manipuler en VBA comme le montre l'exemple dans ce lien

Bonjour tee_grandbois
Je n'ai pu déplacer le champ inséré dans la table que par requête, je ne suis pas arrivé à utiliser les propriétés en question...:?
Le but étant de créer une sub du type InsererChamp ( sNomChamp as string, iIndiceChamp as integer) le code suivant ne permet pas cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub AjoutChampDansTable()
 
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oFld As DAO.Field
Dim tTable As DAO.TableDef
Dim rRequete As DAO.QueryDef
 
    'Affectation objet base
    Set oDb = CurrentDb
    'Suppression de la Table A Traiter Originale
    For Each tTable In oDb.TableDefs
        If tTable.Name = "Table_A_Traiter_Ori" Then
            DoCmd.DeleteObject acTable, tTable.Name
        End If
    Next
    'Copie de la table à traiter
    DoCmd.CopyObject , "Table_A_Traiter_Ori", acTable, "Table_A_Traiter"
 
    'Affectation objet table
    Set oTbl = oDb.TableDefs("Table_A_Traiter")
 
 
 
    'Etape 1 : Créer le champ
    Set oFld = oTbl.CreateField("Id", dbText, 120) 'Affectation objet champ
 
    'Etape 2 : Définit les propriétés
    oFld.AllowZeroLength = False 'Chaine vide autorisée : Non
    oFld.Required = True         'Null interdit : Oui
 
    'Etape 3 : Ajout du champ à la table
    oTbl.Fields.Append oFld
 
    'Etape 4 : Placement du champ inséré en première colonne
'    oFld.OrdinalPosition = 0 'marche pas 
    DoCmd.SetWarnings False ' désactive les messages d'alertes, comme : la table ou la requête existe déjà !
 
    'Suppression de la Requete DeplaceChamp
    For Each rRequete In oDb.QueryDefs
        If rRequete.Name = "DeplaceChamp" Then
            DoCmd.DeleteObject acQuery, rRequete.Name
        End If
    Next
 
    'Déplacement du champ en position 1
    Set qry = oDb.CreateQueryDef("DeplaceChamp")
 
        'Définition du code SQL
        qry.SQL = "SELECT Table_A_Traiter.Id, Table_A_Traiter.Label1," & _
        "Table_A_Traiter.Label2, Table_A_Traiter.Label3, Table_A_Traiter.Label4," & _
        "Table_A_Traiter.Label5, Table_A_Traiter.Label6, Table_A_Traiter.Label7," & _
        "Table_A_Traiter.Label8 INTO Table_Traitée " & _
        "FROM Table_A_Traiter;"
        'Exécution de la requête
        DoCmd.RunSQL qry.SQL, dbFailOnError
        'Suppression du champ Id dans la table initiale
        oDb.Execute "ALTER TABLE " & oTbl.Name & " DROP COLUMN Id;", dbFailOnError
 
    DoCmd.SetWarnings True ' réactive les messages d'alertes
    'Rafraichit la collection
    oTbl.Fields.Refresh
 
End Sub

Peux-tu m'indiquer le code permettant de définir la postion du champ dans la table ?
Merci.

19/02/2022, 13h33
tee_grandbois

bonjour,
c'est bizarre, ton premier code (avec OrdinalPosition) fonctionne avec Office 365, je l'ai testé.
Je vais jeter un œil à ton nouveau code.
19/02/2022, 14h36
tee_grandbois

une question: est-ce que tes tables d'origine sont vides ou contiennent des enregistrements ?
autre question à laquelle je n'ai pas eu de réponse: as-tu regardé en "Mode création" si la colonne était bien en première position (car c'est ce qui importe) ?
19/02/2022, 15h40
Carabistouilleur

4 pièce(s) jointe(s)

La table contient des enregistrements.
Effectivement en mode création le champ est bien en première position :
Pièce jointe 614048
Tu pense que c'est un problème de bibliothèque d'objet ?
Voici mes réf :
Pièce jointe 614049
Je précise que normalement depuis plusieurs éditions d'Office (j'ai Office 2021) cette ref :
Pièce jointe 614050
est couverte par celle-là :
Pièce jointe 614051
Du coup comment avoir le bon ordre de champ en mode "feuille de données" stp ?
19/02/2022, 17h08
tee_grandbois

Citation:

Tu pense que c'est un problème de bibliothèque d'objet ?

non

Citation:

Du coup comment avoir le bon ordre de champ en mode "feuille de données" stp ?

j'ai testé le premier code avec Office 365 et ce qui est bizarre, la colonne est bien en 1ère position en mode création, mais en 2ème quand on affiche la table en mode feuille de données.
Le second code me semble un peu gourmand en ressources puisqu'il va nécessiter la création de 2 tables provisoires mais elle fonctionne et affiche bien la nouvelle colonne en premier
il manque juste la déclaration de la variable Qry en DAO.Querydef
ce qui me gène c'est que la colonne Id sera vide et qu'elle est créée avec les restrictions Nul interdit : Oui et Chaine vide autorisée: Non ; cela me semble un brin paradoxal
19/02/2022, 17h22
tee_grandbois

après vérification, Nul interdit est à Oui après test du deuxième code (dans Table_Traitée), alors qu'il reste à Non avec le premier (dans Table_A_Traiter).
encore une bizarrerie

2 pièce(s) jointe(s)

C'est peut-être bon ...

A priori l'ordre du champ est rétabli en mode feuille de donnée lorsqu'on fait une copie.
Voici un code qui à priori fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub AjoutChampDansTable2()
 
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oFld As DAO.Field
Dim tTable As DAO.TableDef
Dim rRequete As DAO.QueryDef
 
    'Affectation objet base
    Set oDb = CurrentDb
    'Suppression de la Table A Traiter Originale
    For Each tTable In oDb.TableDefs
        If tTable.Name = "Table_A_Traiter_Ori" Then
            DoCmd.DeleteObject acTable, tTable.Name
        End If
    Next
    'Copie de la table à traiter
    DoCmd.CopyObject , "Table_A_Traiter_Ori", acTable, "Table_A_Traiter"
 
    'Affectation objet table
    Set oTbl = oDb.TableDefs("Table_A_Traiter")
 
    'Etape 1 : Créer le champ
    Set oFld = oTbl.CreateField("Id", dbText, 120) 'Affectation objet champ
    'Etape 2 : Définit les propriétés
    oFld.AllowZeroLength = False 'Chaine vide autorisée : Non
 
 
    'Etape 3 : Ajout du champ à la table
    oTbl.Fields.Append oFld
 
    'Etape 4 : Placement du champ inséré en première colonne
    oFld.OrdinalPosition = 0
 
 
    'Suppression de la table résultat
    For Each tTable In oDb.TableDefs
        If tTable.Name = "Table_Traitée" Then
            DoCmd.DeleteObject acTable, tTable.Name
        End If
    Next
    'Copie de la table à traiter
    DoCmd.CopyObject , "Table_Traitée", acTable, "Table_A_Traiter"
 
    'Suppression du champ Id dans la table initiale
    oDb.Execute "ALTER TABLE " & oTbl.Name & " DROP COLUMN Id;", dbFailOnError
 
    'Recup des données initiales
    DoCmd.SetWarnings False
    DoCmd.CopyObject , "Table_A_Traiter", acTable, "Table_A_Traiter_Ori"
    DoCmd.SetWarnings True
    'Rafraichit la collection
    oTbl.Fields.Refresh
 
End Sub

Etats :
Pièce jointe 614057
Pièce jointe 614058

Dis-moi si ça te semble correct.
Merci.

19/02/2022, 19h39
tee_grandbois

Citation:

Dis-moi si ça te semble correct.

tu l'as vu par toi-même, non ?
19/02/2022, 19h41
Carabistouilleur

Ah….heu…merci alors.

Voir 40 message(s) de cette discussion en une page