Jump to content

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

Link to comment
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]

Link to comment
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]

Link to comment
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

Link to comment
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

Link to comment
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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy