Imprimir página | Cerrar ventana

Texto Todos en Cuadro Combinado

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84142
Fecha de impresión: 21/Marzo/2019 a las 16:59


Tema: Texto Todos en Cuadro Combinado
Publicado por: CacoMarco
Asunto: Texto Todos en Cuadro Combinado
Fecha de publicación: 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



Respuestas:
Publicado por: IvoneR2017
Fecha de publicación: 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


Publicado por: rokoko
Fecha de publicación: 05/Diciembre/2018 a las 08:45
https://drive.google.com/file/d/0B4MYYeS7fCsEQnVKbW5Bc3dqSEU/view?usp=drivesdk


A ver si te vale esto......saludos


Publicado por: mounir
Fecha de publicación: 05/Diciembre/2018 a las 09:07
Hola!

Aquí tienes un complemento creado por el maestro Chea

http://jbengoechea.com/RptCp.htm#TodosenCombo" rel="nofollow - http://jbengoechea.com/RptCp.htm#TodosenCombo

-------------
Un Saludo.


Publicado por: CacoMarco
Fecha de publicación: 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



Imprimir página | Cerrar ventana