Visual Basic - Error al seleccionar tabla

Life is soft - evento anual de software empresarial
   
Vista:

Error al seleccionar tabla

Publicado por JAVIER (2 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:

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)
Me responde Declarados2016 perfectamente
Muchas gracias
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