[Resolvido]Filtro em Combobox por Código ou Descrição

Boa tarde galera!

Dei uma boa olhada nos tópicos relacionados a combobox mas não encontrei nada referente ao que eu preciso, que é o seguinte!

Preciso puxar os dados de um colaborador para um form a partir de uma combobox - Até aqui tudo bem, funcionando.

Porem ele só aceita filtrar se eu digitar o nome do colaborador.

Se houver uma forma de definir a busca tanto ao digitar o nome ou digitar o código do colaborador.

Evandro, faça um If mudando a Origem da Linha da Combo;

Veja esse tópico:

http://maximoaccess.forumeiros.com/t8920-resolvidointeracao-entre-combobox

Mas eu indico que use junto uma caixa de opções.

Valeu Leandro! Obrigado pela luz!

Meu código ficou + ou - assim:

KeyAscii = Asc(UCase(Chr(KeyAscii)))
If InStr("AÃÁBCÇDEÉÊFGHIÍJKLMNOPQRSTUÚVWXYZ", Chr(KeyAscii)) Then
Me.Colaborador.Dropdown
Me.Colaborador.RowSourceType = "Table/Query"
Me.Colaborador.RowSource = "SELECT tbl_Colaboradores.Nome, tbl_Colaboradores.Cod_Colaborador, tbl_Colaboradores.Funcao, tbl_Colaboradores.Ativado_Col FROM tbl_Colaboradores WHERE (((tbl_Colaboradores.Ativado_Col)=True)) ORDER BY tbl_Colaboradores.Nome;"
Else
Me.Colaborador.Dropdown
Me.Colaborador.RowSourceType = "Table/query"
Me.Colaborador.RowSource = "SELECT tbl_Colaboradores.Cod_Colaborador, tbl_Colaboradores.Nome, tbl_Colaboradores.Funcao, tbl_Colaboradores.Ativado_Col FROM tbl_Colaboradores WHERE (((tbl_Colaboradores.Ativado_Col)=True)) ORDER BY tbl_Colaboradores.Cod_Colaborador;"
End If