Discussion :

[moilou2]

Bonjour, j'ai deux champs, un pour un stock , l'autre pour un prix et ces deux champs doivent être de type numérique (pas de texte, mais des chiffres) et je ne veux pas qu'ils soient négatifs.

Pour cela j'ai utilisé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not IsNumeric(Me.txtPrixUnitaireStock) Then
MsgBox ("Le prix Unitaire Stock doit étre un nombre positif")
   Exit Sub
End If

Donc sa sa me résout le problème que la valeur doit être un nombre?

Mais comment faire pour tester si c'est un nombre positif?

Merci

[Domi2]

Bonjour,

Un test si plus petit que 0 ne résoud pas ton problème ?

Domi2

[Jean-Philippe André]

salut,
la fonction Abs() peut te venir en aide

[Pierre Fauconnier]

Bonjour

Il faut faire attention aux termes que tu emploies.

Un champ dépend d'une table. Si tu parles d'une zone de saisie d'un formulaire, il faut aller parler d'un contrôle.

Vu que tu dois typer les champs d'une table, si ton champ PU est numérique, tu ne sauras saisir dedans que des valeurs numériques... et tu peux alors jouer avec les propriétés Valide si et Message d'erreur pour tester la tentative d'une saisie d'un nombre négatif.

Si tu parles d'un contrôle de formulaire et que ce contrôle est dépendant d'un champ d'une source de données, il suffit de jouer avec les propriétés du champ comme décrit ci-dessus.

Si c'est d'un contrôle indépendant dont tu parles, tu peux alors appliquer la solution de Domi2

[moilou2]

Est ce que dans le même bloc if, je peut poser deux condition et deux message d'erreur différent?

C'est à dire

Si c'est pas numérique alors "La valeur de ce champ doit être un nombre
Si c'est un numérique négatif "La valeur de ce champ doit être un nombre positif.

Et autre petite question, est ce que que dans un message d'erreur, on peut mettre un mot en gras ou en couleur?

Merci

[moilou2]

Bon j'ai fait la part des choses, j'ai mis sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not IsNumeric(Me.txtPrixUnitaireStock) Or Me.txtPrixUnitaireStock.Value < 0 Then
MsgBox ("Le prix Unitaire Stock doit étre un nombre positif")
   Exit Sub
End If

Mais est ce que c'est possible alors ou pas dans une msgBox de mettre un mot en gras? ou en couleurs?

[Pierre Fauconnier]

Pas dans un MsgBox. Tu dois créer un formulaire dans lequel tu réalises la mise en page que tu veux et l'ouvrir en modal. A mon avis, un peu lourd pour un message de ce type...

[moilou2]

Oui c'est sur!

Mais sa auré pu être possible!

Merci à toi.