Problème d’affichage après réinitialisation par code d’un champ numeroAuto

Version imprimable

3 pièce(s) jointe(s)

Bonjour,
J’ai écrit une sub pour réinitialiser un champ numeroAuto.
Ça marche, mais après exécution, quand je clique sur la table dans le volet de navigation, l’affichage de la table présente une anomalie : le champ numeroAuto est en deuxième position au lieu d’être en première.
Curieusement dans l’affichage en mode conception de la table, le champ numeroAuto est bien en première position et encore plus curieux si dans le volet de navigation je fais un copier/coller de la table, la table copiée ne présente plus l’anomalie : le champ numeroAuto est bien affiché en première position !

Voilà le bout de code ultra-simplifié qui pose problème (avec plusieurs variantes en commentaire pour recréer le champ numeroAuto et l’index primaire en vue d’essayer de fixer le bug. Toutes créent le champ et l’index) mais le problème d’affichage subsiste
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub MaSub3() CurrentDb.TableDefs.Refresh strSql = "ALTER TABLE tObjets ADD COLUMN Objets_Id AUTOINCREMENT NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY ;" ' Autres variantes de code testées (création du champ numeroAuto, puis de l'index mais le problème 'affichahe est identique 'strSql = "ALTER TABLE tobjets ADD COLUMN Objets_Id AUTOINCREMENT NOT NULL;" ' DoCmd.RunSQL (strSql) ' egalement 2 variantes pour creer l'indexprimaire l'index est créé mais le problème d'affichage subsiste 'strSql = "CREATE INDEX PrimaryKey ON tObjets (Objets_ID) WITH PRIMARY;" 'strSql = "ALTER TABLE tObjets ADD PRIMARY KEY (Objets_ID);" DoCmd.RunSQL (strSql) CurrentDb.TableDefs.Refresh ' On remet le champ numeroAuto en première position CurrentDb.TableDefs("tobjets").Fields("Objets_Id").OrdinalPosition = 0 ' egalement testé a tout hasard, mais le problème est identique 'i = CurrentDb.TableDefs("tobjets").Fields.Count 'CurrentDb.TableDefs("tobjets").Fields(i - 1).OrdinalPosition = 0 CurrentDb.TableDefs.Refresh End sub
Une idée sur le pourquoi ?

Pièce jointe 533279

L'affichage apres execution du code
Pièce jointe 533282

La structure de la table à réinitialiser
Pièce jointe 533286

PS : si utile je peux poster la base demo de l'anomalie

25/01/2020, 22h50
User
Bonsoir Gaby277,

Citation:

J’ai écrit une sub pour réinitialiser un champ numeroAuto.

Habituellement, pour réinitiliser un champ numéro-auto qui existe déjà dans table on utilise le code :
Code:

1 2 strSQL = "ALTER TABLE tObjets ALTER COLUMN Objets_Id AUTOINCREMENT(1,1);" DoCmd.RunSQL (strSQL)
avec :

Code:

...AUTOINCREMENT(compteur_début, incrément)

Comme cela si ta colonne numéro-auto est la 1ère en mode datasheet, elle reste la 1ère.

Concernant ta méthode, il faudrait voir la propriété ColumnOrder, mais je ne crois pas qu'elle existe pour les objets TableDef.

Bonne continuation,
Cdlt,
26/01/2020, 07h11
hyperion13
Salut
En complément de la réponse de User
En affichage feuille de données il y a bien la propriété
Code:

1 2 Me.objet_id.ColumnOrder = 1 Me.objet_nomcourt.ColumnOrder = 2
Et avec TableDefs, il y a bien la propriété
OrdinalPosition

Citation:

Envoyé par hyperion13

Salut
En complément de la réponse de User
En affichage feuille de données il y a bien la propriété

Code:

1
2
Me.objet_id.ColumnOrder = 1
Me.objet_nomcourt.ColumnOrder = 2

Et avec TableDefs, il y a bien la propriété
OrdinalPosition

