[Resolvido] Macro em uma ComboBox para filtar informações que devem aparecer no mesmo form

Olá,

Tenho um form de Funcionários com uma ComboBox que tem o nome de todos os Funcionários. Eu gostaria que quando eu escolhesse um funcionário na ComboBox e clicasse no nome dele aparecesse no mesmo form as informações deste funcionário, como o nome, telefone, e-mail... etc.

Eu tentei fazer isso através de macro, mas não deu certo, eu clico no nome do funcionário que eu quero na ComboBox, mas não filtra as informações do funcionário que eu cliquei, não aparece nada, todos os campos ficam em branco.

Alguém pode me ajudar?

Olá..bom dia Camila !

No evento após atualizar de tua combox, utilize esse código:

DoCmd.ApplyFilter , "chaveprimariatabela = " & Me!nomedasuacombo.Column(0)
Me!nomedasuacombo= Null

Fica desse modo:

Private Sub cbocliente_AfterUpdate()
DoCmd.ApplyFilter , "idcliente = " & Me!cbocliente.Column(0)
Me!cbocliente = Null
End Sub

Ola Camila;

No evento VBA após atualizar da sua combobox;


Me.Filter = "SeuCampoNoForm =" & Me.SuaCombobox.Column(0)
Me.FilterOn = True
Me.Requery

Silvio meu amigo, por 3 segundos, sorry...

Bom dia JPaulo....quanto mais ajuda melhor.

Abraços.

Olá,

Muito obrigada pela ajuda!

Eu fiz exatamente como vocës sugeriram, mas acho que não deu certo.

Apareceu a mesangem dizendo "Sintax Error (missing operator)"

Então cole aqui o que fez, para vermos onde está o erro.

Lembrando que a sua caixa de combinação começa sempre pela coluna zero (0).

Eu fiz assim:

Private Sub cboEmployee_AfterUpdate()
DoCmd.ApplyFilter , "INumber = " & Me.cboEmployee.Column(0)
Me!cboEmployee = Null
End Sub

teste desta forma;

Private Sub cboEmployee_AfterUpdate()
    Me.Filter = "INumber =" & Me.cboEmployee.Column(0)
    Me.FilterOn = True
    Me.Requery
End Sub

Certifique-se que o nome do campo é mesmo "INumber" e que está na primeira coluna do SQL da sua combobox.

Deu certo!

Muito obrigada