Recherche:

Il faut ajoute Resume Next après la gestion de l'erreur

reqSQL = "select * from TblReqBase;"
Set table = db.OpenRecordset(reqSQL, dbOpenDynaset)
While Not table.EOF

...

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

reqSQL = "select * from...