Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Nombre entier

6 réponses
Avatar
Dr Jekyll
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un entier
quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne pourra
être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance

6 réponses

Avatar
Eric
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un entier
quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne pourra
être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Eric
re,

Peut-être serait-il mieux de remplacer Me!qte.Undo par Me.Undo

Eric a écrit :
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un
entier quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne
pourra être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance









--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Dr Jekyll
Salut Eric,

Je vois que tu es aussi matinal que moi.

Je pense m'être peut-être mal exprimé. Je veux vérifier que la quantité
divisée par le colisage soit un nombre entier.

Exemple 12/6 = 2 c'est bon

14/6 donne 2.3333 ne marche pas ou alors je n'ai pas compris la fonction
Mod

Merci
"Eric" a écrit dans le message de news:
eL2c%
re,

Peut-être serait-il mieux de remplacer Me!qte.Undo par Me.Undo

Eric a écrit :
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un entier
quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne pourra
être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance









--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
Fabien
Dr Jekyll a écrit :
Salut Eric,

Je vois que tu es aussi matinal que moi.

Je pense m'être peut-être mal exprimé. Je veux vérifier que la quantité
divisée par le colisage soit un nombre entier.

Exemple 12/6 = 2 c'est bon

14/6 donne 2.3333 ne marche pas ou alors je n'ai pas compris la fonction
Mod

Merci
"Eric" a écrit dans le message de news:
eL2c%
re,

Peut-être serait-il mieux de remplacer Me!qte.Undo par Me.Undo

Eric a écrit :
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un entier
quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne pourra
être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance







--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Salut les LeventTôt ou CouchentTard ;-)
Le résultat de l'opération Me!qte Mod Me!colisage retourne 0 si qte est
divisible par colissage et qu'il n'y a pas de reste.
Opération Modulo retourne le reste de la division.
@+
Avatar
Dr Jekyll
Merci encore, je ne connaissez pas la fonction Mod.

Merci à tous
"Fabien" a écrit dans le message de news:
%
Dr Jekyll a écrit :
Salut Eric,

Je vois que tu es aussi matinal que moi.

Je pense m'être peut-être mal exprimé. Je veux vérifier que la quantité
divisée par le colisage soit un nombre entier.

Exemple 12/6 = 2 c'est bon

14/6 donne 2.3333 ne marche pas ou alors je n'ai pas compris la fonction
Mod

Merci
"Eric" a écrit dans le message de news:
eL2c%
re,

Peut-être serait-il mieux de remplacer Me!qte.Undo par Me.Undo

Eric a écrit :
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un
entier quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne
pourra être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance







--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Salut les LeventTôt ou CouchentTard ;-)
Le résultat de l'opération Me!qte Mod Me!colisage retourne 0 si qte est
divisible par colissage et qu'il n'y a pas de reste.
Opération Modulo retourne le reste de la division.
@+


Avatar
Dr Jekyll
Re merci à vous deux.. Tout est ok

"Dr Jekyll" a écrit dans le message de news:
49d32eba$0$24823$
Merci encore, je ne connaissez pas la fonction Mod.

Merci à tous
"Fabien" a écrit dans le message de news:
%
Dr Jekyll a écrit :
Salut Eric,

Je vois que tu es aussi matinal que moi.

Je pense m'être peut-être mal exprimé. Je veux vérifier que la quantité
divisée par le colisage soit un nombre entier.

Exemple 12/6 = 2 c'est bon

14/6 donne 2.3333 ne marche pas ou alors je n'ai pas compris la
fonction Mod

Merci
"Eric" a écrit dans le message de news:
eL2c%
re,

Peut-être serait-il mieux de remplacer Me!qte.Undo par Me.Undo

Eric a écrit :
Bonjour,

Private Sub qte_BeforeUpdate(Cancel As Integer)
If Me!qte Mod Me!colisage <> 0 Then
MsgBox "La quantité doit être un multiple du colisage"
Cancel = True
Me!qte.Undo
End If
End Sub

Dr Jekyll a écrit :
Bonjour à tous

Deux variables : Col (colisage) et qte (quantité)

Je voudrais avant l'update quand je saisis que la qte est bien un
entier quand elle est divisée par le colisage.

Exemple: Col =6

Que Qte soit divisible par 6. (dans cette exemple, la quantité ne
pourra être que 6 ou 12 ou 18 ou 24 etc)

Merci par avance







--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Salut les LeventTôt ou CouchentTard ;-)
Le résultat de l'opération Me!qte Mod Me!colisage retourne 0 si qte est
divisible par colissage et qu'il n'y a pas de reste.
Opération Modulo retourne le reste de la division.
@+