[Resolvido]auto completa texto

estou ,usando ou tentando usar o codigo do mestre Jpaulo para auto completar texto mas não esta dando certo veja

Private Sub produto_KeyUp(KeyCode As Integer, Shift As Integer)
'By JPaulo@Outubro 2009
If KeyCode = vbKeyBack Then Exit Sub
PopularMinhaArray myArray, Lista69
AutoCompletaValor myArray, Me.produto
End Sub


Public Sub PopularMinhaArray(ByRef strArray() As String, ByRef lstBox As ListBox)
'By JPaulo@Outubro 2009
LimparMinhaArray strArray
lstBox.Requery
For i = 1 To lstBox.ListCount - 1
strArray(i) = lstBox.ItemData(i)
Next i
MinhaArrayNumeroUsado = lstBox.ListCount - 1
End Sub
Public Sub LimparMinhaArray(ByRef strArray() As String)
'By JPaulo@Outubro 2009
min = LBound(strArray)
max = UBound(strArray)

For x = min To max
strArray(x) = ""
Next
End Sub
Public Sub AutoCompletaValor(ByRef strArray() As String, ByRef MinhaCaixaTexto As TextBox)
'By JPaulo@Outubro 2009
Dim strText As String
Dim strLength As Integer
Dim x As Integer
Dim min As Integer
Dim max As Integer

strText = LCase$(MinhaCaixaTexto.Text)
strLength = Len(strText)

If strLength = 0 Then Exit Sub

min = LBound(strArray)
max = UBound(strArray)

For x = min To max
If x > MinhaArrayNumeroUsado Then
Exit Sub
ElseIf strArray(x) = "" Then

ElseIf strText = LCase$(Left$(strArray(x), strLength)) Then
If Len(strArray(x)) > strLength Then
MinhaCaixaTexto.Text = MinhaCaixaTexto.Text + Mid$(strArray(x), strLength + 1)
MinhaCaixaTexto.SelStart = strLength
MinhaCaixaTexto.SelLength = Len(strArray(x)) - strLength
End If

Exit Sub
End If
Next
End Sub

Agravina

Colocou a função pública num módulo?

sim modMinhaArray

Agravina

Esse código é do Mestre JPaulo, tenho quase a certeza que será o nome de algum campo ou algo assim, mas aconselho-o a enviar um MP ao nosso Mestre. Ele pode-o ajudar aqui com um click dos dedos.

Certo Vieira vou tentar mestre Jpaulo.

Faça isso.

No seu formulario, tem de colocar Visualizar Teclas=SIM

Mesmo assim não funciona veja.
http://www.speedyshare.com/files/28635626/Bd2003.mdb

Será isto que quer ?

http://dl.dropbox.com/u/771097/Bd2003_OLD.rar

Não é bem isso na verdade , no campo txtdescrição quero que medida que eu va digitando apareça os nomes.

Achei o erro minha consulta da lista esta incorreta, já corrigi e funciona bem ,obrigada a todos pela atençao

Pois estava a achar estranho, é que a alteração faz isso mesmo, auto-completa o código do produto e ao mesmo tempo preenche a caixa de texto da descrição.

Resolvido.

só se esqueceram do Resolvido.

Bem observado Vieira, é o tempo que não abunda.