none
COMBOBOX VB DATOS INEXISTENTES MsgBox RRS feed

  • Pregunta

  • 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.

    viernes, 4 de agosto de 2017 16:13

Todas las respuestas

  • 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

    viernes, 4 de agosto de 2017 16:38
  • 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.
    sábado, 5 de agosto de 2017 5:14