** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Agregar "todos" a ComboBox
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Agregar "todos" a ComboBox

 Responder Responder
Autor
Mensaje
IvoneR2017 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 34
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita IvoneR2017 Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Agregar "todos" a ComboBox
    Enviado: 13/Septiembre/2018 a las 17:52
Hola a todos y gracias por su colaboración.
Tengo un comboBox de las formas de pago, cuyo origen de la fila seria este:

SELECT F_FPA.CODFPA, F_FPA.DESFPA
FROM F_FPA
ORDER BY F_FPA.DESFPA;

La tabla de formas de pago (F_FPA) esta organizada asi:

(Texto) (Texto)
CODFPA DESFPA
----------------------------
01 Contado - efectivo
TC Tarjeta Crédito
TD Tarjeta Débito
----------------------------
Al realizar filtros en informes / Formularios, escojo una u otra forma de pago.
Podrían orientarme en cual seria la forma de agregar "Todos" a dicho combo en tiempo de ejecución (ya que como os comento el origen de este serìa la tabla Formas de pago (F_FPA)) para que al generar el filtro NO discrimine, sino que me muestre la información de todos ellos?

Me he planteado el crear la forma de pago "Todos" y ocultarla en el (Los) combo (s) de la aplicación, pero quería preguntaros si hay alguna otra forma de hacerlo en tiempo de ejecución. 

Gracias de antemano.

Arriba
jilo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 772
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jilo Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 18:33
Hola
Mirate esta dirección..
https://docs.microsoft.com/es-es/office/vba/access/Concepts/Controls/addallto-a-combo-box-or-list-box
Espero te sirva !!!!!!
Arriba
IvoneR2017 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 34
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita IvoneR2017 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 18:35
Publicado originalmente por jilo jilo escribió:

Hola
Mirate esta dirección..
https://docs.microsoft.com/es-es/office/vba/access/Concepts/Controls/addallto-a-combo-box-or-list-box

Gracias Jilo! lo estoy viendo ahora mismo.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 4733
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita mounir Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 18:56
Un Saludo.
Arriba
IvoneR2017 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 34
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita IvoneR2017 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 20:55
Gracias por su ayuda, voy a estudiarlo en estos momentos para aplicarlo.
Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 129
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Septiembre/2018 a las 18:10
Ejemplo simple...

   strsql = " SELECT DISTIN...etc etc etc
    Set cn = CurrentProject.AccessConnection
    Set rsCn = New ADODB.Recordset
    With rsCn
        Set .ActiveConnection = cn
        .Source = strsql
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open
        If .RecordCount = 0 Then
            MsgBoxEx Me.hwnd, "¡No hay ningún presupuesto!", 1, vbCritical, "Balances"
            Me.CboAño.RowSource = vbNullString
            .Close: Set rsCn = Nothing
        Else
            .MoveFirst
            Me.CboAño = vbNullString
            Me.CboAño.AddItem "Todos" & ";"
            Do Until .EOF Or .BOF
                anade = !Año & ";"
                Me.CboAño.AddItem Me.CboAño.Value & (anade)
                .MoveNext
            Loop
            .Close: Set rsCn = Nothing
        End If
    End With
    Set cn = Nothing

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1403
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rokoko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Septiembre/2018 a las 22:29
Otro ejempo que hice en su dia

https://www.dropbox.com/s/j8eyo7p1wc1o3jg/COMBOS%20TODOS%20EN%20CASCADA%20%2B%20filtro%20formulario.mdb?dl=0

Arriba
IvoneR2017 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 34
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita IvoneR2017 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Septiembre/2018 a las 22:43
Gracias Jilo, Mounir, Vayacaló y Rokoko. Usé el siguiente código para "Llenar" el combo y asignarle 0 (cero) al nuevo valor y luego filtrar el subform basándome en la selección:

' ----------------------------En orígen de la fila del combo ----------------------------------
SELECT F_FPA.CODFPA, F_FPA.DESFPA FROM F_FPA UNION SELECT 0, '(Todos)' FROM F_FPA
ORDER BY DESFPA;
    
'---------- El Filtro----------
' ComboBox - Control texto
'-----------------------------
   If Not IsNull(Me.CmbFormasPago) Then
        Select Case Me.CmbFormasPago
        Case 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
Arriba
IvoneR2017 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 02/Marzo/2018
Localización: Costa Rica
Estado: Sin conexión
Puntos: 34
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita IvoneR2017 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Septiembre/2018 a las 22:45
Publicado originalmente por rokoko rokoko escribió:

Otro ejempo que hice en su dia

https://www.dropbox.com/s/j8eyo7p1wc1o3jg/COMBOS%20TODOS%20EN%20CASCADA%20%2B%20filtro%20formulario.mdb?dl=0


Rokoko: Excelente ejemplo!!! A estudiarlo
Arriba
guarracuco Ver desplegable
Moderador
Moderador
Avatar

Unido: 24/Abril/2004
Localización: EEUU
Estado: Sin conexión
Puntos: 2918
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita guarracuco Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 19/Septiembre/2018 a las 04:22
Otra manera: combo con tipo de origen de control=Lista de valores.
Puedes agregar los valores que desees en tiempo de ejecucion.
https://tucondominioaldia.net
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable