[Toutes versions] Trouver premier trou dans champ num [Résolu]

[coup dur]

Bonjour a tous, sauriez-vous comment trouver le premier numéro manquant dans une suite numérique ?
Genre dans mon champ num long j'ai 1, 2, 3, 5
Je voudrais qu'il me propose pour mon prochain enregistrement 4
Merci beaucoup

[naphta]

Bonjour,

Pourtant c'est un problème très intéressant ..

bon si c'est une très grosse table
faut faire une requête qui compte les enregistrements et fait un max du champ.
Si ils sont égaux alors pas de trou,

sinon on parcours la table et on cherche le trou.
ceci est dans la fonction proposée ci-dessous en ADO

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function trouchronoclient() As Long
 
Dim rst As New ADODB.Recordset
Dim lasq As String
Dim lecpt As Long
 
lasq = "SELECT latable.lenum FROM latable ORDER BY latable.lenum"
 
rst.Open lasq, CurrentProject.Connection, adOpenStatic, adLockReadOnly
 
lecpt = rst!lenum
 
Do Until rst.EOF
    If lecpt <> rst!lenum  Then
        trouchronoclient = lecpt
        Exit Do
    End If
    lecpt = lecpt + 1
    rst.MoveNext
Loop
 
end function

a+

[coup dur]

C'est exatement ce que je recherchais ! j'avais essayé avec des MaxDom et plein d'autre choses, mais ta fonction marche paraitement ! Merci !