Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2433 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Vba access : gestion d'erreur malgré DoCmd.SetWarnings False

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Vba access : gestion d'erreur malgré DoCmd.SetWarnings False

n°1056218
kilimanjar​o
Palm à 6000
Posté le 22-04-2005 à 11:37:55  profilanswer
 

Bonjour,
 
Au sein de modules VBA sous access j'utilise DoCmd.SetWarnings False pour éviter les avertissements d'access concernant l'execution de requetes création de table, ajout ou mise à jour.
 
Mais DoCmd.SetWarnings False présente le défaut de masquer aussi les erreurs (de clef, de valdation ou autre) qui peuvent survenir.
 
Connaissez vous une solution qui permette de masquer les avertissement mais de détecter les erreurs ?
 
Merci

mood
Publicité
Posté le 22-04-2005 à 11:37:55  profilanswer
 

n°1056295
dahlo
Posté le 22-04-2005 à 12:16:31  profilanswer
 

Pour strapper la demande de confirmation d'une requête action: Regarde la méthode Execute ...

n°1057495
kilimanjar​o
Palm à 6000
Posté le 23-04-2005 à 08:57:28  profilanswer
 

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
n°1129478
bmc
Posté le 24-06-2005 à 09:19:53  profilanswer
 

hum, ton code est incomplet.
 
il manque l'affectation d'une reference à ton objet MABASE, sans ca tu ne peu pas appeller la methode .QueryDefs("nom de la requete a executer" ):
 
voila le code en entier:
 
Dim MABASE As Database
Dim qdfParmQry As QueryDef
 Err = 0
 Set MABASE = CurrentDb()  
 Set qdfParmQry = MABASE.QueryDefs("nom de la requete a executer" )
 On Error Resume Next
 MABASE.Execute qdfParmQry.SQL, dbFailOnError
 If Err > 0 Then Traite_erreur


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Vba access : gestion d'erreur malgré DoCmd.SetWarnings False

 

Sujets relatifs
remise à zero numauto access[Java] Outil de gestion de "composants"; GraphEdit "like"
Active Directory et VBA Accessinteroger BD/ VBA/ DAO
Interface/VB/accessINsertion simultannée access vb6
VBA & Combobox - besoin d'aide -Pb ASP et Access
HELP !chemin de ma BDD access amené à changer 
Plus de sujets relatifs à : Vba access : gestion d'erreur malgré DoCmd.SetWarnings False


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR