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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Es perfecto , es lo que trate de hacer y no me resulto, solo una duda, se podrá modificar de alguna manera que  la suma no sea mayor al promedio? no se si sera muy complejo eso. Pero de verdad muchas gracias.
    • Saludos @rsoto.conta te dejo una forma, es las mas simple, ordenas la deuda, y vas asignando valores maximo y minimo a cada cobrador, al final la distribución es uniforme, lo único es que si el valor máximo es muy diferente al resto, pues siempre el primer seleccionado de seguro tendrá un promedio mucho mayor Distribuir Deuda.xlsm
    • ya revise ambos codigos una disculpa por la demora, y veo que ambos casos son funcionales, pero me surgen algunas dudas al respecto: para el caso de MAURICIO_ODN mi pregunta seria al poner un listbox oculto en el formulario no causaria algun error debido a procedimientos largos e inmanejables (como dice Antoni) o de que otra manera se podria utilizar tu codigo? ya que cuando lo uno al evento change del combobox pais si marca error.   para el caso de Antonio, mi pregunta es si solo conoces esa manera?, es decir; en mi idea trato de evitar el uso de varias hojas y dejarlo mas en codigo, disculpame es que ando buscando como que el "termino medio" de las cosas. Aunque es muy bueno hacerlo como lo mencionas, tal vez me adapte a tu idea mejor.   de antemano muchas gracias
    • A ver asi: With Application hoy = VBA.CDate(VBA.Date) mday = .WeekNum(hoy, 2) fmes = .EoMonth(hoy, -1) fec = VBA.Format(mday, "dd/mm/yyyy") uday = .WeekNum(fmes, 2) mes_ = VBA.Month(hoy) resul = VBA.IIf(mes_ = 1, mday, mday - uday + 1) End With  
    • Buenas Tardes Señores/as, Espero se encuentren muy bien junto a sus familias en relación al Virus que bastante nos ha afectado. Quisiera pedirles una orientación u ayuda por favor. Esta es una empresa de cobranza la cual soy el el que distribuye la deuda a cada cobrador. adjunto archivo el cual ocupo, son 25 cobradores , debo distribuir el total de la deuda a estas 25 personas, el cual tengo que tratar que el MONTO y la CANTIDAD  sean lo mas parecido parecidos y parejo posible. Cualquiera orientación y/o ayuda se agradece (busque en todo el foro y no encontré algo similar, y si hay, busque mal)  Espero tenga una buena tarde,     0807.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy