Imprimir página | Cerrar ventana

Formato de fecha en sentencia

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=84939
Fecha de impresión: 28/Marzo/2024 a las 16:07


Tema: Formato de fecha en sentencia
Publicado por: Goliat2000
Asunto: Formato de fecha en sentencia
Fecha de publicación: 09/Enero/2020 a las 19:11
Hola amigos, por favor, necesito que me indiquéis dónde colocar correctamente la forma de la fecha, es decir, las comillas que indican que es una fecha. Mejor pongo la línea dónde me da error, y así podréis indicarme mejor:

If Me.FechaPedido =#1 / 01 /" & Year(Fecha())+1 & "# And Me.FechaEntrega =#2 / 1 /" & Year(Fecha())+1 &"#  Then


El caracter en rojo es dónde da el error, y si no lo da, luego me da el error de no coinciden los tipos. Lo que necesito es que después de actualizar el campo FEchaEntrega, verifique que la fecha pedido es el primero de enero del año siguiente o el día dos de enero del año siguiente. Gracias y un saludo a todos.


-------------
Muchas gracias, aunque sólo lo hayas leído.



Respuestas:
Publicado por: mounir
Fecha de publicación: 09/Enero/2020 a las 20:32
Hola!

Mira a ver si funciona así:

If Me.FechaPedido = CStr("01/01/" & Year(Date())+1) And Me.FechaEntrega = CStr("02/01/" & Year(Date())+1)Then

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


Publicado por: prga
Fecha de publicación: 09/Enero/2020 a las 21:00
Hola.
También cabe la posibilidad de utilizar la función DateSerial que siempre devuelve una fecha.
Espero que ayude a resolver la duda.
Ya comentas.
Un saludo a todos


Publicado por: rokoko
Fecha de publicación: 09/Enero/2020 a las 22:02
Prueba asi a ver
If Me.FechaPedido = "01/01/" & Year(Date) + 1 And Me.FechaEntrega = "02/01/" & Year(Date) + 1 Then

Ten en cuenta que en vba hay que ponerlo en formato americano.....mm/dd/yyyy

Igual mejor asi dandole el formato americano

If Me.FechaPedido = Format("01/01/" & Year(Date) + 1, "mm/dd/yyyy") And Me.FechaEntrega = Format("02/01/" & Year(Date) + 1, "mm/dd/yyyy") Then


Publicado por: Goliat2000
Fecha de publicación: 10/Enero/2020 a las 14:51
Gracias a todos, la respuesta de Mounir me ha sido válida. Un saludo. Se puede cerrar el hilo

-------------
Muchas gracias, aunque sólo lo hayas leído.



Imprimir página | Cerrar ventana