Aide pour vérif Carte Bancaire...

Question

Je souhaite faire une verif sur des numéro de cartes bancaires et dates de validité dans une appli access. Le probleme c'est que je n ai aucune idée pour proceder en sortie de cellule (sortie de cellule num CB et sortie de cellule date de validite pour controle sur date de validite par raport au num de CB)

toutes vos réponses seront les bienvenues... 

enahpets

Totol · Answer

font=Tahoma
Bonsoir. Saches que les dates de validité ne se calculent pas vraiment (j'ai déjà écris un msg sur le sujet, si tu le trouves tu as gagné un bonbon). Donc pour les vérifier ca va être auch'  :shy) 

Par contre pour ce qui est de faire la vérification et jongler entre VB et ACCESS c'est très faisable (y a pas mal de sources là dessus). Donc voilà mon msg ne t'auras sans doute pas beaucoup aidé mais tu n'es pas tout seul perdu sur la toile. C'est déjà ca.

Totol.  ;)

enahpets · Answer

'J ai trouve l algorithme sur les num de CB. 
'Donc,pour ceux que ca peu interesser le voici
'[NumcarteBanciare] est l inputbox du formulaire access
'si le numéro est bon, il ne se passe rien et 
'l 'utilisateur passe a la cellule suivante. si le numero 
'n est pas bon, il y a un msgbox d erreur.

For i = 1 To 15 Step 2
nomb = Mid([NumCarteBancaire].Text, i, 1) * 2
If nomb > 9 Then nomb = nomb - 9
verif = verif + nomb
Next

For i = 2 To 16 Step 2
nomb = Mid([NumCarteBancaire].Text, i, 1)
verif = verif + nomb
Next
Result = verif Mod 10
If Result <> 0 Then MsgBox ("Numéro de carte non valide")

enahpets · Answer

'J ai trouve l algorithme sur les num de CB. 
'Donc,pour ceux que ca peu interesser le voici
'[NumcarteBanciare] est l inputbox du formulaire access
'si le numéro est bon, il ne se passe rien et 
'l 'utilisateur passe a la cellule suivante. si le numero 
'n est pas bon, il y a un msgbox d erreur.

For i = 1 To 15 Step 2
nomb = Mid([NumCarteBancaire].Text, i, 1) * 2
If nomb > 9 Then nomb = nomb - 9
verif = verif + nomb
Next

For i = 2 To 16 Step 2
nomb = Mid([NumCarteBancaire].Text, i, 1)
verif = verif + nomb
Next
Result = verif Mod 10
If Result <> 0 Then MsgBox ("Numéro de carte non valide")

Maintenant il me manque la verif des dates de validité, et ma requete est toujours d actualité...

ddralou · Answer

je voudrais savoir si ce code est valable pour tout les types de cartes bancaires (i.e.)  jcb,amex,visa, eurocard,switch.

Merci d'avance de votre aide.

Aide pour vérif Carte Bancaire...

4 réponses

Discussions similaires