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]Fórmula AutoCompletar que não funciona

    Compartilhe

    ThiagoCuter
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 12/08/2014

    [Resolvido]Fórmula AutoCompletar que não funciona

    Mensagem  ThiagoCuter em Qua 13 Ago 2014, 01:26

    Boa noite a todos,

    Sou novo no grupo e gostaria de me apresentar. Sou o Thiago e trabalho no departamento administrativo de uma gráfica tomando conta das informações gerenciais de produção, financeiro e vendas.

    Estudei um livro de Microsoft Access para montar meu banco de dados e estou tendo problemas para aplicar a formula de AutoCompletar. Inclusive pesquisei neste fórum e, pelo menos num primeiro momento, a digitação do código confere, me deixando a suspeito de que o erro se encontra em outra parte no meu arquivo.

    Em anexo coloquei o modelo do que estou tentando montar.

    1 - É um formulário frmRelatorio cuja caixa de combinação cboCliente busca o nome fantasia do cliente num outro formulário frmCadastro. Ao escolher o nome correto a fórmula vba (descrita abaixo) deveria acrescentar o telefone automaticamente no rótulo seguinte txtTelefone. Todavia isso não acontece. Estou confiante que não é a fórmula porque a apliquei num formulário mais simples quando estava estudando e tudo correu bem, mas como esse é maior posso ter bagunçado alguma coisa que está impossibilitando toda a operação. Alguém poderia me da uma luz.

    Fórmula como a estou utilizando

    Private Sub txtTelefone_Change()

    Me.cboCliente = Me.txtTelefone.Column(3)

    End Sub


    A planilha segue zipada em anexo.

    Desde já agradecendo muitíssimo.

    Thiago

    Obs.: Pelo que li das regras do fórum este é o procedimento correto para fazer o upload de arquivos neste fórum. Se errei em algum momento por favor me corrijam e prometo me esforçar para não errar novamente. Obrigado.
    Anexos
    relatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (165 Kb) Baixado 8 vez(es)


    Última edição por ThiagoCuter em Qua 13 Ago 2014, 18:45, editado 1 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6204
    Registrado : 05/11/2009

    Re: [Resolvido]Fórmula AutoCompletar que não funciona

    Mensagem  Alexandre Neves em Qua 13 Ago 2014, 09:19

    Bom dia, Thiago, e bem-vindo ao fórum
    O código que colocou indica que, após actualizar txttelefone, actualiza cbocliente mas pretende o contrário: que, após actualizar cbocliente, actualize txttelefone

    Assim, retire o código
    Private Sub txtTelefone_Change()
    Me.cboCliente = Me.txtTelefone.Column(3)
    End Sub

    e coloque
    Private Sub cboCliente_AfterUpdate()
    Me.txtTelefone = Me.cboCliente.Column(2)
    End Sub

    Lembre-se que o índice das colunas da caixa de combinação começam em zero.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ThiagoCuter
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 12/08/2014

    Re: [Resolvido]Fórmula AutoCompletar que não funciona

    Mensagem  ThiagoCuter em Qua 13 Ago 2014, 18:42

    Alexandre,

    Muito obrigado. Era isso mesmo. Agora está funcionando perfeitamente.

    Abraços.

      Data/hora atual: Seg 26 Jun 2017, 09:36