[kapetang]

Καλημέρα

Τζίμη ο ασφαλέστερος τρόπος αποτροπής διπλότυπων ΦΠΑ είναι στη σχεδίαση του πίνακα να ορίσεις την ιδιότητα «Με ευρετήριο» του πεδίου ΦΠΑ σε: Ναι(Δεν επιτρέπονται διπλότυπα).
Αν επιμένεις στο ζητούμενο πρόσθεσε στη φόρμα σου τον κώδικα, αφού αλλάξεις το Table1 με το όνομα του πίνακά σου:

Private Sub ΑΦΜ_BeforeUpdate(Cancel As Integer)
    Dim x As Variant
    x = DLookup("[ΕΠΩΝΥΜΟ] & "" "" & [ΟΝΟΜΑ]", "Table1", "[ΑΦΜ]='" & Me.ΑΦΜ & "'")
    If Not IsNull(x) Then
        MsgBox "Υπάρχει ήδη το ΑΦΜ: " & Me.ΑΦΜ & vbCrLf & _
                "Ανήκει στον: " & x, vbCritical + vbOKOnly, "Προσοχή"
        Cancel = True
    End If
End Sub

Φιλικά/Γιώργος