COMBOBOX VB DATOS INEXISTENTES MsgBox

Question

Holas, quisiera saber como hacer para que cuando uno ingrese por error en un combo box un dato que no este cargado en su lista por asi decirlo, me salga una advertencia que me diga que el objeto es inexistente y seleccione el objeto adecuado.

Answer 1

No entiendo si lo que quieres es cargar un dato en un combo o que compare el dato si está en la lista para el cado de comparar ej:

Dim i as integer
Dim No as boolean = True
For i = 0 to Combo1.ListCount - 1
 If Dato = Combo1.list(i) then
MsgBox("Ingresa Dato")
exit sub
 Else
 No = False
Next
 if No = False Then
  MsgBox("El Dato no es correcto")
exit sub
 End If
 

Saludos

Answer 2

Para conminar al usuario a seleccionar únicamente los elementos que pertenezcan a la lista debes configurar la propiedad Style a 'DropDownList'. 

Para lo que te sea útil, puedes validar el texto ingresado en el evento Validate del control ComboBox

Private Sub ComboBox1_Validate(Cancel As Boolean)

    If Trim(ComboBox1.Text) <> "" Then
        
        Dim ExisteValor As Boolean
        Dim Index As Integer
        
        ExisteValor = False
        For Index = 1 To ComboBox1.ListCount
            If UCase(ComboBox1.List(Index)) = UCase(Trim(ComboBox1.Text)) Then
                ExisteValor = True
                Exit For
            End If
        Next
        
        If ExisteValor = False Then
            MsgBox ("El valor ingresado no existe en la lista")
        End If
        
        Cancel = Not ExisteValor
        
    End If

End Sub

---

Nuestra profesión exige tener pasión por resolver problemas de una manera óptima y eficiente.