|
|
Postada em 03/05/2007 11:49 hs
Ola Amigos: Estou com a seguinte duvida: Tenho uma combo3 que carrega todos os clientes que eu tenho cadastrado.
E cada cliente pode ter mais de um produto.
Eu gostaria que quando eu clicar no cliente ele lista numa outra combo (combo37) os codigos dos produtos que esse cliente tem.
Fiz assim:
Dim rs As Recordset
Set rs = bancodedados.OpenRecordset("SELECT codproduto FROM produtos WHERE cliente= '" & Combo3.Text & "'", dbOpenDynaset)
If rs.EOF Then
Combo37.Text = ""
Else
Combo37.Text = rs.codproduto
End If
Set rs = Nothing
Combo37.SetFocus
mas desse jeito ele lista somente 1 codigo de produto.
os outros não aparecem.
|
|
|
|
|
|
|
|
Postada em 03/05/2007 12:01 hs
depois do else, crie um loop rs.movef i r s t while not rs.eof combo37.additem rs.codproduto rs.moven e x t wend
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 03/05/2007 12:06 hs
legal amigo alvaro deu certo. muito obrigado. a unica coisa que acontece é que ele esta dobrando o valor. Ex: ele lista assim: 0001 0002 se for clicar novamente ele fica assim: 0001 0002 0001 0002 o que pode ser? |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/05/2007 16:35 hs
Basta um Clear na rotina enviada pelo Leandro: combo37.Clear ' aqui rs.movef i r s t while not rs.eof combo37.additem rs.codproduto rs.moven e x t wend vlu// |
|
|
|
|
|
Postada em 03/05/2007 16:41 hs
isso mesmo amigo eu tinha colocado isto. desculpa de não ter avisado muito obrigado alvaro e LC ramos |
|
|
|
