Olá pessoal.....

Estou usando um combo com estilo Dropdown Combo.

Só que tenho uma duvida....

 

Como eu faço para certificar que o que está sendo digitado tem na lista do combo ???

 

Tipo assim...
Se eu digitar 55 e se na lista do combo não tiver o nª 55 ele me informa dizendo que akele nª não está na lista..

 

Obrigado !

Abraços !

basta verificar se teim, passandu de um em um

 

Private Function TeimNoCombo(Item as String) as Boolean

dim i as integer

 

for i = 0 to Combo1.ListCount - 1

     If Lcase(Combo1.List(i)) = Lcase(Item) then

         TeimNoCombo = True

         Exit Function

     End if

Next

TeimNoCombo = False

End Function

 

 

depois basta fazer assim

If TeimNoCombo(55) then

    MsgBox "Teim"

else

    MsgBox "Não teim"

End if

 

:)