Discussion :

[DUMEDO]

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

[ProgElecT]

Bonjour
....

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
19
vnum = 1
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\test.MDB") '<-------****
Do While vnum < 8000
    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) '<------- ????????
    '<------- ????????
Loop

Merci d'avance

On ne voit pas le Loop de la boucle externe, je supose donc que db n'est pas clos, se qui expliquerait une erreur '<-------**** car au 2° passage db est toujours ouvert.

La fonction IsNull renvoie la valeur True si l'argument expression est de type Null, tu demandes d'ajouter (Combo2.AddItem DS("NUMCLI").Value) une valeur Null ???

[DUMEDO]

bonjour

merci pour ta réponse.
En effet mon souci vient de la valeur null dans ma combo.
As tu une idée comment procéder.
Quand au db, ce n'est pas bloquant...

Merci d'avance

dumedo

[DUMEDO]

Re bonjour

je viens de modifier le code remplissant ma combo avec ceci
Vnum étant le n° manquant

Combo2.AddItem vnum
Mais j'ai l'erreur suivante (erreur 3021 : pas d'enregistrement courant) dès que le chiffre manquant est atteint.

Comment continuer la recherche et récupérer dans cette combo chaque n° manquant ?

Merci d'avance

[ProgElecT]

Bonjour

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

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
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\test.MDB") 
Do While vnum < 8000
    sql = "select [NUMCLI] from table1 where [NUMCLI] =" & vnum
    Set ds = db.CreateDynaset(sql)
    If ds.EOF Then
        'le recordset est vide, le N° n'est pas dans la table
        Combo2.AddItem vnum
        Else
        'le recordset a renvoyer au moins un enregistrement correspondant à vnum
        ds.Close
    End If
    vnum = vnum + 1
Loop
db.Close
 
If Combo2.ListCount = 0 Then Combo2.AddItem "il ne manque aucun numéro"
Combo2.ListIndex = 0

[DUMEDO]

Bonjour


Je me compliquais la tache...

Merci beaucoup pour votre aide

Dumedo