PESQUISAR
Pessoal,
Agradeço aqueles que tentaram ajudar no topico que postei anteriormente, localizei algo parecido na internet e vou tentar ajustar ao meu sistema qualquer duvida posto aqui.
obrigado.
Agradeço aqueles que tentaram ajudar no topico que postei anteriormente, localizei algo parecido na internet e vou tentar ajustar ao meu sistema qualquer duvida posto aqui.
obrigado.
Citação::
Pessoal,
Agradeço aqueles que tentaram ajudar no topico que postei anteriormente, localizei algo parecido na internet e vou tentar ajustar ao meu sistema qualquer duvida posto aqui.
obrigado.
chama o formulario de pesquisa... no caso e um botao
Private Sub CmdBusca_Click()
frmBuscaPro.Show vbModal
End Sub
ai abro o formulario de busca onde tenho um txtbox e um listview
Function loadLvw()
lv1.ListItems.Clear
With Prods
Do While Not .EOF
Set lst = lv1.ListItems.Add(, , .Fields(0))
lst.SubItems(1) = .Fields(1)
lst.SubItems(2) = Format(.Fields(2), [Ô]###,##0.00[Ô])
lst.SubItems(3) = .Fields(3)
.MoveNext
Loop
End With
Set Prods = Nothing
End Function
Private Sub txtSearch_Change()
If Prods.State = 1 Then Set Prods = Nothing
calther = [Ô]SELECT Idproduto, Descricao, PrecoVenda, estoque FROM produtos where [Descricao] like [ô][Ô] & Trim(txtSearch) & [Ô]%[ô][Ô]
Prods.Open calther, Con, adOpenKeyset, adLockOptimistic
lv1.ListItems.Clear
If txtSearch.Text = [Ô][Ô] Then Exit Sub
loadLvw
End Sub
Tópico encerrado , respostas não são mais permitidas