Merci
Pour ceux qui sont aussi béotien que moi voila ce que cela donne :
au lieu de
DoCmd.SetWarnings False
DoCmd.OpenQuery latable, acNormal, acEdit
DoCmd.SetWarnings True
je fais
Dim MABASE As Database
Dim qdfParmQry As QueryDef
Err = 0
Set qdfParmQry = MABASE.QueryDefs("TOTO" )
On Error Resume Next
MABASE.Execute qdfParmQry.SQL, dbFailOnError
If Err > 0 Then Traite_erreur
Et ainsi je ne suis pas géné par les avertissements qui ne sont pas des erreurs mais je traite les erreurs.
Message édité par kilimanjaro le 23-04-2005 à 09:01:56