[Tasos]

Καλημέρα Τζίμη!

Είναι πολύ απλό!

Παίρνεις τη συνάρτηση IsValidAMKA και την αποθηκεύεις σε μια λειτουργική μονάδα στο έργο VBA του αρχείου Access ( ή Word, Excel κτλ.) ως έχει.

Η συνάρτηση αυτή επιστρέφει True ή False ανάλογα την εγκυρότητα του αριθμού ΑΜΚΑ που της ορίσουμε όταν την καλούμε.

Χρήση της Συνάρτησης:

Από υπολογισμένο πεδίο ερωτήματος: AMKA_VALIDATION:IsValidAMKA([AMKA_Field])

Από υπολογισμένο πεδίο φόρμας: =IsValidAMKA([AMKA_Field])

Από VBA:

Private Sub TextBox1_AfterUpdate()
    If IsValidAMKA(Nz(TextBox1)) Then
        MsgBox "OK"
    Else
        MsgBox "Λάθος"
    End If
End Sub

Σε μορφοποίηση υπό όρους: Not isValidAMKA([AMKA_Field])

Φιλικά

Τάσος