Tenho um text onde digito a palavra que eu quero,ao clicar no botao localizar preciso que ele localize e mostre no list os registros que encontrou... como posso fazer isso???

 

Private Sub Command4_Click()

If Loc_Venda = "" Then
MsgBox " Não é Permitido Espaços em Branco!!!", vbInformation
End If

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:InstallNuinfNathaliaSupermercadoSuper.mdb")
Set tb = db.OpenRecordset("Select Nm_Prod from Produto where Nm_Prod = '" & Loc_Venda.Text & "*'")
                          
    If tb.EOF Then
MsgBox "Registro não Encontrado"
    End If
     
     
    Do While tb.EOF = False
        List1.AddItem (tb("Nm_Prod"))
       tb.MoveNext
    Loop
   
   
End Sub

 

--------------------------------

 

Private Sub List1_Click()
Set tb = db.OpenRecordset("Select * from Produto where Nm_Prod = '" & List1.List(List1.ListIndex) & "'")
List1.List = tb("Nm_Prod")
End Sub

 

---------------------------------------

 

Eu fiz isso e nao funcionou!!!!

Alguem pode me ajudar???

Obrigada!! 

Valeu pessoal já consegui!!!

O certo seria:

 

Private Sub Command4_Click()

If Loc_Venda = "" Then
MsgBox " Não é Permitido Espaços em Branco!!!", vbInformation
End If

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:InstallNuinfNathaliaSupermercadoSuper.mdb")
Set tb = db.OpenRecordset("Select Nm_Prod from Produto where Nm_Prod like '" & Loc_Venda.Text & "*'")
                          
    If tb.EOF = True Then
MsgBox "Registro não Encontrado"
    End If
     
     
    Do While tb.EOF = False
        List1.AddItem (tb("Nm_Prod"))
       tb.MoveNext
    Loop
   
   
End Sub

Private Sub List1_Click()
Set tb = db.OpenRecordset("Select * from Produto where Nm_Prod = '" & List1.List(List1.ListIndex) & "'")
List1.AddItem = tb("Nm_Prod")
End Sub

Ola Naty

 

Se vc colocar o OpenRecorset conforme abaixo, ele ira buscar a palavra em qualquer parte do campo Nm_Prod. Da forma que vc colocou acho que ele só vai mostrar se o que foi digitado é exatamente igual ao conteúdo do campo Nm_Prod.

 

Tenta assim:

Abraço!

JoFer