Discussion :

[Looping_V60]

slt,
Vérification de la validité d'un n° de compte avant encodage :
Isoler les 10 premiers chiffres du n° de compte soit X
calculer result = X Mod 97
result doit être égal aux 2 derniers chiffres sinon le n° de compte est erroné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function test()
Dim no As String
Dim x As Double
Dim y, z As Byte
    no = Me.Texte0
    x = Left(no, 10)
    z = Right(no, 2)
    y = x Mod 97
If y = z Then
    MsgBox "n° de compte correct"
Else
    MsgBox "n° de compte erroné"
End If
End Function

Avec un n° de compte tel que : 001182386853 ca marche
Avec un n° de compte tel que : 360056054181 ca plante lors du calcul du Modulo alors que le résultat "rentre" dans un byte ?!?!?

Pourquoi ?

[marot_r]

change

Code :

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

1
2
 
Dim y, z As Byte

pour

Code :

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

1
2
 
Dim y  As Byte, z As Byte

Là tu as déclaré y comme un variant et Access fait ce qu'il veut avec les variants.

A+

[Looping_V60]

slt,
Exact dans ce cas Y est dimentionné comme un variant , c'était volontaire de ma part pour essayer d'éviter l'erreur (par définition un variant accepte n'importe quelle valeur même null).
J'avais au départ dimentionné x et y séparément en byte comme tu le préconise et ça ne change rien.

[marot_r]

Ok,

essaye y=CByte(tonCalcul)

A+

[philben]

Bonjour,

bizarre car si on décompose le calcul ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Public Function test()
Dim no As String
Dim x As Double, w As Double
Dim y As Byte, z As Byte
    no = Me.Texte0
    x = Left(no, 10)
    z = Right(no, 2)
    w = x / 97
    y = CByte((w - Int(w)) * 97)
If y = z Then
    MsgBox "n° de compte correct"
Else
    MsgBox "n° de compte erroné"
End If
End Function

[Looping_V60]

Oui comme tu dis ... bizarre !!

Merci pour la version décomposée , je vais m'en servir en attendant de comprendre.