|
|
Postada em 18/12/2005 15:16 hs
Galera, será que pode me ajudar com isso:
Tenho um programa de perfumaria e necessito fazer uma busca de mercadorias, más eu queria algo parecido com isso
No text1 digito a letra "a" ou pequeno texto "tinta para cabelo" e o sistema seleciona tudo que começa com a letra a e coloca em uma tabela temp e quando as descrições começarem com b em diante, ele pare de selecionar.
O que eu consegui fazer usando o seek
Itens.Index = "IDescricao"
Itens.Seek ">=", Text2.Text
While Not Itens.EOF
Data2.Recordset.AddNew 'Grava na tela temp
Data2.Recordset.Fields("Codigo") = Itens!Codigo
Data2.Recordset.Fields("CodBarras") = Itens!CodBarras
Data2.Recordset.Fields("Descricao") = Itens!Descricao
Data2.Recordset.Fields("Estoque") = Itens!Estoque
Data2.Recordset.Update
Itens.MoveNext
Wend
Data2.Refresh 'atualiza a tabela temp
DBGrid1.Refresh ' atualiza grid para exibir os itens selecionados
Com isso ele seleciona tudo a partir do que eu digitar até o final do arquivo.
Será que alguém pode me ajudar????
Valew!!!! |
|
|
|
|
|
|
|
Postada em 19/12/2005 06:17 hs
Public vgSituacao As Integer, vgCaracteristica As Integer, _
vgTipo As Integer, vgFormID As Long, focus As Boolean
Private Sub DBGrid1_GotFocus()
focus = True
End Sub
Private Sub Txtpesquisa_Change()
Dim ExpSql As String
If Txtpesquisa.Text <> "" Then
If IsNumeric(Left(Txtpesquisa.Text, 1)) Then
ExpSql = "[Codigo do produto] = " & Txtpesquisa.Text
On Error Resume Next
Data1.Recordset.FindMin UCase((ExpSql))
If Data1.Recordset.NoMatch Then
ExpSql = "[Codigo do produto] like '" & Txtpesquisa.Text & "*'"
Data1.Recordset.FindMin UCase((ExpSql))
If Data1.Recordset.NoMatch Then
Beep
Txtpesquisa.Text = UCase(Left$(Txtpesquisa.Text, Len(Txtpesquisa.Text) - 1))
SendKeys "{End}"
End If
End If
Else
ExpSql = "[Descricao do produto] like '" & Txtpesquisa.Text & "*'"
On Error Resume Next
Data1.Recordset.FindMin (ExpSql)
If Data1.Recordset.NoMatch Then
Beep
Txtpesquisa.Text = UCase(Left$(Txtpesquisa.Text, Len(Txtpesquisa.Text) - 1))
SendKeys "{End}"
End If
End If
End If
End Sub
|
|
|
|
|
|
Postada em 20/12/2005 11:40 hs
|
|
|
|
|
