AJUDA NO SEGUNDO CAMPO NO COMBOX

JAIRMAR 16/08/2009 20:21:25
#319993
Boa noite amigos
Como se faz a rotina para buscar um segundo campo na tabela com o combox.
Exemplos tenho o campo descricao e preco unitario, como faço para posicionar o ponteiro no campo preçounitario.
A rotina está abaixo

Private Sub Cmbprod_GotFocus()

[ô]
Call Conectar
[ô]
rs.Open [Ô]select descricao, precounit from cadprodacab order by descricao [Ô], Conexao, adOpenForwardOnly
rs.MoveFirst
Do While Not rs.EOF
cmbprod.AddItem rs!descricao


rs.MoveNext
Loop
rs.Close
Conexao.Close

End Sub

Obrigado.

TECLA 16/08/2009 20:23:48
#319995
Não entendi.
MARCELO.TREZE 16/08/2009 23:01:29
#320001
Se é que entendi, vocÊ deseja que ao selecionar preço unitario na combo preencha uma outra combo somente com preço unitário, ou se selecionar descrição preencher a outra combo com a descrição

se for isto pode ser feito assim

Private Sub Cmbprod_GotFocus()

[ô]
Call Conectar
[ô]
Select Case Cmbprod.ListIndex

Case 0
  rs.Open [Ô]select descricao, precounit from cadprodacab order by descricao [Ô], Conexao, adOpenForwardOnly
  rs.MoveFirst
  Do While Not rs.EOF
    cmbprod.AddItem rs!descricao
    rs.MoveNext
  Loop

Case 1
  rs.Open [Ô]select descricao, precounit from cadprodacab order by descricao [Ô], Conexao, adOpenForwardOnly
  rs.MoveFirst
  Do While Not rs.EOF
    cmbprod.AddItem rs!precounit
    rs.MoveNext
  Loop
End Select

  rs.Close
  Conexao.Close

End Sub



lógico exite mil maneiras diferentes, esta foi apenas pra você entender a coisa
Tópico encerrado , respostas não são mais permitidas
Voltar