Discussion :

[givre]

Bonjour,
j'essaye depuis plusieurs jours d'adapter une fonction excel dans access, cette fonction sert à contrôler la saisie d'un chiffre dans le champ d'un formulaire.
sur excel la fonction à adapter est la suivante :
SI(97-MOD((100000000+ENT(D2/100))*100;97)=MOD(D2;100);"";"ERR")
D2 correspond au chiffre saisi à contrôler

Quand j'ai voulu adapter cette fonction sur un champ du formulaire, j'ai mis au niveau de la propriété du champs valide si :
97-((100000000+Ent([CHAMPformulaire ]/100))*100) Mod 97=[CHAMPformulaire] Mod (100)

cepandant j'ai comme resultat un #nombre !

j'ai tenté de l'adapter par une macro mais j'ai un message "depassement de capacité" avec une base contenant 3 enregistrements

Merci d'avance pour votre aide car je ne sais plus quoi faire

[Pogny]

selon moi tu devrais aller dans le VBA creer un module et dans le module1
tapper ta fonction, que tu appelerais ensuite dans le vba de ton champs de formulaire.

non?

[givre]

J'ai également fait cette tentative mais access ne reconnais pas la valeur du champ

[Meduse]

Pogny a raison, ce sera beaucoup plus pratique en écrivant les formules en tant que fonctions personnalisées dans un module VBA. Là, tu as deux solutions :

- Soit tu convertis toutes tes fonctions en Access/VBA :

la fonction Si est remplacée par la fonction iif (ou une clause If)
Ent devient Fix
quant à Mod... je crois pas que ça existe dans Access.

- Soit tu crées une référence à la librairie Excel, et tu utilises les fonctions Excel dans ton code VBA. Je ne sais pas si tu peux utiliser les fonctions francophones ou si tu dois traduire en anglais : pour savoir quelles fonctions sont disponibles, regarde dans l'exploratuer d'objets.

[givre]

j'ai fait une autre tentative en ecrivant au niveau de EVENEMENT/SI MODIFICATION le code suivant :

Function Testlc(NOMDUCHAMP)
Testlc = 97 - ((100000000 + Ent(NOMDUCHAMP / 100)) * 100) Mod 97
If Testlc = NOMDUCHAMP Mod (100) Then
Testlc = True
Else
MsgBox "LE NUMERO EST FAUX, REVERIFIEZ VOTRE SAISIE"

End If
End Function

et quand je vérifie ma saisie par DEBOGAGE/COMPILER, j'ai un message d'erreur "sub ou fonction non definie" au niveau de Ent.
Pourtant la fonction Ent existe bien sur access

[random]

la fonction mod sous access ne prend que des entiers
il faut la réécrire avec une fonction perso

function monmodulo(x as double,y as double) as double
monmodulo =x -(int(x/y)*y)
end function