Página 1 de 1
Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 03 Out 2017 às 20:03
por JCabral
Boa noite
Mais uma vez pedindo ajuda.
Tenho uma pequena Base de Dados e gostaria de Adicionar itens quer à ListBox quer à ComboBox conforme selecionado nas CheckBox ( Tem que ser com Checkbox e não com OptionButton), ou só os itens que têm o Estado= Verdadeiro; ou o Estado=Falso; ou Tudo
Obrigado
Re: Adicionar Itens numa ListBox e ComcoBox com Critério
Enviado: 03 Out 2017 às 22:25
por babdallas
Qual informação você quer colocar na combobox?
Adicionar Itens numa ListBox e ComcoBox com Critério
Enviado: 04 Out 2017 às 06:36
por JCabral
A informação que consta da BD, com exceção do estado
Re: Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 04 Out 2017 às 09:02
por babdallas
Você quer a Combobox tenha as mesmas informações da Listbox?
Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 04 Out 2017 às 09:45
por JCabral
Correto, juntei duas duvidas num post só.
Ou seja quero que a ListBox e a ComboBox sejam preenchidas consoante a opção de escolha das checkbox.
Se a Checkbox=Verdadeiro a ListBox e a Combobox mostram todos os dados da BD com Estado=Verdadeiro;
Se a Checkbox=Falso a ListBox e a Combobox mostram todos os dados da BD com Estado=Falso;
Se a Checkbox=Tudo a ListBox e a Combobox mostram todos os dados da BD com Estado=Verdadeiro e Falso;
Espero ter ficado mais claro agora qual é a minha duvida.
Obrigado
Re: Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 04 Out 2017 às 11:27
por babdallas
Veja se é oq quer.
Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 05 Out 2017 às 11:22
por JCabral
Boa tarde babdallas
Quase, quase, perfeito.
Se em vez de :
Private Sub UserForm_Initialize()
With UserForm1
.CheckBox2.Value = True
.CheckBox1.Value = False
End With
End Sub
estiver
Private Sub UserForm_Initialize()
With UserForm1
.CheckBox1.Value = True
.CheckBox2.Value = False
End With
End Sub
que é a opção principal, dá-me um erro.
É possível resolver?
De resto está espetacular.
Re: Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 05 Out 2017 às 14:22
por babdallas
Cometi um erro de não inserir os dados via matriz no caso do checkbox1 estar marcado. Como são mais de 10 colunas, dava erro. O VBA tem esta limitação de 10 colunas na Listbox ou Combobox qdo inserida "manualmente" no additem. Esta limitação não existe quando se utiliza matrizes.
Veja se atende agora.
Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 06 Out 2017 às 00:06
por JCabral
Babdallas
Acho que é mesmo isto que pretendia, vou só testar mais vezes e depois já tranco o tópico
Muito obrigado
Jorge Cabral
Adicionar Itens numa ListBox e ComboBox com Critério
Enviado: 06 Out 2017 às 15:26
por JCabral
Babdallas, está TOP
Muito obrigado pela ajuda
Jorge Cabral