Calculo con fechas... Viendo a futuro

Hola, colagorda
La situación es la siguiente:
En una base de datos de access tengo una tabla y un formulario asociado a ella con un campo FechaIngreso y un procedimiento de VB que es el siguiente
Private Sub FechaIngreso_LostFocus()
If FechaIngreso >= #12/26/2002# And FechaIngreso <= #1/25/2003# Then
Bloque = #1/25/2003#
Días = #1/25/2003# - #12/26/2002#
ElseIf FechaIngreso >= #1/26/2003# And FechaIngreso <= #2/25/2003# Then
Bloque = #2/25/2003#
Días = #2/25/2003# - #1/26/2003#
... Y así hasta los doce meses del año 2003
Pensando a futuro veo que terminando 2003 tendré que actualizar el procedimiento y así...
La pregunta es: ¿Existe algún método que me evite tener que poner en unos meses todo este código para el año 2004 y siguientes?
Te agradezco de antemano la ayuda.

1 Respuesta

Respuesta
1
Yo en tu lugar haría lo siguiente, vete a vista de diseño y cuadro de herramientas desde allí cuando salga el cuadro de herramientas ejecutas el comando más contyrles y luego buscas el microsoft date and time pickercontrol, version 6, esto hará que te salga una agenda calendario desde allí pincha en propiedades y origen de control, fecha luego eso hace que cuando pichas en fecha automáticamente te inserta la fecha deseada, luego puedes hacer que el calendario te genera la fechas que quieras como lo tienes por ejemplo de esta forma con el calendario tiene todos los años y meses y luego es agregar, luego te quedaría hacer una consulta con fechas de años así tienes todo y es más simplificado
Espero que esto te sirva mejor que esta actu alizado el visual todos los años

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
1 respuesta

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
5 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
4 respuestas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Trabajando con formato condicional en formularios de Access.

Estoy construyendo una base de datos en Access. Tengo un formulario principal ¨SERVICIOS¨ que contiene un primer subformulario ¨ETAPAS¨ y un segundo subformulario¨VENTAS¨ (intenté subir la imagen pero no funciona esta opción de la plataforma) Lo que...
5 respuestas

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Access código para copiar a tabla grupo de opciones

Tengo un formulario independiente con campos independientes. Uno de esos campos es un marco (grupo de opciones) que código podre utilizar para al dar click en el botón guardar me envíe los datos a la tabla específicamente lo que se escogió el el...
2 respuestas