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

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.

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.

Alexandre,

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

Abraços.