Private Sub cpostal_BeforeUpdate(Cancel As Integer)

 Dim xx As Integer

' Conta o nº de registos na tabela "cpostalT" em que
    ' o "cpostal" = ao adicionado

xx = DCount("[cpostal]", "cpostal_t", "[cpostal] = '" & Me.cpostal & "'")

' Se encontrar algum dá uma mensagem de erro e não sai do campo

If xx > 0 Then
    MsgBox (" Código repetido ")

    Cancel = True
      
End If
End Sub