** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Texto Todos en Cuadro Combinado
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoTexto Todos en Cuadro Combinado

 Responder Responder
Autor
Mensaje
CacoMarco Ver desplegable
Habitual
Habitual


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 157
Enlace directo a este mensaje Tema: Texto Todos en Cuadro Combinado
    Enviado: 05/Diciembre/2018 a las 02:26
Buenas Noches,
Alguien me puede ayudar en cómo agregar la leyenda "Todos" en un cuadro combinado ?
Se requiere que cuando se muestre el cuadro combinado en el formulario en su caja diga Todos.
Gracias,
CacoMarco/Chile
Arriba
IvoneR2017 Ver desplegable
Habitual
Habitual
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 05/Diciembre/2018 a las 02:36
Hola, hace unos días en este foro (creo) hice la misma pregunta y recibí parte de ayuda y te la comparto, espero te ayude.

Ejemplo usando las formas de pago (tabla F_FPA)

Primero: Mira el UNION SELECT 0, '(Todos)' (Origen de la fila) en el combo

' Origen de la fila en el combo
SELECT F_FPA.CODFPA, F_FPA.DESFPA FROM F_FPA UNION SELECT 0, '(Todos)' FROM F_FPA
ORDER BY DESFPA;

Y en el evento después de actualizar del combo y/o en un botón aplicas el filtro a tu subform (en caso que estés usando uno y que este sea filtrado desde el combo) ya tu lo adaptarás!

   If Not IsNull(Me.CmbFormasPago) Then
        Select Case Me.CmbFormasPago
        Case 0 ' Todos, aquí es donde aplica el SELECT 0, '(Todos)'
            Me.SubForm.Form.Filter = varFilter
            Me.SubForm.Form.FilterOn = False
        Case Else ' Uno a uno???
            varFilter = (varFilter + " AND ") _
             & "[FOPFAC]= '" & Me.TxtFormasPago.Value & "'"
        End Select
   End If

Editado por IvoneR2017 - 05/Diciembre/2018 a las 02:39
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1490
Enlace directo a este mensaje Enviado: 05/Diciembre/2018 a las 08:45
https://drive.google.com/file/d/0B4MYYeS7fCsEQnVKbW5Bc3dqSEU/view?usp=drivesdk


A ver si te vale esto......saludos
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 4908
Enlace directo a este mensaje Enviado: 05/Diciembre/2018 a las 09:07
Hola!

Aquí tienes un complemento creado por el maestro Chea

http://jbengoechea.com/RptCp.htm#TodosenCombo
Un Saludo.
Arriba
CacoMarco Ver desplegable
Habitual
Habitual


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 157
Enlace directo a este mensaje Enviado: 05/Diciembre/2018 a las 12:52
Muchas gracias a todos, realicé lo que necesitaba gracias a sus aportes y eso se aprecia.
favor, pueden cerrar el hilo.
Thumbs Up
CacoMarco/Chile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable