|
|
Postada em 27/01/2011 09:41 hs
com a dica de treze seria assim:
Material.Recordset.MoveFlrst
Do While Not Material.Recordset.EOF
cboTipoMaterial.AddItem Material.Recordset.Fields("Nome_Material")
cboTipoMaterial.ItemData(cboTipoMaterial.NewIndex) = Material.Recordset.Fields ("Id_Material")
Material.Recordset.MoveNext
Loop
|
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 27/01/2011 11:56 hs
Valeu galera deu certo,
chamei na fórmula para cálculo
cboTipoMaterial.ItemData(cboTipoMaterial.ListIndex)
Obrigado pela ajuda. 
|
|
|
|
|
|
Postada em 27/01/2011 14:58 hs
Aproveitando, como esse programa eu posso incluir um novo tipo de material, ao fechar a janela de cadastro de material, ela não atualiza, eu preciso fechar e abrir o programa novamente, como faço para atualizar a combo box?
Obrigado
|
|
|
|
|
|
Postada em 28/01/2011 09:49 hs
BEM, PODE USAR UMA FUNCAO QUE PRENCHA O COMBO E DEPOIS É SO CHAMAR.
SUB PREENCHE_COMBO
Material.Recordset.MoveFlrst
Do While Not Material.Recordset.EOF
cboTipoMaterial.AddItem Material.Recordset.Fields("Nome_Material")
cboTipoMaterial.ItemData(cboTipoMaterial.NewIndex) = Material.Recordset.Fields ("Id_Material")
Material.Recordset.MoveNext
Loop
END SUB
|
|
|
|
|
|
Postada em 28/01/2011 10:18 hs
Olá Juan Carlos, amigo, eu fiz esse esquema no comando sair, pois eu cadastro o material e volto para tela principal para fazer o cálculo, mas ele adiciona novamente os materiais, ou seja, repete, eu preciso que somente atualie a combo box.
Obrigado
|
|
|
|
|
|
Postada em 30/01/2011 17:00 hs
Ok, para isso vc tem que limpar o combobox, assim: combocadastro.clear e depois carregar o combobox blz |
|
TÓPICO EDITADO
|
|
|
|
