Muplicos Combobox Excel com dados de tabelas Access

15/06/2017

0

VB

Opa Caros, como estão?
- Eu estou com dúvidas para montar um formulário excel que deverá buscar cada Combobox uma informação diferente em uma determinada tabela no access

para buscar informações de um combobox estou conseguindo com o código abaixo, porém terei mais de 6 combobox buscando informações de outras tabelas no access, e quando replico o código abaixo para os outros combos só o primeiro funciona, poderiam por favor me ajudar?

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\\Users\\Elizeu\\Documents\\1 - PROJETOS\\KANBAN\\KANBAN.mdb"

rst.Open "SELECT DISTINCT [NOME_PROJETO] FROM CAD_PROJETO ORDER BY [NOME_PROJETO]", _
cnn, adOpenStatic
rst.MoveFirst
With Me.cboNivel
.Clear
Do
.AddItem rst![NOME_PROJETO]

rst.MoveNext
Loop Until rst.EOF
End With


UserForm_Initialize_Exit:
On Error Resume Next
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
UserForm_Initialize_Err:
Ebnzeus

Ebnzeus

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar