[Resolvido]Mascara de entrada dupla

Boa tarde,

To inspirado essa semana nas perguntas.

Tenho uma combobox onde o usuario escolhe entre CPF e CNPJ. Onde vinculei o cod abaixo adaptado do link
http://maximoaccess.forumeiros.com/t7618-resolvidomascara-de-entrada-para-cpf-e-cnpj-no-mesmo-campo?highlight=mascara

O cod ficou assim.

Private Sub espdoctxt_Change()

Select Case Me.espdoctxt
Case "CNPJ" ' É CNPJ
Me.restituicaoCPFTitular.InputMask = "00\.000\.000\/0000\-00"
Case "CPF" ' É CPF
Me.restituicaoCPFTitular.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.restituicaoCPFTitular.InputMask = ""
End Select
End Sub

Private Sub espdoctxt_AfterUpdate()
Select Case Me.espdoctxt
Case CNPJ ' É CNPJ
Me.restituicaoCPFTitular.InputMask = "00\.000\.000\/0000\-00"
Case CPF ' É CPF
Me.restituicaoCPFTitular.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.restituicaoCPFTitular.InputMask = ""
End Select
End Sub

Nos eventos ao alterar e após atualizar do campo.


Mas trás o erro

Método ou membro de dados não encontrado.

Por favor alguem tem como dar um help ai...

Bom dia Daniel !

Coloque o código, após o evento Afterupdate de sua espdoctxt ( após atualizar )

Teste e nos informe !

Silvio,

Bom Dia,

Ele ja estava retirei do o código do current do form e continua o erro.

As referencias que estão habilitadas são:

- Visual Basic for applications
- Microsoft Access 12.0 Object Library
- Ole Automation
- Microsoft Office 12.0 Access database engine Object
- Microsoft Scripting Runtime
- Microsoft Office 12.0 Object Library.

Bom Dia Silvio,

Consegui cara...
Erro infantil, com esse cod estava tentando mudar a propriedade do Campo da tabela e não a caixa de texto do formulário.

Dessa forma ficou assim.

Private Sub Form_Current()

If (Me.STATUS = "PAGO") Then
Me.AllowAdditions = False
Me.AllowEdits = False

Else
Me.AllowAdditions = True
Me.AllowEdits = True

End If

Select Case Len(Me.restituicaoCPFTitular)
Case 14 ' É CNPJ
Me.restituicaoCPFTitularTXT.InputMask = "00\.000\.000\/0000\-00"
Case 11 ' É CPF
Me.restituicaoCPFTitularTXT.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.restituicaoCPFTitularTXT.InputMask = "000\.000\.000\-00"
End Select

End Sub


Private Sub espdoctxt_AfterUpdate()
Select Case Me.espdoctxt
Case "CNPJ" ' É CNPJ
Me.restituicaoCPFTitularTXT.InputMask = "00\.000\.000\/0000\-00"
Case "CPF" ' É CPF
Me.restituicaoCPFTitularTXT.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.restituicaoCPFTitularTXT.InputMask = ""
End Select
End Sub

Muito Obrigado.

Maravilha......

Bons estudos e um bom dia a ti !