[Resolvido]executar um modulo função em uma caixa de texto

bom dia Pessoal

tenho um modulo "modautocomplete" com a segunte função.
Function AutoComplete(FieldName As String)
....
....

que seria de autocompletar uma caixa de texto ao digitar.
preciso saber como utilizar essa função na minha caixa de texto, de forma que quando começar a digitar, ela auto sugestione com dados similares já cadastrados .

Grato.

Veja aqui;

http://maximoaccess.forumeiros.com/t954-auto-completa-caixa-texto

JPaulo

Já peguei o exemplo anteriormente, segue o modulo que achei na internet, mas não sei como aplica-lo na caixa de texto txtnome;


Option Compare Database

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Function AutoComplete(FieldName As String)
Dim ctl As Control
Dim LenOldText As Long
Static Once As Boolean
Dim rst As Object

' Primero comprobamos que la función se ejecute
' sólo una vez en cada llamada (esta función cambia
' el contenido del cuadro de texto, y por tanto, el
' evento Change la llamará dos veces)
If Once = False Then
' comprobamos que no se hayan pulsado las teclas
' Retroceso o Suprimir
If GetAsyncKeyState(vbKeyBack) = 0 _
And GetAsyncKeyState(vbKeyDelete) = 0 Then
' esta variable se pondrá a True mientras
' se ejecute la función, para que este código
' sólo actualice el cuadro de texto una vez
Once = True
On Error Resume Next
' referenciamos el control activo
Set ctl = Screen.ActiveForm.ActiveControl
' referenciamos el recordset del formulario
Set rst = Screen.ActiveForm.RecordsetClone
If ctl.Text <> "" Then
' buscamos el primer registro cuyos primeros caracteres
' coincidan con los que contiene el cuadro de texto
rst.FindFirst FieldName & " LIKE '" & ctl.Text & "*'"
' si se han encontrado coincidencias
If Not rst.NoMatch Then
LenOldText = Len(ctl.Text)
' actualizamos el valor del cuadro de texto
ctl.Text = rst(FieldName)
' situamos el cursor donde el usuario escribía
ctl.SelStart = LenOldText
' seleccionamos el nuevo texto incorporado
ctl.SelLength = Len(ctl.Text) - LenOldText
End If
End If
Set ctl = Nothing
Set rst = Nothing
On Error GoTo 0
Once = False
End If
End If

End Function

Mas quer o meu exemplo ou o seu achado ?

já peguei o sei exemplo, obrigado, mas a dúvida é quando eu precisar criar um modulo function, como proceder para chama-lo em uma caixa de texto.

O meu exemplo com as funções num modulo;

Show, na mosca, evento KeyUp do text, e chama o modulo. Muito obrigado.