Error 13 No coinciden los tipos

[Filipe Pequeno]

Hola.
Estoy mejorando una base de datos, que no ha sido construida por mí, pero cuando intento añadir o modificar un campo del tipo que sea en una de las tablas, me sale "se ha producido el error 13 en tiempo de ejecución / no coinciden los tipos".

Como básicamente no he hecho nada de muy complejo, estoy pensando que sea derivado de la incompatibilidad entre las diferentes versiones del Access.

Todavía, esto es el código que me dice dar error, y a negro donde el depurador me dice estar el problema, que no consigo solucionar:

Private Sub Form_Load()
If Month(Date) >= 11 Then
Me.RecordSource = "Select distinctrow QryRegistosLinhaMensal.* from QryRegistosLinhaMensal Where [Ano]=Year(Date()+90) order by [QryRegistosLinhaMensal].[Month1] desc;"
Else
Me.RecordSource = "Select distinctrow QryRegistosLinhaMensal.* from QryRegistosLinhaMensal Where [Ano]=Year(Date()) order by [QryRegistosLinhaMensal].[Month1] desc;"
End If
End Sub

Me pueden ayudar?

[Sveinbjorn]

Por mi experiencia, cuando las funciones nativas de access, como en tu caso Date(), dan problemas, es que en alguno de los módulos dela aplicación tienes algún error de sintaxis en algún lado.

Mi sugerencia es que vayas al menú Depuración del editor de VBA y uses la opción de compilar, a ver qué errores te marca y solucionarlos.

[Filipe Pequeno]

Muchas gracias.
Voy a verlo y comentaré algo.