OVH Cloud OVH Cloud

pb gestion msgbox()

14 réponses
Avatar
séb
Bonjour,

J'ai fait un formulaire avec des champs calculer a l'interieur. Jusque la
pas de problème... Maintenant, je vourdrais mettre un condition sur ce champ
tel que lorsque celui ci dépasse un valeur, alors un boite d'info apparait.
J'ai essayé :

Dim montant As Double
montant = Me.totalht
If montant > 500 Then
rep = msgbox("attention dépassement des 500?HT", vbOKOnly, "stop", , 1000)

End If

Mais rien se passe......Quelqu'un peu m'aider?

Merci de votre aide

4 réponses

1 2
Avatar
séb
Lol, tu peux me proposer mieux, car alors la je sèche...
@+

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

"séb"
| Marche pas :-(


tu parle de *ton* code là ?

:-D


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw



Avatar
3stone
re,

"séb"
| Lol, tu peux me proposer mieux, car alors la je sèche...


soit tu utilise ce que Jessy t'a proposé...

soit tu mets qque chose comme ceci dans l'avant
mise à jour du formulaire...

Me.TotalHT.Recalc
If me.TotalHT > 500 then
Cancel = True
Msgbox "blabla..."
End If


cela devrait le faire...


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
séb
Bonjour 3stone,

J'ai mis ton code dans l'avant MAJ du formulaire, cependant il ne reconnait
pas .Recalc, c'est un requery qu'il faut mettre à la place ? Si c'est le
cas, cela ne fonctionne pas :-(
J'ai aussi essayer la méthode de jessy, le seul problème c'est que cela
fonctionne que si je change une valeur dans un de ces trois champs. Cela ne
fonctionne dès la 1ere fois...
Avez vous d'autres idées ?

ENcore merci pour ces réponses rapide.

S.
"3stone" a écrit dans le message de news:

re,

"séb"
| Lol, tu peux me proposer mieux, car alors la je sèche...


soit tu utilise ce que Jessy t'a proposé...

soit tu mets qque chose comme ceci dans l'avant
mise à jour du formulaire...

Me.TotalHT.Recalc
If me.TotalHT > 500 then
Cancel = True
Msgbox "blabla..."
End If


cela devrait le faire...


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
3stone
Salut,

"séb"
| J'ai mis ton code dans l'avant MAJ du formulaire, cependant il ne reconnait
| pas .Recalc, c'est un requery qu'il faut mettre à la place ? Si c'est le
| cas, cela ne fonctionne pas :-(
| J'ai aussi essayer la méthode de jessy, le seul problème c'est que cela
| fonctionne que si je change une valeur dans un de ces trois champs. Cela ne
| fonctionne dès la 1ere fois...
| Avez vous d'autres idées ?


Si tu veux rattraper les enregistrements déjà effectués,
il faut mettre la même chose "sur activation" (form_current)



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
1 2