Buenas.

Tengo un formulario (F_Estadistica) con dos campos independientes de fecha (vfechadesde, vfechahasta), desde el cual me abre otro formulario basado en una tabla dinámica dentro del periodo indicado.

Ahora al pasarlo a 64 bits, debo hacerlo con una tabla de referencia cruzada. Hasta aquí todo bien, si en Criterios de la consulta de referencia cruzada le indico una fecha concreta. Pero si en Criterios de la consulta de la tabla de referencia cruzada le indico que me busque el período de los dos campos (vfechadesde, vfechahasta), me aparece el error:

Se ha producido el error '3070' en tiempo de ejecución:

El motor de base de datos de Microsoft Access no reconoce '[Formularios]![F_Estadistica]![vfechadesde]' como un nombre de campo o expresión válidos.

Alguna sugerencia.

Resumiendo: deseo ejecutar la tabla de referencia cruzada basándose en el valor de los campos vfechadesde y vfechahasta.

Gracias y un saludo.

Hola.

Si lo haces por vba con Forms!Mainform!ControlName te reconoce el campo?

El campo está en el formulario F_Estadistica o dentro de un subformulario?

Saludos

Carlos

Buenas.

Ambos campos (vfechadesde y vfechahasta) están en el formulario. Son campos independientes.

Lo que deseo es introducir la fecha en los campos y que ejecute la tabla de referencia cruzada, no tener que abrir la consulta para introducir los valores.

Gracias.

Por otro lado siempre te queda el truco de utilizar una función que devuelva el valor del campo al criterio de la función. Yo lo utilizo para poder pasar valores almacenados en variables. Si tuviera que hacerlo para devolver valores de controles lo haría con una función genérica:

Algo así (en un módulo independiente)

Public Function DameUnValor(strNombreFormulario As String, strNombreCampo As Sgtring) As Variant

   DameUnValor = Forms(strNombreFormulario).Controls(strNombreCampo).Value

End Function

Y en la consulta escribiría en los criterios el nombre de la función con los argumentos necesarios. Ejemplo:

DameUnValor("F_Estadistica"; "vfechadesde")

Un saludo

Buenas Xavi.

Con la primera solución, al tratarse de un formulario basado en una tabla dinámica con formulario único, en 64 bits solo muestra datos de registro a registro. Esto no me sirve.

La segunda solución si funciona, pero como y donde pondría el campo independiente vfechahasta que falta?

Entre DameUnValor("F_Estadistica";"vfechadesde") Y DameUnValor("F_Estadistica";"vfechahasta")

Gracias.

Eso ya lo tengo hecho en la consulta, me refiero a la función. Cómo la elaboro?

Un saludo.

Lo único que puede pasar es que, para este caso concreto, debas realizar alguna conversión/formateo del resultado para que la consulta entienda que es una fecha.

Veamos.

La función sería:

¿Tu has probado la función? Porque verías qué pide y qué devuelve. Entendiendo eso verías que se puede utilizar en cualquier momento con los argumentos adecuados.

Después de probar la función, me dice que el número de argumentos es incorrecto.

Al tratarse de dos campos, vFechaDesde y vFechaHasta, entiendo, que la primera línea de la sintaxis de la función sería:

Public Function DameUnValor(F_Estadistica As String, vFechaDesde As String, vFechaHasta as String) As Variant

pero no entiendo cómo elaborar la siguiente línea:

DameUnValor = Forms(strNombreFormulario).Controls(strNombreCampo).Value

pues si cambio strNombreCampo por vFechaDesde, dónde añado vFechaHasta

Gracias a todos.

Este hilo se puede cerrar.