¿Cómo puedo mostrar ordenadamente en un listbox, personas y días que faltan para su cumpleaños, teniendo su fecha de nacimiento?

Trabajando en Access, VBA y alguna instrucción sql

Tengo una tabla con Nombres y Fechas de nacimiento, en un formulario quiero mostrar en un listbox, de tal manera que salgan ordenados dichos nombres con sus Fechas de nacimiento, más otro campo calculado que le llamaremos "Días que faltan" hasta su próximo cumpleaños .

No se si se puede hacer con una instrucción sql y cargarlo al RowSource o bien por código VBA

Gracias acepto ideas, de como llevarlo a cabo, la verdad es que estoy perdido.

S2

1 respuesta

Respuesta
2

Tienes, al menos 3 opciones de hacerlo, todas más o menos igual de fáciles:

1º/ Crear una consulta en la que tengas los dos campos de la tabla y el calculado, y luego pones en el RowSource el nombre de la Consulta.

2º/ Poner en el RowSource directamente la SQL (puedes hacer previamente la consulta en el diseñador y copiarla)

3º/ Asignarle el RowSource por VBA, para lo que también has de conocer la SQL:

Me.NombreCuadro.RowSource=laSQL

Me. NombreCuadro. Requery

Lo más "complicado" es hacer el campo calculado, que podrías hacerlo así:

DiasRestantes: SiInm(DifFecha("d";Fecha();SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac])))>0;DifFecha("d";Fecha();SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac])));DifFecha("d";SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac]));AgregFecha("aaaa";1;Fecha())))

Un saludo.

Como bien menciona Jacinto en su comentario, el último DifFecha está mal. Sería así:

DiasRestantes: SiInm(DifFecha("d";Fecha();SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac])))>0;DifFecha("d";Fecha();SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac])));DifFecha("d";Fecha();AgregFecha("aaaa";1;SerieFecha(Año(Fecha());Mes([FNac]);Día([FNac])))))

¡Gracias!

Lo he hecho con un campo calculado, que la instrucción sql parece un chorizo de largo que funciona, me puse ayer ha hacerlo y me salio a la primera... eso si estoy convencido que si lo intento hacer no me sale.

Eso si he usado la opción nº1 que me has pasado

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear un botón en un formulario para que borre todos los registros de una tabla

Necesito crear un comando para borrar los registros de una tabla, y otro para lanzar una carga de una importación, ahora tengo access 2016 y no sé como hacerlo
3 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
2 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas

Promedio de las ultimas 100 celdas con numeros

Tengo en la columna 0Y2:OY146 (celdas en blanco y celdas con numeros necesito calcular el promedio de los ultimos 100 numeros de la columna, si la cantidad fuera inferior a 100 que calcule el promedio de la totalidad de las celdas que contenga numeros.
2 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas