Caixa de Combinação com filtro

Boas a todos,
pergunta simples para resposta simples(para quem sabe).

Numa caixa de combinação é possivel filtrar a medida que se vai escrevendo?
Ex. quando se começa a ecrever a letra (B) surgir a lista com as palavres inicianas em (B), se escrever (BA) seurgirem as palavras iniciadas em (BA) e por ai fora.

Muito obrigado.

Veja aqui, o código "Auto Completa Combobox"

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Obrigado JPaulo
estou no trabalho e aqui não tenho possibilidade de download no link que tem lá, (os sites de Download estão barrados pelo administrador).

Sera possibel por aqui o zip.

Não faz Download, apenas abre o txt, mas aqui fica o conteudo:




Auto Completa em Combobox Ms Access

AUTO COMPLETA EM COMBOBOX:

1- Crie uma nova Classe de Módulo e renomeie como: clsAutoComplete

2- Nessa Classe de Módulo cole esta rotina:
....................................................................

Private WithEvents pCombo As ComboBox
Private IsDelOrBack As Boolean

Public Sub Bind(Cmb As ComboBox)
Set pCombo = Cmb
End Sub

Private Sub Class_Terminate()
Set pCombo = Nothing
End Sub

Private Sub pCombo_Change()
On Error Resume Next
Dim OldLen As Integer
Dim i As Integer
If Not pCombo.Text = "" And Not IsDelOrBack Then
OldLen = Len(pCombo.Text)
For i = 0 To pCombo.ListCount - 1
If InStr(1, Mid$(UCase(pCombo.List(i)), 1, OldLen), UCase(pCombo.Text)) Then pCombo.Text = pCombo.List(i)
If pCombo.SelText = "" Then
pCombo.SelStart = OldLen
Else
pCombo.SelStart = InStr(pCombo.Text, pCombo.SelText)
End If
pCombo.SelLength = Len(pCombo.Text)
Exit For
End If
Next
End If
End Sub

Private Sub pCombo_KeyDown(KeyCode As Integer, Shift As Integer)
IsDelOrBack = (KeyCode = vbKeyBack Or KeyCode = vbKeyDelete)
End Sub

.................................................................................

3- No Form que for usar o Auto Complete declare a Classe de Módulo:
Dim Complete As New clsAutoComplete

4- E por fim, chame a Rotina no seu ComboBox:
Complete.Bind cboNome

Onde cboNome é o nome do seu ComboBox.
Obs: Use o comando acima para chamar a rotina no LOAD do Form.

JPaulo muito obrigado
Vou testar aqui.

https://dl.dropbox.com/u/90217826/Cidades.mdb


N a pratica veja o exemplo, ao JPaulo grato pelos códigos

Cumprimentos.

Obrigado pela ajuda,
funciona bem,
no entanto a minha ideia era que ao começar a escrever a lista surgir com os nomes começados pelas letras digitados.

Eu sinceramente faz tempo que procuro essa solução e já havia desistido... achei esse post e a esperança ressurgiu, mas realmente dentro desse controle no access não tive sucesso. Já no excel tem alguns tutoriais e funcionam e filtram ao digitar qualquer parte da string e não só as iniciais dela. Esse exemplo pra mim ainda esta dando erro, e deve ser alguma declaração que não vem default no access 2007.