OVH Cloud OVH Cloud

Vérification exécution requête VBA

3 réponses
Avatar
david
Bonjour,

J'ex=E9cute une requ=EAte d'insertion =E9crite en VBA =E0 partir=20
d'un formulaire.
Si la requ=EAte n'est pas valide (ex: int=E9grit=E9 non=20
respect=E9e car le nom doit =EAtre unique), je n'ai aucun=20
message d'erreur m'indiquant que l'insertion a =E9chou=E9.

Pourriez-vous me dire s'il y a une possibilit=E9 pour=20
v=E9rifier que la requ=EAte s'est bien ex=E9cut=E9e ?

Merci d'avance pour vos r=E9ponses

3 réponses

Avatar
Raymond [mvp]
Bonjour.

contrairement au message précédent, places : DoCmd.SetWarnings True devant
le début de ta procédure


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"david" a écrit dans le message de
news:9edb01c43450$f5c6c8d0$
Bonjour,

J'exécute une requête d'insertion écrite en VBA à partir
d'un formulaire.
Si la requête n'est pas valide (ex: intégrité non
respectée car le nom doit être unique), je n'ai aucun
message d'erreur m'indiquant que l'insertion a échoué.

Pourriez-vous me dire s'il y a une possibilité pour
vérifier que la requête s'est bien exécutée ?

Merci d'avance pour vos réponses
Avatar
Voilà mon code, mais j'avais déjà essayé de mettre
l'instruction DoCmd.SetWarnings True devant et ce ne
marche pas.

requete = "INSERT INTO societe
(nom_societe,intitule_societe,site_internet) VALUES('" &
vnom & "','" & vraison_sociale & "','" & vsite_internet
& " ')"

Dim db As DAO.Database
Set db = CurrentDb
db.Execute (requete)
Avatar
Raymond [mvp]
avec execute tu peux utiliser l'option dbFailOnError
tu peux aussi simplifier ta procédure:

Dim requête As String
requete = "INSERT INTO societe ...........................
CurrentDb.Execute requete, dbFailOnError

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le message de
news:9f5401c43453$2448b090$
Voilà mon code, mais j'avais déjà essayé de mettre
l'instruction DoCmd.SetWarnings True devant et ce ne
marche pas.

requete = "INSERT INTO societe
(nom_societe,intitule_societe,site_internet) VALUES('" &
vnom & "','" & vraison_sociale & "','" & vsite_internet
& " ')"

Dim db As DAO.Database
Set db = CurrentDb
db.Execute (requete)