Limpiar combobox

[xbeetox]

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

[Antoni]

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]

[xbeetox]

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]

[Antoni]

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

[xbeetox]

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

[Antoni]

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

[xbeetox]

Gracias por todo me sirvio de mucho