tenho um formulario que aos poucos estou a adaptar a uma base dados access.
consegui colocar duas comboboxs cabeadas, mas o estranho é que a segunda combobox nao recebe os valores todos da tabela,
segue o codigo para ver se alguem consegue dar uma ajuda com o erro que esta a acontecer.
Código: Selecionar todos
Sub CarregaDados_Combobox1()
Dim sqlPedido As String
sqlPedido = "SELECT Grupo FROM Tabela1 GROUP BY Grupo"
sqlPedido = sqlPedido & " ORDER BY Grupo" 'Ordenar coluna
ConectDB
Rs.Open sqlPedido, Db, 3, 3 'Cx.Conn
Do While Not Rs.EOF
UserForm_Menu.ComboBox1.AddItem Rs!Grupo
Rs.MoveNext
Loop
FechaDB
End Sub
Código: Selecionar todos
Private Sub ComboBox1_Change()
Dim Sql As String
Sql = "SELECT * FROM Tabela"
ConectDB
On Error Resume Next
Rs.Open Sql, Db, 3, 3
Me.Combobox2.Clear
Do While Not Rs.EOF
If Me.ComboBox1.Value = Rs!Grupo Then
Me.Combobox2.AddItem Rs!Descricao
Rs.MoveNext
End If
Rs.MoveNext
Loop
FechaDB
End Sub
mas o que acontece é que em quando seleciono um valor na combobox1, preenche so alguns valores na combobox2, em alguns valores da combobox1, fica a faltar a ultima linha de resultados na combobox2, outros valores da combobox1, até fica a faltar mais valores na combobox2.
Alguem pode dar uma ajuda a tentar perceber o que esta mal no codigo?
Obrigado