Combobox

[betabrandao 0]

Criei um banco de dados que possui 2 tabelas:* Tabela USUARIO: Codigo, Nome, Ramal, Departamento e Tipo* Tabela TIPO: Codigo, DescriçãoNo formulário para cadastro dos usuários, eu uso uma ComboBox para listar os tipos de usuários existentes. Uso a seguinte estrutura: (rs = tabela, cnn = banco )Private Sub Form_Activate() Set rs = New ADODB.Recordset sSQL = "SELECT * FROM Banco;" rs.Open sSQL, cnn While Not rs.EOF cboTipo.AddItem rs!DESC_TIPO rs.MoveNext Wend Set rs = Nothing End IfEnd SubGostaria de armazenar na tabela USUARIO o Codigo do Tipo listado, não a Descrição. Como devo fazer?Vlw.

[luiz humberto 0]

Ao adicionar os dados na combo, utilize a propriedade Item data, juntamente com o AddItem.

 

cboTipo.ItemData(cboTipo.NewIndex) = rs!Codigo

Para referenciar o código faça da seguinte forma:

 

cboTipo.ItemData(cboTipo.ListIndex)