Access - Error al Mostrar FORMULARIOS con por medio de una Fecha

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 9 puestos en Access (en relación al último mes)
Gráfica de Access

Error al Mostrar FORMULARIOS con por medio de una Fecha

Publicado por Max (1 intervención) el 08/12/2020 11:50:22
Tengo este código:

1
2
3
4
5
Private Sub Comando153_Click()
Dim Respuesta As Date
Respuesta = InputBox("What is the square root of:", "Fecha")
DoCmd.OpenForm "Mantenimiento Preventivo", , , "Fecha de Inicio= # " & Format(Respuesta, "mm/dd/yyyy") & " # "
End Sub

A la hora de mostrar el InputBox e ingresar la fecha me aparece este error:

Erro de sintaxis (falta operador) en la expresion de consulta "Fecha de Inicio= #12/12/2020#.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al Mostrar FORMULARIOS con por medio de una Fecha

Publicado por Anonimo (2502 intervenciones) el 08/12/2020 13:48:04
Si 'Respuesta' es un dato de tipo fecha Access, el darle formato americano no es necesario (al menos en VBA).

De cualquier forma, si en lugar de utilizar datos con formato, se utiliza el dato real en la tabla (un numero) los errores se minimizan.

Suponiendo que se obtenga un dato de tipo fecha valido en la variable 'respuesta' , yo lo aplicaría así:

1
DoCmd.OpenForm "Mantenimiento Preventivo", , , "Fecha de Inicio= " & CDbl( Respuesta )

CDbl puede contener una fecha con parte horaria, si no se desea o necesita se puede utilizar un Long (que no admite parte decimal)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar