En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1026730 visiteurs

 3 visiteurs en ligne

Renuméroter un champ

Renuméroter un champ dans une table

Directement ou au travers d'une requête qui pourra être triée ou paramétrée.

N'oubliez pas la référence DAO

Sub ReNumeroter(strTable As String, strChamp As String)
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim i As Integer
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(strTable, dbOpenDynaset)
    i = 0
    
    With rst
        Do While Not .EOF
            i = i + 1
            .Edit
            .Fields(strChamp) = i
            .Update
            .MoveNext
        Loop
    End With
    
    rst.Close
    dbs.Close
    Set rst = Nothing
    Set dbs = Nothing
End Sub

Catégorie : Les mémos - Tables
Page lue 6734 fois

Vous êtes ici :   Accueil » Renuméroter un champ