Jump to content
Sign in to follow this  
xbeetox

Limpiar combobox

Recommended Posts

Buenas tardes, necesito limpiar los registros de mis comboboxt de mi formulario, tambien quisiera que me ayudes en validar antes de agregar el nuevo registro, por ejemplo que me salga un mensaje para confirmar la grabación.

porque en mi combobox pongo

nombre_combo.value =""

nombre_combo.clear

Y no me sale.. ayuda ..!!!

Nuevo.rar

Share this post


Link to post
Share on other sites


Combo.Text = "" 'Borra el texto del combo
Combo.Clear 'Deja el combo sin elementos

'Mensaje para confirmar o cancelar una acción
x = MsgBox("Confirmar grabación", vbYesNo + vbQuestion, "Grabar registro")
If x = vbYes Then
'Ha contestado SI
Else
'Ha contestado NO
End If


[/CODE]

Share this post


Link to post
Share on other sites

Me sale un error..por esto mira

[FONT=Verdana]Private Sub cb_motivo_llamada_Change()[/FONT][FONT=Verdana][/FONT]
[FONT=Verdana]If Me.cb_motivo_llamada.List(Me.cb_motivo_llamada.ListIndex, 0) = "8" Then[/FONT]
[FONT=Verdana]Me.txt_otro.Visible = True[/FONT]
[FONT=Verdana]Else[/FONT]
[FONT=Verdana]Me.txt_otro.Visible = False[/FONT]
[FONT=Verdana]End If[/FONT]
[FONT=Verdana][/FONT][FONT=Verdana]End Sub
[/FONT][/CODE]

[left][color=#333333]Me.cb_motivo_llamada.List(Me.cb_motivo_llamada.ListIndex, 0)

Cuando pongo :

[/color][color=#333333]

cb_motivo_llamada.text = ""

[/color][color=#333333]cb_motivo_llamada.clear

Igual me me vota un error, porque recibe el valor "-1" y x eso me sale un error ahi.. :( ayudame , si miras lo que te eh enviado y pones eso y lo ejecutas vas a ver del error que te digo.. x favor ayudame me falta eso.. :([/color]

[/left]

Share this post


Link to post
Share on other sites

Hola

Utiliza el evento Click en lugar del evento Change.

El evento Click solo se ejecutá cuando seleccionas un elemento del combo o cambias manualmente la propiedadd .ListIndex.

El evento Change se ejecuta cuando se produce cualquier cambio en el combo, sea del tipo que sea.

Cuando borras la propiedad .Text, se pone a -1 el valor de la propiedad .Listindex, y se ejecuta el evento Change, pero no se ejecuta el evento .Click.

Espero que hayas entendido el mecanismo.

Saludos

Share this post


Link to post
Share on other sites

Pero igual cambio al vento clic pero igual no puedo limipar... no me sale..

Quisiera limpiar para despues volver a seleccionar otro.

le pongo combo.text = ""

... mandame un ejemplo... pues para poder saber hacerlo...

Un favor date cuenta que yo mis combos los lleno desde una tabla ya que yo cuando un CODIGO y una DESCRIPCION

un ejemplo porfavor

Share this post


Link to post
Share on other sites

A ver:

Para borrar un combo cargado con la propiedad .RowSource, hay que borrar dicha propiedad:

cb_motivo_llamada.RowSource = ""[/CODE]

Para borrar el texto del combo:

[CODE]cb_motivo_llamada.Text = ""

'También valdría

cb_motivo_llamada.ListIndex = -1
[/CODE]

En cualquier caso debes cambiar el evento [b]Change [/b]por el evento [b]Click, [/b]de lo contrario te dará error[b]. [/b]

[CODE]Private Sub cb_motivo_llamada_Click()

If Me.cb_motivo_llamada.List(Me.cb_motivo_llamada.ListIndex, 0) = "8" Then
Me.txt_otro.Visible = True
Else
Me.txt_otro.Visible = False
End If

End Sub[/CODE]

Saludos

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy