Access - Επαλήθευση επικύρωση ΑΦΜ

[Tasos]

Στο ελληνικό Internet, συναντά κανείς κώδικες VBA που ελέγχουν την εγκυρότητα ενός Α.Φ.Μ
οι οποίοι κάνουν αυτό που υπόσχονται πολύ καλά.

Εμπνευσμένος από παρόμοιο θέμα του Γιάννη (nisgia) και του Θανάση (gr8styl) στην θεματική ενότητα Excel, σκέφτηκα να δημιουργήσω κάτι ανάλογο για την Access δηλ. έναν τύπο που να ελέγχει την εγκυρότητα ενός Α.Φ.Μ μέσα από πεδίο Ερωτήματος ή φόρμας της Access, που να ειναι ανεξάρτητος από τη VBA.

Ο τύπος είναι:

=IIf(Not IsNull([FM]);IIf(Len([FM])=9;IIf((((Mid([FM];8;1)*2)+(Mid([FM];7;1)*4)+(Mid([FM];6;1)*8)
+(Mid([FM];5;1)*16)+(Mid([FM];4;1)*32)+(Mid([FM];3;1)*64)+(Mid([FM];2;1)*128)+(Mid([FM];1;1)*256)) Mod 11) 
Mod 10=Right([FM];1);"ΟΚ!";"Άκυρο!");"Λάθος καταχώρηση!"))

Όπου [FM] = το πεδίο που περιέχει τον Α.Φ.Μ.
Δείτε ένα παράδειγμα στο συνημμένο.
Τάσος Φιλοξενίδης