Validación de un dbcombo

[lucasarts_18]

Hola:

Estoy haciendo unas validaciones con los controles combo de la siguiente forma

Código:

if (.Combo2.ListIndex < 0) then
   ....
   ....
end if

Con esto me aseguro que se seleccione un valor del combo, pero cambiando el escenario a un control dbcombo no tiene la propiedad ListIndex.

¿Cómo puedo validar que me seleccionen si o si una lista del dbcombo?

Mil Gracias--.

Hasta Luego .-

[lucasarts_18]

Hola:

Alguna alternativa a listindex ¿?, ya que el control dbcombo no tiene esta propiedad, por lo tanto no puedo validar que el usuario me seleccione obligadamente una opción de la lista desplegada.

Ojalá haya una solución a este problema.

Gracias.-

[David]

El DBCombo tiene la propiedad SelectedItem...

[lucasarts_18]

Hola:

Gracias por tu respuesta, pero esa propiedad al momento de perder el foco el selecteditem queda nulo por lo tanto no me sirve la validación que quiero llevar.

Hasta Luego .-

[David]

Iniciado por lucasarts_18

Hola:

Gracias por tu respuesta, pero esa propiedad al momento de perder el foco el selecteditem queda nulo por lo tanto no me sirve la validación que quiero llevar.

Hasta Luego .-

En el evento LostFocus (si lo tiene el DBCombo) puedes poner en otra variable el valor de SelectedItem.

[lucasarts_18]

Amigo, lamento decirte que no me resulta, lo he hecho tan como lo menciona, peor luego al momento de mandar por msgbox la variable, está siempre se muestra con el valor de ?

En fin....

Bye.-

[David]

Iniciado por lucasarts_18

Amigo, lamento decirte que no me resulta, lo he hecho tan como lo menciona, peor luego al momento de mandar por msgbox la variable, está siempre se muestra con el valor de ?

En fin....

Bye.-

Bueno, infelizmente no tengo VB y no uso el DataCombo. Así que no sé por qué puede ser el problema. Y cuando tiene el foco, ¿cuál es el valor que devuelve?

[lucasarts_18]

Hola:

Hice esto...

Código:

Private Sub DbCbTipoCta_Change()
   MsgBox (DbCbTipoCta.SelectedItem)
End Sub

y siempre me muestra por pantalla "?", ahora bien en este link dan luces que podría ser un bug.

Gracias...

Bye.-

[David]

Iniciado por lucasarts_18

Hola:

Hice esto...

Código:

Private Sub DbCbTipoCta_Change()
   MsgBox (DbCbTipoCta.SelectedItem)
End Sub

y siempre me muestra por pantalla "?", ahora bien en este link dan luces que podría ser un bug.

Gracias...

Bye.-

¿Podrías colocar esto?:

Código:

MsgBox TypeName(DbCbTipoCta.SelectedItem)

Así te dirá qué tipo de variable es SelectedItem.

[lucasarts_18]

Iniciado por David el Grande

¿Podrías colocar esto?:

Código:

MsgBox TypeName(DbCbTipoCta.SelectedItem)

Así te dirá qué tipo de variable es SelectedItem.

Me devuelve Byte()....

[David]

Iniciado por lucasarts_18

Me devuelve Byte()....

Trataré de investigar más al respecto. Luego te respondo.

Saludos

[lucasarts_18]

Hola:

¿Alguien sabe algo de esto?

Gracias....

Hasta Luego .-

[David]

Al fin encontré la solución:

Código:

 
If TypeName(DBCombo1.SelectedItem) = "String" Then
       MsgBox "No se ha seleccionado ningún elemento", vbCritical
End If

La lógica de esto es que cuando algún elemento está seleccionado SelectedItem es una matriz de Bytes, mientras que cuando no está seleccionado ninguna es un String.

Saludos

[lucasarts_18]

Hola

Gracias, eso si que funciona, solo algo a tener en cuenta, cuando uno selecciona un valor del dbcombo devuelve byte(), hasta ahí todo bien, pero cuando nosotros borramos ese texto seleccionado sigue siendo byte, pero esto ya es controlable.

Gracias por compartir el conocimiento.

Se agradece hombre !!!

Saludos .-