Bonjour

Je désire chercher les numéros manquants dans une base de donnée et les lister dans une combo.

J'ai une erreur lorsque je trouve le premier n° manquant et je ne sais pas comment le gérer.
Avez vous une idée ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
vnum = 1
Do While vnum < 8000
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\test.MDB")
sql = "select [NUMCLI] from table1 where [NUMCLI] =" & vnum
Set ds = db.CreateDynaset(sql)
Do While ds.EOF = False
 
If IsNull(ds("NUMCLI")) Then
Combo2.AddItem DS("NUMCLI").Value
Else
ds.MoveNext
End If
 
vnum = vnum + 1
Loop
ds.Close
Combo2 = Combo2.List(0)
Merci d'avance