Concernant la propriété ColumnOrder de l'objet field d'un tableDef, j'ai trouvé ce code pour la mettre à jour :

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
Public Function SetColumnOrder()
 
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
 
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("tObjets")
 
    ' Call the procedure to set the ColumnOrder property.
    SetFieldProperty tdf.Fields("Objets_Id"), "ColumnOrder", dbLong, 1
    SetFieldProperty tdf.Fields("Objets_NomCourt"), "ColumnOrder", dbLong, 2
    SetFieldProperty tdf.Fields("Objets_Complements"), "ColumnOrder", dbLong, 3
 
    Set tdf = Nothing
    Set dbs = Nothing
 
End Function
 
Private Sub SetFieldProperty(ByRef fld As DAO.Field, _
                             ByVal strPropertyName As String, _
                             ByVal intPropertyType As Integer, _
                             ByVal varPropertyValue As Variant)
    ' Set field property without producing nonrecoverable run-time error.
 
    Const conErrPropertyNotFound = 3270
    Dim prp As Property
 
    ' Turn off error handling.
    'On Error Resume Next
 
    fld.Properties(strPropertyName) = varPropertyValue
 
    ' Check for errors in setting the property.
    If Err <> 0 Then
        If Err <> conErrPropertyNotFound Then
            On Error GoTo 0
            MsgBox "Couldn't set property '" & strPropertyName & _
                   "' on field '" & fld.Name & "'", vbCritical
        Else
            On Error GoTo 0
            Set prp = fld.CreateProperty(strPropertyName, intPropertyType, _
                      varPropertyValue)
            fld.Properties.Append prp
        End If
    End If
 
    Set prp = Nothing
 
End Sub

Concernant ma proposition de SQL avec Alter tu peux aussi faire :

Code:

1
2
3
4
cpt1 = Nz(DMax("Objets_Id", "tObjets"), 0) + 1 ' compteur maxi actuellement + 1
 
strSQL = "ALTER TABLE tObjets ALTER COLUMN Objets_Id AUTOINCREMENT(" & cpt1 & ",1);" ' exécution du code
DoCmd.RunSQL (strSQL)

Cdlt,

27/01/2020, 19h57
gaby277

Bonjour,
Merci User et hyperion13, je regarde demain et je reviens.
Cordialement
29/01/2020, 19h03
gaby277
Bonjour
Apres avoir vidé la table, et exécuté :
Code:

