MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com preenchimento de Combo: Ao digitar o CPF ou CNPJ na CxdeTexto preencher a com cboCliente

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 26/06/2013

    [Resolvido]Ajuda com preenchimento de Combo: Ao digitar o CPF ou CNPJ na CxdeTexto preencher a com cboCliente

    Mensagem  cjsilva2013 em Ter 08 Maio 2018, 12:56

    Bom dia a todos,

    Venho mais uma vez pedir ajuda aos companheiros...

    Estou com a seguinte dúvida e pesquisei mais não encontrei uma respota a qual estou precisando...

    Seguinte,

    Num formulário de controle, tenho os campos txtCpfCnpj e uma combo cboCliente...

    O que preciso, é que ao digitar o CPF ou CNPJ já preencha autmomático a cboCliente com o nome do Cliente ou Fornecedor...

    Assim, dará a opção ao usuário escolher pelo CPF ou CNPJ ou se não tiver os dois seleciona o nome na cboCliente...

    Os campos:

    txtCpfCnpj e cboClientes

    Grande abraço a todos...
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1137
    Registrado : 05/02/2010

    Ajuda com preenchimento de Combo: Ao digitar o CPF ou CNPJ na CxdeTexto preencher a com cboCliente

    Mensagem  good guy em Ter 08 Maio 2018, 19:55

    Olá silva,

    Use a função DLookup para localizar o Cliente pelo CPF ou CNPJ. No evento AfterUpdate da caixa de texto:

    Código:

    Private Sub CPFCNPJ_AfterUpdate()

    Dim strNome, strCPFCNPJ As String

    strCPFCNPJ = Me.txtCPFCNPJ  'Caixa de Texto com o CPF ou CNPJ

    strNome = DLookup("Cliente","TblClientes","CPFCNPJ = '" & strCPFCNPJ & "'")

    cboCliente = strNome

    End Sub

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 26/06/2013

    Re: [Resolvido]Ajuda com preenchimento de Combo: Ao digitar o CPF ou CNPJ na CxdeTexto preencher a com cboCliente

    Mensagem  cjsilva2013 em Ter 08 Maio 2018, 21:25

    Boa tarde grande Good Guy, obrigado pela atenção.

    Coloquei no Ao Alterar e funfou...

    Obrigado. Já vou usar noutros campos que vou precisar e facilitar minha vida na hora de preencher o controle financeiro...

    Obrigado.

    O Senhor Jesus te abençoe junto a sua casa, hoje e sempre...

    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1137
    Registrado : 05/02/2010

    Ajuda com preenchimento de Combo: Ao digitar o CPF ou CNPJ na CxdeTexto preencher a com cboCliente

    Mensagem  good guy em Qua 09 Maio 2018, 16:01

    Obrigado amado,

    O fórum todo agradece o seu retorno.

      Data/hora atual: Dom 27 Maio 2018, 09:15