pessoal o negocio é o seguinte tenho 2 txt onde uso pra mostrar nomes de fornecedores e 1 listbox , no txtForn1 conforme eu digito vai filtrando nomes de Forncedores no listbox, tudo certo, eu coloco um codigo dentro do change dessa txt pra que isso aconteça, só que no TxtForn2 tentei fazer um array deles , mas nao deu certo , porq q conform vou digitando no txtForn2 o resultado do filtro no listbox vai para o txtForn1, meu codigo esta assim
Private Sub txtforn1_Change()
Dim rs As Recordset
Dim cnBd As String
Dim i As Integer
If ListClick Then
ListClick = False
Exit Sub
End If
i = txtforn1.SelStart
cnBd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BdCadastro.mdb;Persist Security Info=False"
Set rs = New Recordset
rs.Open "SELECT Fornecedores FROM Fornecedor WHERE Fornecedores LIKE '" & txtforn1.Text & "%' ORDER BY Fornecedores asc", cnBd
If txtforn1.Text <> "" And Not DelBack Then txtforn1.Text = rs![Fornecedores]
List1.Visible = True
List1.Clear
While Not rs.EOF
List1.AddItem rs![Fornecedores]
rs.MoveNext
Wend
rs.Close
txtforn1.SelStart = i
txtforn1.SelLength = Len(txtforn1.Text)
Exit Sub
'erro:
Select Case err.Number
Case 3021
List1.Clear
List1.Visible = False
Case Else
MsgBox err.Number & " - " & err.Description, vbExclamation
Resume Next
End Select
End Sub
e no Click do listbox
ListClick = True
txtforn1.Text = List1.List(List1.ListIndex)
txtforn1.SetFocus
