Je ne trouve pas ! !

Bonjour à tous,

Voilà il y a quelque temps, j'ai rencontré un problème avec la procédure
suivante :

Private Sub Form_BeforeUpdate(Cancel As Integer)
' Si l'utilisateur a saisi un nom de client, vérifie le montant

Dim StrMessage As String
Dim IntOptions As Integer
Dim BytChoice As Byte

If IsNull(Montant) Then
StrMessage = " Vous devez saisir un montant ; voulez-vous valider
cet enregistrement ?"
IntOptions = vbQuestion + vbOKCancel
BytChoice = MsgBox(StrMessage, IntOptions)

If BytChoice = vbCancel Then
Montant.SetFocus
Cancel = True
End If
End If
End Sub

Raymon m'a gentiement répondu que ça ne pouvait pas fonctionner si la
valeur

par défaut de mon champs "Montant "est 0 ; or cette valeur *doit* avoir
une

valeur par défaut = à 0 ; il m'a donc dit de rajouter un complément else à
mon if actuel, mais très honnêtement he ne vois pas comment faire ni quoi
rajouter ;-(
De plus, je ne connais pas la manip qui consisterait à *tester* une autre
valeur par défaut .
Cette procédure doit rappeler à l'utilisateur qu'il doit absolument saisir
un montant mais doit aussi lui donner l'occasion de valider cette commande
en laissant le champs " Montant " non rempli dans le cas où une commande
n'est pas réglée ( echange de produit, commande à refaire etc.......).

Merci pour votre aide et vos conseils.

A+

Emilie

bonjour
modifie ici
au lieu de If IsNull(Montant) Then

If Me.Montant = 0 Then

"Emilie" <gege@wanadoo.fr> a écrit dans le message de news:
ultcTj8IEHA.2908@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

Voilà il y a quelque temps, j'ai rencontré un problème avec la
procédure suivante :

Private Sub Form_BeforeUpdate(Cancel As Integer)
' Si l'utilisateur a saisi un nom de client, vérifie le montant

Dim StrMessage As String
Dim IntOptions As Integer
Dim BytChoice As Byte

If IsNull(Montant) Then
StrMessage = " Vous devez saisir un montant ; voulez-vous
valider cet enregistrement ?"
IntOptions = vbQuestion + vbOKCancel
BytChoice = MsgBox(StrMessage, IntOptions)

If BytChoice = vbCancel Then
Montant.SetFocus
Cancel = True
End If
End If
End Sub

Raymon m'a gentiement répondu que ça ne pouvait pas fonctionner si
la valeur par défaut de mon champs "Montant "est 0 ; or cette valeur
*doit* avoir une valeur par défaut = à 0 ; il m'a donc dit de
rajouter un complément else à mon if actuel, mais très honnêtement
he ne vois pas comment faire ni quoi rajouter ;-(
De plus, je ne connais pas la manip qui consisterait à *tester* une
autre valeur par défaut .
Cette procédure doit rappeler à l'utilisateur qu'il doit absolument
saisir un montant mais doit aussi lui donner l'occasion de valider
cette commande en laissant le champs " Montant " non rempli dans le
cas où une commande n'est pas réglée ( echange de produit, commande
à refaire etc.......).

Merci pour votre aide et vos conseils.

A+

Emilie

bonjour
modifie ici
au lieu de If IsNull(Montant) Then

If Me.Montant = 0 Then

"Emilie" <gege@wanadoo.fr> a écrit dans le message de news:
ultcTj8IEHA.2908@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

Voilà il y a quelque temps, j'ai rencontré un problème avec la
procédure suivante :

Private Sub Form_BeforeUpdate(Cancel As Integer)
' Si l'utilisateur a saisi un nom de client, vérifie le montant

Dim StrMessage As String
Dim IntOptions As Integer
Dim BytChoice As Byte

If IsNull(Montant) Then
StrMessage = " Vous devez saisir un montant ; voulez-vous
valider cet enregistrement ?"
IntOptions = vbQuestion + vbOKCancel
BytChoice = MsgBox(StrMessage, IntOptions)

If BytChoice = vbCancel Then
Montant.SetFocus
Cancel = True
End If
End If
End Sub

Raymon m'a gentiement répondu que ça ne pouvait pas fonctionner si
la valeur par défaut de mon champs "Montant "est 0 ; or cette valeur
*doit* avoir une valeur par défaut = à 0 ; il m'a donc dit de
rajouter un complément else à mon if actuel, mais très honnêtement
he ne vois pas comment faire ni quoi rajouter ;-(
De plus, je ne connais pas la manip qui consisterait à *tester* une
autre valeur par défaut .
Cette procédure doit rappeler à l'utilisateur qu'il doit absolument
saisir un montant mais doit aussi lui donner l'occasion de valider
cette commande en laissant le champs " Montant " non rempli dans le
cas où une commande n'est pas réglée ( echange de produit, commande
à refaire etc.......).

Merci pour votre aide et vos conseils.

A+

Emilie

Re,

Pierre CFI... <XXX_pierresalaun@aol.com>
Wrote:

bonjour
modifie ici
au lieu de If IsNull(Montant) Then

If Me.Montant = 0 Then

J'ai un souci car j'ai oublié de te dire que mon champs "Montant " est
dans

mon sous-formulaire et non dans mon formulaire principal ; donc quand je
fais : Me., le champs "Montant " n'apparait pas dans la liste et je ne
sais

pas faire quand un champs est dans un sous-formulaire ;-(

Bonsoir Emilie.

Pierre est parti en vacances, comme d'habitude.

pour appeler un champ dans un sous-formulaire:

Forms!Formulaireprincipal!sous-formulaire.form!Monchamp
ou
Forms!Formulaireprincipal!sous-formulaire!Monchamp

Tu trouveras une explication sur la page :
http://access.seneque.free.fr/sous_formulaires.htm avec des exemples à
télécharger.

Bon week-end
Merci beaucoup ; bon week end aussi à toi