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 ?
Merci d'avance
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)
Partager