1 2 strSQL = "ALTER TABLE tObjets ALTER COLUMN Objets_Id AUTOINCREMENT(1,1);" DoCmd.RunSQL (strSQL)
la reinit des numérosAuto est ok (en fait il n’est pas nécessaire de supprimer le champ numeroAuto (qui est index primaire) et de tout recréer
Donc problème résolu.

Pour SetColumnorder + Private Sub SetFieldProperty(ByRef fld As DAO.Field, _, il y a une erreur à la ligne

Code:

fld.Properties(strPropertyName) = varPropertyValue '

->

Citation:

erreur 3270 propriété non trouvée (la property est columOrder).

Je n’ai pas approfondi pour le moment.

Merci pour les réponses .
Cordialement

PS1 : j’ai aussi constaté que quand je supprime et recrée le champ numeroAuto et son index en mode conception (rajouté à la fin) et que j’exécute

Code:

CurrentDb.TableDefs("tobjets").Fields("Objets_Id").OrdinalPosition = 0

le champ numeroAuto passe bien en première position en mode conception et en mode affichage. Pour le moment j’avance et si ultérieurement je trouve une explication je reviendrai.
Il doit y avoir un truc dans la manière dont je recréai le champ et l'index primaire (ce qui n'est pas nécessaire).

PS2 : il est aussi possible de sauvegarder la table, la vider, compacter la base et rajouter les données.

Super !

Citation:

Envoyé par gaby277

Pour SetColumnorder + Private Sub SetFieldProperty(ByRef fld As DAO.Field, _
il y a une erreur à la ligne

Code:

fld.Properties(strPropertyName) = varPropertyValue ' -> erreur 3270 propriété non trouvée (la property est columOrder). Je n’ai pas approfondi pour le moment.

...

C'est bien columnOrder ?
Code:

1 2 3 4 ' Call the procedure to set the ColumnOrder property. SetFieldProperty tdf.Fields("Objets_Id"), "ColumnOrder", dbLong, 1 SetFieldProperty tdf.Fields("Objets_NomCourt"), "ColumnOrder", dbLong, 2 SetFieldProperty tdf.Fields("Objets_Complements"), "ColumnOrder", dbLong, 3
Cdlt,

Bsr
@user
Oui erreur avec la property ColumnOder mais ok avec la property "OrdinalPosition"
Affichage ok en mode création table et affichage table.

J'ai trouvé une sub bien pratique (je n'ai pas noté la source c'est mal:weird: merci à l'auteur)
Pour savoir ou en est et mieux comprendre comment fonctionne 'ordinalposition' :

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
Sub OrdinalPositionX(nomtable As String)
    Dim dbBd As Database
    Dim tdfTobjets As TableDef
    Dim aintPosition() As Integer
    Dim astrFieldName() As String
    Dim intTemp As Integer
    Dim fldTemp As Field
    Dim rstTobjets As Recordset
    Set dbBd = CurrentDb
    Set tdfTobjets = dbBd.TableDefs(nomtable)
    With tdfTobjets
        ' Display and store original OrdinalPosition data.
        Debug.Print _
                "Original OrdinalPosition data in TableDef."
        ReDim aintPosition(0 To .Fields.Count - 1) As Integer
        ReDim astrFieldName(0 To .Fields.Count - 1) As String
        For intTemp = 0 To .Fields.Count - 1
            aintPosition(intTemp) = _
            .Fields(intTemp).OrdinalPosition
            astrFieldName(intTemp) = .Fields(intTemp).Name
            Debug.Print , aintPosition(intTemp), _
                        astrFieldName(intTemp)
        Next intTemp
    End With
    dbBd.Close
End Sub

Citation:

Envoyé par User

Concernant la propriété ColumnOrder de l'objet field d'un tableDef, j'ai trouvé ce code pour la mettre à jour :

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
Public Function SetColumnOrder()
 
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
 
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("tObjets")
 
    ' Call the procedure to set the ColumnOrder property.
    SetFieldProperty tdf.Fields("Objets_Id"), "ColumnOrder", dbLong, 1
    SetFieldProperty tdf.Fields("Objets_NomCourt"), "ColumnOrder", dbLong, 2
    SetFieldProperty tdf.Fields("Objets_Complements"), "ColumnOrder", dbLong, 3
 
    Set tdf = Nothing
    Set dbs = Nothing
 
End Function
 
Private Sub SetFieldProperty(ByRef fld As DAO.Field, _
                             ByVal strPropertyName As String, _
                             ByVal intPropertyType As Integer, _
                             ByVal varPropertyValue As Variant)
    ' Set field property without producing nonrecoverable run-time error.
 
    Const conErrPropertyNotFound = 3270
    Dim prp As Property
 
    ' Turn off error handling.
    'On Error Resume Next
 
    fld.Properties(strPropertyName) = varPropertyValue
 
    ' Check for errors in setting the property.
    If Err <> 0 Then
        If Err <> conErrPropertyNotFound Then
            On Error GoTo 0
            MsgBox "Couldn't set property '" & strPropertyName & _
                   "' on field '" & fld.Name & "'", vbCritical
        Else
            On Error GoTo 0
            Set prp = fld.CreateProperty(strPropertyName, intPropertyType, _
                      varPropertyValue)
            fld.Properties.Append prp
        End If
    End If
 
    Set prp = Nothing
 
End Sub

Bonsoir User,

j'aimerais savoir si l'on peut adapter votre code à mon cas dans la discussion (post#1) ouverte ici https://www.developpez.net/forums/d2...at-temporaire/ ?

Cordialement.