[Resolvido]CPF e CNPJ no mesmo campo

Não é possível colocar no mesmo campo CPF e CNPJ? Usando o mesmo formulário?
Quero usar o CPF ou CNPJ como chave primária. O cliente pode ser pessoa física ou jurídica e nunca pode ter um CPF ou CNPJ repetido. É possível?

Assim ?

http://dl.dropbox.com/u/771097/ValidaCPF_CNPJ_OLD.rar

Sim, quase perfeito.

Só que não valida. Aceita qualquer número.

Mesmo assim obrigado.

Peço desculpa ae, realmente faltou a validação;

Substitua por estes;

Private Sub SeuCampo_CPF_CNPJ_AfterUpdate()
Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "[SeuCampo_CPF_CNPJ] Like '*" & Me.SeuCampo_CPF_CNPJ & "*'"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
Else
MsgBox Me.lblInforma.Caption & vbCrLf & " já cadastrado, verifique...", vbCritical, "Atenção"
Me.Undo
End If

If Me.Status.Value = "JURIDICO" Then
If Me.SeuCampo_CPF_CNPJ <> fCNPJ(Me.SeuCampo_CPF_CNPJ) Then
MsgBox "CNPJ Invalido, introduza novamente...", vbCritical
Me.Undo
Cancel = True
End If
End If
If Me.Status.Value = "FISICO" Then
If Me.SeuCampo_CPF_CNPJ <> fCPF(Me.SeuCampo_CPF_CNPJ) Then
MsgBox "CPF Invalido, introduza novamente...", vbCritical
Me.Undo
Cancel = True
'verifica duplicidade

End If
End If
Set rst = Nothing
End Sub



Private Sub SuaCombox_AfterUpdate()
If Me.SuaCombox.Value = "FISICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "000.000.000\-00"
Me.lblInforma.Caption = "CPF" 'Rotulo do campo que muda de nome
Me.Status.Value = Me.SuaCombox.Value
Me.SeuCampo_CPF_CNPJ.SetFocus
Else
If Me.SuaCombox.Value = "JURIDICO" Then 'Lista de valores na combox com dois valores
Me![SeuCampo_CPF_CNPJ].InputMask = "00\.000\.000\/0000\-00"
Me.lblInforma.Caption = "CNPJ" 'Rotulo do campo que muda de nome
Me.Status.Value = Me.SuaCombox.Value
Me.SeuCampo_CPF_CNPJ.SetFocus
End If
End If
End Sub

Muito obrigado!