[AC-2007] traque aux doublons [Résolu]

[Lou17]

Bonjour,
Dans une table susceptible d'avoir des modifications de classement, j'ai besoin de traquer les doublons et de tout renuméroter si cela advenait
pour ce faire, j'ai imaginé un code qui repère les doublons :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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, si numéro double trouvé, de tout numéroter à partir de ce double :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

mais il génère de nouveaux doublons et il me faut plusieurs passages
où est mon erreur ?
merci de vos conseils
Lou

[jacques_jean]

Bonjour,

Peut-être, regarder ici :

http://access.developpez.com/faq/?pa...reerSonNumAuto

http://access.developpez.com/faq/?pa...#ReinitNumAuto

http://sqlpro.developpez.com/cours/doublons/

Cela dit, il y a quelques années que n'ai plus travaillé avec Access, mais dans cette partie du code :

Code :

1
2
3
4
5
If rs("N°table") > test - 1 Then
i = i + 1
rs("N°table") = test + i
rs.Update
End If

on trouve i = i + 1, mais où la variable "i" est-elle initialisée ?

[Lou17]

voici la solution trouvée et cela fonctionne

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

	
Code  :
        
	
12345678910111213141516171819
Public Function Arrière(CeQuilEst As Integer, CeQuilDevient As Integer)
Dim rs As New ADODB.Recordset
rs.Open "Table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
    Select Case rs("N°Table")
        Case CeQuilEst To CeQuilDevient
            If rs("N°Table ") = CeQuilEst Then
                rs("N°Table ") = CeQuilDevient
                rs.Update
                Else
                rs("N°Table ") = rs("N°Table ") - 1
                rs.Update
            End If
    End Select
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function

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

	
Code  :
        
	
1234567891011121314151617181920
Public Function Avant(CeQuilEst As Integer, CeQuilDevient As Integer)
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Table", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
    Select Case rs(“N°Table ")
        Case CeQuilDevient To CeQuilEst
            If rs("N°Table ") = CeQuilEst Then
                rs("N°Table ") = CeQuilDevient
                rs.Update
                Else
                rs("N°Table ") = rs("N°Table ") + 1
                rs.Update
            End If
    End Select
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Function ProcédureGénérale(CeQuilEst As Integer, CeQuilDevient As Integer)
'Dim CeQuilEst As Integer
'Dim CeQuilDevient As Integer
'CeQuilEst = 3
'CeQuilDevient = 10
If CeQuilEst > CeQuilDevient Then
ProcédureGénérale = Avant(CeQuilEst, CeQuilDevient)
Else
ProcédureGénérale = Arrière(CeQuilEst, CeQuilDevient)
End If
End Function