NOMES IGUAIS... CODIGOS DIFERENTES
Olá, estou com um probleminha com relação a identificação de dados.
Veja bem, eu tenho um Combo com nomes de corretores, quando clico nele ele me tras o codigo deste corretor... e joga no campo txtCodCorretor
Existem 3 nomes iguais no combo porem com codigos diferentes, quando faço uma pesquisa no txtCodCorretor, ele só me traz apenas um constantemente. Por exemplo:
1 - José da Silva
2 - José da Silva
3 - José da Silva
quando digito 3 ele só me traz o 1... se eu digito 2 ele tambem só me traz o 1.
O que eu posso fazer para contornar isso?
Veja bem, eu tenho um Combo com nomes de corretores, quando clico nele ele me tras o codigo deste corretor... e joga no campo txtCodCorretor
Existem 3 nomes iguais no combo porem com codigos diferentes, quando faço uma pesquisa no txtCodCorretor, ele só me traz apenas um constantemente. Por exemplo:
1 - José da Silva
2 - José da Silva
3 - José da Silva
quando digito 3 ele só me traz o 1... se eu digito 2 ele tambem só me traz o 1.
O que eu posso fazer para contornar isso?
no combo coloque o código como index
Dim descr As String
Combo2.Clear
Dim preco As New clspreco
Dim rs As Recordset
Set rs = preco.listaproduto()
While Not rs.EOF
With rs
Combo2.AddItem rs([Ô]descricao[Ô])
Combo2.ItemData(Combo2.NewIndex) = rs([Ô]idprod[Ô])
End With
rs.MoveNext
Wend
ao clicar nele
select codigo where combo2.itemdata(combo2.listindex)
Dim descr As String
Combo2.Clear
Dim preco As New clspreco
Dim rs As Recordset
Set rs = preco.listaproduto()
While Not rs.EOF
With rs
Combo2.AddItem rs([Ô]descricao[Ô])
Combo2.ItemData(Combo2.NewIndex) = rs([Ô]idprod[Ô])
End With
rs.MoveNext
Wend
ao clicar nele
select codigo where combo2.itemdata(combo2.listindex)
Ao digitar uma palavra-chave no TEXTBOX, a pesquisa é feita no COMBOBOX ou no BANCO DE DADOS?
o campo rs([Ô]idprod[Ô]) deve ser numérico senão retornará erro;
Tópico encerrado , respostas não são mais permitidas