COMBOBOX COM DEPENDÊNCIA

 Tópico anterior Próximo tópico Novo tópico

COMBOBOX COM DEPENDÊNCIA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#487905 - 27/03/2019 20:19:23

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Boa noite pessoal!

Eu tenho duas combobox, na combobox1, eu preencho dessa maneira:

Dim i as integer

For i = 1 To 6
    cbo1.AddItem i
Next

Então preenche a combobox1 do 1 ao 6. O que desejo, é que se na combobox1, eu selecionar o 1, na combobox2, o 1 não aparecesse, ou seja, a combobox2 vá do 2 até o 6.

Poderiam me dar umas dicas, para eu dar umas pesquisadas?

Desde já agradecido. :)




Resposta escolhida #487906 - 27/03/2019 22:07:45

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Oi Ivan!
No Evento Lost Focus do Combo1 faz preencher o combo2, mas somente se i <> do combo1.text

  Private Sub Combo1_LostFocus()
Dim c As Integer

For c = 1 To 6
    If c <> Combo1.Text Then
        Combo2.AddItem c
    End If
Next
End Sub


Jones Paris

#487908 - 28/03/2019 07:54:32

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


O que Jones postou esta correto, porem eu o faria no evento click

Private sub Combobox1_click

Dim c As Integer

For c = 1 To 6
    If c <> Combo1.Text Then
        Combo2.AddItem c
    End If
Next

End sub

____________________________________________________________________
Episcopal Studios





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 28/03/2019 20:55:51