** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Comparar fecha con otra determinada
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoComparar fecha con otra determinada

 Responder Responder
Autor
Mensaje
Goliat2000 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 11/Noviembre/2014
Localización: Madrid
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Tema: Comparar fecha con otra determinada
    Enviado: 07/Enero/2017 a las 12:54
Hola a todos y Feliz Año Nuevo. Planteo mi problema al que no encuentro solución tras haber intentado resolverlo de varias formas y consultar algunos post aquí en el foro. Intuyo que tiene que ser algo sencillo pero no lo consigo. La cuestión es, un formulario donde tengo un campo llamado FEntrega y que es de formato fecha corta, mascara entrada 00/00/0000 y en la tabla se recoge como campo Fecha/hora. En VBA quiero que al actualizar el campo, con un If, si la fecha de entrega coincide con el 6 de enero de cada año, en otro campo de texto me ponga "MAÑANA". Pues bien, si lo implemento asi:

If FEntrega= "06/01/2017" Then
           Turno= "MAÑANA"
   IdTipoRosco.SetFocus
        End If

funciona bien

Pero si lo pongo de este otro modo:

If FEntrega= #06/01/2017# Then
           Turno= "MAÑANA"
   IdTipoRosco.SetFocus
        End If

no funciona

Si pongo:

If FEntrega= #06/01/& Year(Date) & # Then
           Turno= "MAÑANA"
   IdTipoRosco.SetFocus
        End If

tampoco funciona

If FEntrega= "06/01/ & Year(Date) &" Then
           Turno= "MAÑANA"
   IdTipoRosco.SetFocus
        End If

tampoco funciona

La idea es que la fecha del 6 de enero sea la del año que tenga el sistema en cada momento.

Por favor, ¿alguien podría indicarme que es lo que hago mal?.

Gracias
Muchas gracias, aunque sólo lo hayas leído.
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5431
Enlace directo a este mensaje Enviado: 07/Enero/2017 a las 15:39
Hola Goliat.

A ver esta que te propongo:

If Left(FEntrega,5)= "06/01" Then
           Turno= "MAÑANA"
   IdTipoRosco.SetFocus
        End If

Saludos de David.
Gracias
Arriba
Goliat2000 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 11/Noviembre/2014
Localización: Madrid
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 07/Enero/2017 a las 15:48
Gracias VIMIPAS, funciona como me dices, y además, con el año que tenga el sistema. Verdaderamente muy simple. Se puede cerrar el hilo. Saludos
Muchas gracias, aunque sólo lo hayas leído.
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9235
Enlace directo a este mensaje Enviado: 07/Enero/2017 a las 16:13
Si solo guardas la parte Fecha (sin la parte horaria), también te puede valer así:

If Me.fEntrega = DateSerial(Year(Date),1,6) Then
   Turno= "MAÑANA"
   IdTipoRosco.SetFocus
End If

Saludos !
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable