Discussion :

[gilbert29910]

Bonjour à toutes et à tous,

Je vais schématiser mon problème (VBA). Par exemple : une table constituée de 3 colonnes, 1ère index, 2è n° fiche, 3è nom ouvrage.
Les fiches présentent dans la table sont numérotées de 1 à 10, je veux ajouter une 11è fiche mais je veux la numéroter n°3 ce qui implique : la fiche qui était n°3 devient n°4, n°4 devient n°5 ... etc. Je tourne en rond et je ne trouve pas la de solution. Aussi, je me tourne vers vous plein d'espoirs. Merci d'avance

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait faire cela:

Code :

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

1
2
3
4
5
6
7
8
Private Sub n°_AfterUpdate()
    Dim n As Long
    n = DCount("n°", "MaTable", "[n°]=" & Me.n°)
    Debug.Print id, n°, n
    If n > 0 Then   '--- n° déjà utilisé
        CurrentDb.Execute "UPDATE MaTable SET [n°] = [n°]+1 WHERE [n°]>=" & Me.n°), dbFailOnError
    End If
End Sub

Cordialement.

[gilbert29910]

Bonjour,
J'étais parti quelques jours . Merci pour le code. Ca marche super.
CORDIALEMENT