[Resolvido]erro ao colocar numero de identificação fiscal(NIF)

vivas
no trabalho que estou a realizar/adaptar de um exemplo que aqui foi colocado na secção de exemplos estou com o seguinte problema :
no formcliente ao colocar o NIF usando o código abaixo dá-me erro.

run-time error "13"
type mismatch

e não estou a conseguir ultrapassar este conflito
agradecia apoio

segue codigo que estou a usar

""
Private Sub txtnif_BeforeUpdate(Cancel As Integer)
If Me.txtNIF.Value <> NIF(Me.txtNIF) Then
MsgBox "NIF Inválido, introduza novamente...", vbInformation
DoCmd.RunCommand acCmdSaveRecord
     
   Else
MsgBox "NIF válido."
Me.txtNIF.InputMask = "000\000\000"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

""


obrigado
mirsofy

vivas
ainda não consegui resolver meu problema
segue parte da bd

fico grato pelas dicas/ajuda

mirsofy

https://dl.dropboxusercontent.com/u/90217826/erro%20NIF.mdb

vivas
amigo Rachid

o que postaste dá erro 404
poderás corrigir
obrigado

mirsofy

Veja

https://dl.dropboxusercontent.com/u/90217826/erro%20NIF.zip

Bom dia mirsofy
Tens aqui um belo ex. do Jão Paulo
Pina

vivas amigo Pina
obrigado pela ajuda
pelo rapido que vi , já resolve o meu problema

obrigado

mirsofy