COMBOBOX DINAMICO
Olá pessoal, tenho o seguinte problema.
Em um formulário tenho 10 combobox com os seguintes nomes.
cmb_ativo1
cmb_ativo2
cmb_ativo3
cmb_ativo4
cmb_ativo5
cmb_ativo6
cmb_ativo7
cmb_ativo8
cmb_ativo9
cmb_ativo10
Gostaria de saber se é possivel fazer um [Ô]For Next[Ô] ou um loop para verificar cada combo, por exemplo.
for i = 1 to 10
if cmb_ativo & i = empty then
msgbox [Ô]ok[Ô]
end if
next
Isso é possÃvel ?
Desde já agradeço a todos vocês.
Em um formulário tenho 10 combobox com os seguintes nomes.
cmb_ativo1
cmb_ativo2
cmb_ativo3
cmb_ativo4
cmb_ativo5
cmb_ativo6
cmb_ativo7
cmb_ativo8
cmb_ativo9
cmb_ativo10
Gostaria de saber se é possivel fazer um [Ô]For Next[Ô] ou um loop para verificar cada combo, por exemplo.
for i = 1 to 10
if cmb_ativo & i = empty then
msgbox [Ô]ok[Ô]
end if
next
Isso é possÃvel ?
Desde já agradeço a todos vocês.
crie uma array do combo e pronto
ou seja crie um combo com o nome combo_ativo.
mude a propriedade index do mesmo para 0 (zero)
agora copie este combo e cole, repare que o nome do combo colado vai ser combo_ativo(1)
cada colagem vai criando um index novo ou seja combo_ativo(2), combo_ativo(3), combo_ativo(4).... e assim por diante
so preste atenção que começa do zero e não do um
o codigo fica simples depois
ou seja crie um combo com o nome combo_ativo.
mude a propriedade index do mesmo para 0 (zero)
agora copie este combo e cole, repare que o nome do combo colado vai ser combo_ativo(1)
cada colagem vai criando um index novo ou seja combo_ativo(2), combo_ativo(3), combo_ativo(4).... e assim por diante
so preste atenção que começa do zero e não do um
o codigo fica simples depois
For i = 0 To Combo_ativo..Count - 1
If comb_ativo(i).Text = Empty Then
msgbox [Ô]Ok[Ô]
End If
Next i
Valeu!! deu certo !!
valeu, não esquece de encerrar
Tópico encerrado , respostas não são mais permitidas