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é.
Avec un n° de compte tel que : 001182386853 ca marche
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 : 360056054181 ca plante lors du calcul du Modulo alors que le résultat "rentre" dans un byte ?!?!?
Pourquoi ?
Partager