Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Combobox candeadas não recebe os valores todos

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Combobox candeadas não recebe os valores todos

Mensagem por pedro_mexico »

Boa noite forum,

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
depois tenho este codigo dentro da combobox1

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
nao percebo se existe algum erro,
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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Combobox candeadas não recebe os valores todos

Mensagem por pedro_mexico »

analisando agora com a tabela em papel, a combobox2 esta a receber linha sim linha nao da tabela


Responder