Bonjour,
J'utilise un on error goto Err: lors du premier passage il se rend bien à l'étiquette Err, mais au 2ème passage il m'affiche l'erreur et plante !
Mon code
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
20
 reqSQL = "select * from TblReqBase;"
    Set table = db.OpenRecordset(reqSQL, dbOpenDynaset)
    While Not table.EOF
 
        Dim Str As String
        On Error GoTo Supp
        Str = db.QueryDefs(table!NomReq).Name
        GoTo Cont
Supp:
        Select Case err.Number
                Case 3265
            ' Requête inexistante, on supprime sa référence
            reqSQL = "delete from TblReqBase where NomReq = '" & table!NomReq & "';"
            db.Execute (reqSQL)
             err.Clear
        End Select
 
Cont:
        table.MoveNext
    Wend
J'ai une liste de nom de requête stockée dans une table et je veux vérifier si cette requête existe bien dans ma base :
C'est pourquoi le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Str = db.QueryDefs(table!NomReq).Name
Si la requête n'existe , j'ai une erreur 3265... dans le cas de cette erreur je supprime la requête de ma table ...
1er passage: aucun problème, je vais bien à l'étiquette Supp... mais au 2ème passage... il bloque et m'affiche le message d'erreur...
Je ne comprends pas pourquoi ????

Merci