D' où vient l'erreur ?

Le
Emilie
Bonsoir à toutes et à tous ,

Voilà j'ai un champs " Montant " dans mon form principal et dans lequel on
saisit une somme ; pour être sûre que personne n'oublie de saisir dans ce
champs j'ai une petite procédure qui a l'avantage de laisser la main si
jamais on doit rnregistrer un client qui ne paie pas ( travail à refaire,
erreur diverses etc..)
Voici ma procedure :

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

Le problème est que cela fonctionne si on essaie d'effacer une somme déjà
saisie dans ce champs ; par contre, si je saisie un nouveau client et que
*volontairement* je ne remplie pas mon champs" Montant ", il ne se passe
rien ; je passe à un autre champs sans problème et valide mon enregistrement
sans aucun message .
D'où vient mon erreur ? Qu'est ce que j'ai pu faire pour que cela ne
fonctionne pas comme je voudrais ?

Merci de votre aide et de vos lumières !!

A+

Emilie
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #5007511
Bonsoir Emilie.

Tu ne testes que le cas où le montant est null, donc dans tout autre cas ça
passe tout droit.
si la valeur par défaut de montant est 0 par exemple, tu ne passeras jamais
dans la procédure.
il faut que tu rajoutes soit un complément else au if actuel ou que tu
testes d'autres valeurs pour montant.

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


"Emilie" news:%23LMD$
Bonsoir à toutes et à tous ,

Voilà j'ai un champs " Montant " dans mon form principal et dans lequel on
saisit une somme ; pour être sûre que personne n'oublie de saisir dans ce
champs j'ai une petite procédure qui a l'avantage de laisser la main si
jamais on doit rnregistrer un client qui ne paie pas ( travail à refaire,
erreur diverses etc........)
Voici ma procedure :

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

Le problème est que cela fonctionne si on essaie d'effacer une somme déjà
saisie dans ce champs ; par contre, si je saisie un nouveau client et que
*volontairement* je ne remplie pas mon champs" Montant ", il ne se passe
rien ; je passe à un autre champs sans problème et valide mon
enregistrement

sans aucun message .
D'où vient mon erreur ? Qu'est ce que j'ai pu faire pour que cela ne
fonctionne pas comme je voudrais ?

Merci de votre aide et de vos lumières !!

A+

Emilie







Emilie
Le #5007401
Bonsoir Raymond ,

Raymond [mvp]... Wrote :

Tu ne testes que le cas où le montant est null, donc dans tout autre
cas ça passe tout droit.
si la valeur par défaut de montant est 0 par exemple, tu ne passeras
jamais dans la procédure.
il faut que tu rajoutes soit un complément else au if actuel ou que tu
testes d'autres valeurs pour montant.


Je ne sais pas trop comment tester avecdes valeurs; effectivement la valeur
par defaut est 0 ; ce que je ne m'explique pas c'est que si j'efface une
somme, ça fonctionne ; par contre si le champs est vide, je passe au travers
de ma procédure ! !

Je vais donc essayer ton conseil, à savoir essayer de rajouter un complément
Else.

Merci Raymond

A+

Emilie

Publicité
Poster une réponse
Anonyme