[Resolvido]Cliente não Cadastrado

Senhores,

encontrei aqui um código show para saber se o cliente já é cadastrado, mas no meu caso preciso que o código verifique se ele ainda não é cadastrado e se não for, pergunte se o digitador quer cadastrar e se sim abra o formulário de cadastro de clientes.

E como esta esse codigo?

Ficou assim...


Private Sub Telefone_BeforeUpdate(Cancel As Integer)

If DCount("telefone", "tabelaClientes", "telefone =""" & Me!Telefone & """") < 1 Then
If MsgBox("O telefone " & Me!Telefone & " ainda não é cadastrado, deseja faze-lo agora?", vbYesNo) = vbYes Then
Me.Undo
DoCmd.OpenForm "FormulárioClientesresumido"
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
Cancel = True 'mantém o foco no campo.
End If
End If

End Sub

Obrigado.

Fechei