Déplacer une fiche dans une liste

Bonjour,
Je ne parviens pas à résoudre le problème qui consiste à déplacer une fiche dans une liste et reclasser ensuite cette liste : il s'agit d'un champ numéro dans une table
ex : je décide que le n°10 passe au 5, comment reclasser la table ?
tous les codes que j'emploie fonctionnent bien au premier reclassement, mais il se produit des doublons sur les suivants...
merci de vos lumières
Lou

Salut,

Tu pourrais montrer le code que tu as produit ?
Tu pourrais illustrer un peu ce qui se passe, ce qui devrait se passer, ce qui ne devrait pas se passer... ?

--
Neige

Souvent la réponse à votre question se trouve dans la doc. Commencez par là ;)

voila j'avais pensé reperer ke doublon que cela représenterait
Public Function N°Double()
Dim RsGlobal As New ADODB.Recordset
Dim RsFiltre As New ADODB.Recordset
RsGlobal.Open "table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until RsGlobal.EOF
RsFiltre.Open "table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
RsFiltre.Filter = "[N°table]=" & RsGlobal("N°table")
If RsFiltre.RecordCount > 1 Then
N°Double = RsFiltre("N°table")
Exit Do
End If
RsGlobal.MoveNext
RsFiltre.Close
Set RsFiltre = Nothing
Loop
RsGlobal.Close
Set RsGlobal = Nothing
End Function

puis à partir de cela, renuméroter...
cela fonctionne une fois puis si nouvelle correction, les doublons apparaissent

j'ai oublié la 2eme partie du code pour renuméroter, la voici
Public Function TABLE()
Dim test As Integer
test = N°Double
Dim i
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Sort = "[N°table]ASC"
Do Until rs.EOF
If rs("N°table") > test - 1 Then
i = i + 1
rs("N°table") = test + i
rs.Update
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function

C'est du PHP ça ?

--
Neige

Souvent la réponse à votre question se trouve dans la doc. Commencez par là ;)

non, il s'agit de vba j'avais précisé que c'était un pb access

Ca n'empêche pas : on peut utiliser une base de données Access avec PHP...
Mais si tu codes en VBA, c'est pas ici qu'il faut poster... y'a un site CS exprès pour ça : http://www.vbfrance.com/

--
Neige

Souvent la réponse à votre question se trouve dans la doc. Commencez par là ;)

ds la 2eme partie du code, en initialisant i =0 cela fonctionne 2 fois sans problème, les doublons reapparaissent à la 3eme fois...

merci qd meme de ton écoute

il n'y a aucun echo sur l'autre liste ...