Discussion :

[niko8181]

Bonjour,
Je dois lancer la requête suivante sur ma table, mon but étant d'ajouter un champ numéroauto, et le forcer à démarrer à 1 :

Code sql :

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

1
2
ALTER TABLE [Trame]
ADD nui COUNTER(1);

Cette requete marche, mais elle ajoute toujours le champ en fin de table.

=>Comment puis-je faire pour ajouter ce champ en début de table ?

Merci pour votre aide...


(ou autre solution pour avoir un champ équivalent, qui "numérote" les enregistrements, en démarrant à 1)

[Lagnio]

Bonjour,

Mysql permet d'insérer une colonne en premier via la commande "FIRST", la syntaxe est la suivante :

Code :

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

1
2
ALTER TABLE tbl_name
  ADD [COLUMN] column_def FIRST

Mais je ne suis pas sûr que cette option existe au niveau d'access....

Bonne recherche

[niko8181]

La nuit porte conseil, voici une façon simple de créer un "faux" numéroauto :

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
16
17
Public Function numérote(matable As String, monchamp As String)
   Dim rst  As DAO.Recordset
   Dim wrk As Workspace
   Dim i As Integer
 
    Set wrk = DBEngine.Workspaces(0)
    Set rst = CurrentDb.OpenRecordset(matable)
    i = 0
 
    While Not rst.EOF
      i = i + 1
      rst.Edit
      rst.Fields(monchamp).Value = i
      rst.Update
      rst.MoveNext
    Wend
End Function

[Jean-Philippe André]

salut,
a noter que l'ajout du champs en "premier" n'est pas vraiment pertinent, dans la mesure ou les champs sont interchangeables et leur ordre ne depend que de celui que l'utilisateur souhaite leur appliquer

[niko8181]

On peut effectivement modifier l'ordre des champs au niveau d'un SELECT, bien vu ...

[Jack78960]

Voici comment on redresse l'odre des colonnes d'une table après l'orde Alter

Code :

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

1
2
3
 
currentdb.execute "ALTER TABLE [Trame] ADD nui COUNTER(1);"
currentdb.TableDefs("trame").Fields("Nui").OrdinalPosition = 1

L'ecriture de cette ligne n'oblige pas à charger le moteur DAO

[niko8181]

Wow, super, je ne pensais même pas que ce soit possible aussi simplement !