** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Formato de fecha en sentencia
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoFormato de fecha en sentencia

 Responder Responder
Autor
Mensaje
Goliat2000 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 11/Noviembre/2014
Localización: Madrid
Estado: Sin conexión
Puntos: 354
Enlace directo a este mensaje Tema: Formato de fecha en sentencia
    Enviado: 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.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 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.
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje Enviado: 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
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 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
Arriba
Goliat2000 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 11/Noviembre/2014
Localización: Madrid
Estado: Sin conexión
Puntos: 354
Enlace directo a este mensaje Enviado: 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.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable