[Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

Bom dia a todos
Não estou conseguindo adaptar o exemplo do João Paulo(JP) AutoCompletaCaixaTexto
Esta dando o seguinte erro: Erro de Compilação variável não definida (como na imagemm)

Algum amigo do Fórum poderia me dar uma luz.

Sou grato pela atenção

A baixo da linha 'By JPaulo...

Coloque:

Dim I As Integer

Deverá resolver!


Obs: Topico na Sala Errada amigo! O correto seria em Módulos e VBA

Agora esta dando erro na continuação conforme imagem

Sem Imagem...

Posta seu BD amigo!

Public Sub LimparMinhaArray(ByRef strArray() As String)
'By JPaulo@Outubro 2009
  min = LBound(strArray)    Aqui esta dando o erro
 max = UBound(strArray)
   For X = min To max
       strArray(X) = ""
   Next
End Sub


O Banco é grande demais

Entao mova para um BD novo apenas a parte envolvida amigo!

Ok segue em anexo o form com erro

Sou muito grato ela sua atenção.

Amigo, na sua List6 Mude a coluna Acoplada para 2;

E mude sua funçao para:

Código:

Public Sub LimparMinhaArray(ByRef strArray() As String)
'By JPaulo@Outubro 2009
Dim Min, Max, X As Integer
    Min = LBound(strArray)
    Max = UBound(strArray)
   
    For X = Min To Max
        strArray(X) = ""
    Next
End Sub

Ok, esta acontecendo um erro digito seleciona o texto até ai tudo certinho mas quando eu pressiono a tecla Enter apaga o teste selecionado, testa por ai para vc ver o erro.

Fábio acertei por aqui, ao selecionar o texto pressiono a tecla Enter vai par o próximo campo e fica tudo certinho.

Private Sub Obs_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
NumeroCheque.Enabled = True
Me.NumeroCheque.SetFocus
End If
End Sub


Fábio sou muito grato pela sua atenção e presteza.
Pessoas como você engrandece este Fórum.

Grande abraço DEUS lhe abençoe.

Desculpe-me esqueci de dar por resolvido.