OVH Cloud OVH Cloud

docmd.runsql le retour

4 réponses
Avatar
John Fuss
Bonjour,

via un docmd.runsql je fais un INSERT.... docmd me met un joli msg, genre
accepter l'ajout de x lignes. Comment puis-je savoir si l'utilisateur à
taper Oui ou Non ?

Merci

John

4 réponses

Avatar
Raymond [mvp]
Bonjour.

fais:
DoCmd.SetWarnings False
docmd.runsql
DoCmd.SetWarnings True
ça te supprimera le message.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"John Fuss" a écrit dans le message de
news:brn45b$fai$
Bonjour,

via un docmd.runsql je fais un INSERT.... docmd me met un joli msg, genre
accepter l'ajout de x lignes. Comment puis-je savoir si l'utilisateur à
taper Oui ou Non ?

Merci

John




Avatar
John Fuss
Je veux laisser le choix à l'utilisateur, si je ne peux pas recup la réponse
au msg Access, il va falloir que j'utilise un MsgBox, je voulais éviter tant
que faire se peux.

John

"Raymond [mvp]" a écrit dans le message de
news:uYkYMC%
Bonjour.

fais:
DoCmd.SetWarnings False
docmd.runsql
DoCmd.SetWarnings True
ça te supprimera le message.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"John Fuss" a écrit dans le message de
news:brn45b$fai$
Bonjour,

via un docmd.runsql je fais un INSERT.... docmd me met un joli msg,
genre


accepter l'ajout de x lignes. Comment puis-je savoir si l'utilisateur à
taper Oui ou Non ?

Merci

John








Avatar
3stone
Salut,

"John Fuss" a écrit
Je veux laisser le choix à l'utilisateur, si je ne peux pas recup la réponse
au msg Access, il va falloir que j'utilise un MsgBox, je voulais éviter tant
que faire se peux.



Gère par toi-même...

If Msgbox("Voulez vous faire l'ajout ?", vbYesNo,"Ajout des données")= vbYes Then
With Docmd
.SetWarnings False
.RunSQL "Insert .... "
.SetWarnings True
End With
End If



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
John Fuss
Ok, merci

John

"3stone" a écrit dans le message de
news:e4oF$
Salut,

"John Fuss" a écrit
Je veux laisser le choix à l'utilisateur, si je ne peux pas recup la
réponse


au msg Access, il va falloir que j'utilise un MsgBox, je voulais éviter
tant


que faire se peux.



Gère par toi-même...

If Msgbox("Voulez vous faire l'ajout ?", vbYesNo,"Ajout des données") vbYes Then
With Docmd
.SetWarnings False
.RunSQL "Insert .... "
.SetWarnings True
End With
End If



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------