Muplicos Combobox Excel com dados de tabelas Access
15/06/2017
0
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:
- 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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)