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

10 réponses

1 2
Avatar
XAVIER
Bonjour sèb

Peux-tu essayer la même chose sans le 'rep =' devant msgbox


Dim montant As Double
montant = Me.totalht
If montant > 500 Then
MsgBox "attention dépassement des 500?HT", vbInformation + vbOKOnly, "stop"
', , 1000

End If

Pour le numéro 1000 :

context Facultatif. Expression indiquant le numéro de contexte
attribué par l'auteur de l'aide à la rubrique appropriée. Si l'argument
context est défini, l'argument helpfile doit l'être également.




"séb" a écrit dans le message de
news:
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




Avatar
séb
Salut xavier,
j'ai déjà essayé d'enlever le "rep=" .... mais il ne se passe strictement
rien non plus. Pour le reste merci pour l'info.
Comment savoir qu'il va bien chercher la valeur dans le form ?

Merci

Séb
"XAVIER" a écrit dans le message de news:
#ui#
Bonjour sèb

Peux-tu essayer la même chose sans le 'rep =' devant msgbox


Dim montant As Double
montant = Me.totalht
If montant > 500 Then
MsgBox "attention dépassement des 500?HT", vbInformation + vbOKOnly,
"stop"

', , 1000

End If

Pour le numéro 1000 :

context Facultatif. Expression indiquant le numéro de contexte
attribué par l'auteur de l'aide à la rubrique appropriée. Si l'argument
context est défini, l'argument helpfile doit l'être également.




"séb" a écrit dans le message de
news:
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








Avatar
3stone
Salut,

"séb"
| 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?


La question est plutôt : ou mets tu ce code ?


--
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 essayer de mettre ce code un peu partout... après mise a jour, sur
ouverture... mais rien ne fonction.
je ne comprend pas pourquoi.
Merci de vos réponses

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

Salut,

"séb"
| 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?


La question est plutôt : ou mets tu ce code ?


--
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 essayer de mettre ce code un peu partout... après mise a jour, sur
| ouverture... mais rien ne fonction.
| je ne comprend pas pourquoi.


Si tu l'as essayé dans les événements du champ calculé, c'est normal...
un champ calculé ne déclanche pas d'événement !

Il faut donc le mettre ailleurs, l'avant mise à jour du formulaire,
ou du champ qui déclenche le calcul...


--
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
Excuses moi mais je ne comprend pas très bien. Je le met où ce code ?
Voici le champ où je voudrais faire le test :
[TotalHT] = Somme(([quantité]*[prix]*(1-[remise]/100)))
Il se trouve en pied de formulaire. Ce champ est non visible car ce
formulaire est un sous formulaire.

Peux tu m'aider ?

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

"séb"
| j'ai essayer de mettre ce code un peu partout... après mise a jour, sur
| ouverture... mais rien ne fonction.
| je ne comprend pas pourquoi.


Si tu l'as essayé dans les événements du champ calculé, c'est normal...
un champ calculé ne déclanche pas d'événement !

Il faut donc le mettre ailleurs, l'avant mise à jour du formulaire,
ou du champ qui déclenche le calcul...


--
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"
| Excuses moi mais je ne comprend pas très bien. Je le met où ce code ?
| Voici le champ où je voudrais faire le test :
| [TotalHT] = Somme(([quantité]*[prix]*(1-[remise]/100)))
| Il se trouve en pied de formulaire. Ce champ est non visible car ce
| formulaire est un sous formulaire.


fait ton test dans l'avant mise à jour du formulaire...


--
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
Marche pas :-(
"3stone" a écrit dans le message de news:

re,

"séb"
| Excuses moi mais je ne comprend pas très bien. Je le met où ce code ?
| Voici le champ où je voudrais faire le test :
| [TotalHT] = Somme(([quantité]*[prix]*(1-[remise]/100)))
| Il se trouve en pied de formulaire. Ce champ est non visible car ce
| formulaire est un sous formulaire.


fait ton test dans l'avant mise à jour du formulaire...


--
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
Jessy Sempere [MVP]
Bonjour

Ton contrôle calculé se met forcément à jour après que tu ai saisie
ou modifié une donnée dans un autre contrôle (ou plusieurs)...

Donc il faut que tu mettes ton code sur chaque évènement
après mise à jour de tes champs "quantité", "prix" et "remise".

PS : tu devras peut-être rajouter au début de ton code la ligne
me.TotalHt.requery

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"séb" a écrit dans le message news:

Marche pas :-(
"3stone" a écrit dans le message de news:

re,

"séb"
| Excuses moi mais je ne comprend pas très bien. Je le met où ce code ?
| Voici le champ où je voudrais faire le test :
| [TotalHT] = Somme(([quantité]*[prix]*(1-[remise]/100)))
| Il se trouve en pied de formulaire. Ce champ est non visible car ce
| formulaire est un sous formulaire.


fait ton test dans l'avant mise à jour du formulaire...


--
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"
| 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
1 2