Error al seleccionar tabla
Publicado por JAVIER (6 intervenciones) el 08/05/2017 12:11:26
Tengo una aplicación con la siguiente instrucción que funciona perfectamente
Set TbDeclarados = Db.OpenRecordset("SELECT Declarados2016.NifTitular, Declarados2016.ApellidosTitular, Declarados2016.NombreTitular, Sum(Declarados2016.Recibo) AS Importe, Sum(Declarados2016.Cuota) AS Cuota, Sum(Declarados2016.Donativo) AS Donativo, Sum(Declarados2016.CuotasAnteriores) AS CuotasAnteriores FROM Declarados2016 GROUP BY Declarados2016.NifTitular, Declarados2016.ApellidosTitular, Declarados2016.NombreTitular")
Quiero seleccionar la tabla "Declarados2016" desde un formulario y me da los siguientes errores en distintos casos:
SE HA PRODUCIDO EL ERROR 424
SE REQUIERE UN OBJETO
SE HA PRODUCIDO EL ERROR 3078
NO SE ENCUENTRA LA TABLA TbEjercicio
SE HA PRODUCIDO EL ERROR 13
NO CONCIDEN LOS TIPOS
¿Alguien me puede ayudar? Creo que lo he probado de 100 maneras diferentes
Si Incluyo
Me responde Declarados2016 perfectamente
Muchas gracias
Set TbDeclarados = Db.OpenRecordset("SELECT Declarados2016.NifTitular, Declarados2016.ApellidosTitular, Declarados2016.NombreTitular, Sum(Declarados2016.Recibo) AS Importe, Sum(Declarados2016.Cuota) AS Cuota, Sum(Declarados2016.Donativo) AS Donativo, Sum(Declarados2016.CuotasAnteriores) AS CuotasAnteriores FROM Declarados2016 GROUP BY Declarados2016.NifTitular, Declarados2016.ApellidosTitular, Declarados2016.NombreTitular")
Quiero seleccionar la tabla "Declarados2016" desde un formulario y me da los siguientes errores en distintos casos:
1
2
3
4
Set Fm = Screen.ActiveForm
Dim TbEjercicio As Recordset
Set TbEjercicio = Fm.Ejercicio.Column(1)
Set TbDeclarados = Db.OpenRecordset("SELECT TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular, Sum(TbEjercicio.Recibo) AS Importe, Sum(TbEjercicio.Cuota) AS Cuota, Sum(TbEjercicio.Donativo) AS Donativo, Sum(TbEjercicio.CuotasAnteriores) AS CuotasAnteriores FROM TbEjercicio GROUP BY TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular")
SE HA PRODUCIDO EL ERROR 424
SE REQUIERE UN OBJETO
1
2
3
Set Fm = Screen.ActiveForm
TbEjercicio = Fm.Ejercicio.Column(1)
Set TbDeclarados = Db.OpenRecordset("SELECT TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular, Sum(TbEjercicio.Recibo) AS Importe, Sum(TbEjercicio.Cuota) AS Cuota, Sum(TbEjercicio.Donativo) AS Donativo, Sum(TbEjercicio.CuotasAnteriores) AS CuotasAnteriores FROM TbEjercicio GROUP BY TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular")
SE HA PRODUCIDO EL ERROR 3078
NO SE ENCUENTRA LA TABLA TbEjercicio
1
2
3
Set Fm = Screen.ActiveForm
Set TbEjercicio = Fm.Ejercicio.Column(1)
Set TbDeclarados = Db.OpenRecordset("SELECT TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular, Sum(TbEjercicio.Recibo) AS Importe, Sum(TbEjercicio.Cuota) AS Cuota, Sum(TbEjercicio.Donativo) AS Donativo, Sum(TbEjercicio.CuotasAnteriores) AS CuotasAnteriores FROM TbEjercicio GROUP BY TbEjercicio.NifTitular, TbEjercicio.ApellidosTitular, TbEjercicio.NombreTitular")
SE HA PRODUCIDO EL ERROR 13
NO CONCIDEN LOS TIPOS
¿Alguien me puede ayudar? Creo que lo he probado de 100 maneras diferentes
Si Incluyo
1
MsgBox Fm.Ejercicio.Column(1)
Muchas gracias
Valora esta pregunta
0