Visual Basic para Aplicaciones - error de compilacion y sintaxis

Life is soft - evento anual de software empresarial
   
Vista:

error de compilacion y sintaxis

Publicado por Patrik (1 intervención) el 09/10/2009 08:04:55
Hola tengo un problema y no se como resolverlo, por más que busco no encuentro la solución.
Tengo una Bdaccess y este es mi codigo. al ejecutarlo me da error de compilacion y de sintaxis.

Set RcClasificacion = Bd.OpenRecordset("SELECT DISTINCTROW
Equipos.Equipo,
IIf(IsNull([0ECasa].[Partidos]),0,[0ECasa].[Partidos])+IIf(IsNull([0EFuera].[Partidos]),0,[0EFuera].[Partidos])+IIf(IsNull([0GCasa].[Partidos]),0,[0GCasa].[Partidos]*3)+IIf(IsNull([0GFuera].[Partidos]),0,[0GFuera].[Partidos]*3) AS Puntos,
Equipos.Variable,
IIf(IsNull([0gcasa].[gcasa]),0,[0gcasa].[gcasa])+IIf(IsNull([0gfuera].[gfuera]),0,[0gfuera].[gfuera])+IIf(IsNull([0ecasa].[gcasa]),0,[0ecasa].[gcasa])+IIf(IsNull([0efuera].[gfuera]),0,[0efuera].[gfuera])+IIf(IsNull([0pcasa].[gcasa]),0,[0pcasa].[gcasa])+IIf(IsNull([0pfuera].[gfuera]),0,[0pfuera].[gfuera])-(IIf(IsNull([0gcasa].[gfuera]),0,[0gcasa].[gfuera])+IIf(IsNull([0gfuera].[gcasa]),0,[0gfuera].[gcasa])+IIf(IsNull([0ecasa].[gfuera]),0,[0ecasa].[gfuera])+IIf(IsNull([0efuera].[gcasa]),0,[0efuera].[gcasa])+IIf(IsNull([0pcasa].[gfuera]),0,[0pcasa].[gfuera])+IIf(IsNull([0pfuera].[gcasa]),0,[0pfuera].[gcasa])) AS GolAvg,
Equipos.Anotacl,
[PGC]+[PGF]+[PEC]+[PEF]+[PPC]+[PPF] AS Jugados,
IIf(IsNull([0GCasa].[Partidos]),0,[0GCasa].[Partidos]) AS PGC,
IIf(IsNull([0GFuera].[Partidos]),0,[0GFuera].[Partidos]) AS PGF,
IIf(IsNull([0ECasa].[Partidos]),0,[0ECasa].[Partidos]) AS PEC,
IIf(IsNull([0EFuera].[Partidos]),0,[0EFuera].[Partidos]) AS PEF,
IIf(IsNull([0PCasa].[Partidos]),0,[0PCasa].[Partidos]) AS PPC,
IIf(IsNull([0PFuera].[Partidos]),0,[0PFuera].[Partidos]) AS PPF,
IIf(IsNull([0gcasa].[gcasa]),0,[0gcasa].[gcasa])+IIf(IsNull([0gfuera].[gfuera]),0,[0gfuera].[gfuera])+IIf(IsNull([0ecasa].[gcasa]),0,[0ecasa].[gcasa])+IIf(IsNull([0efuera].[gfuera]),0,[0efuera].[gfuera])+IIf(IsNull([0pcasa].[gcasa]),0,[0pcasa].[gcasa])+IIf(IsNull([0pfuera].[gfuera]),0,[0pfuera].[gfuera]) AS GFavor,
IIf(IsNull([0gcasa].[gfuera]),0,[0gcasa].[gfuera])+IIf(IsNull([0gfuera].[gcasa]),0,[0gfuera].[gcasa])+IIf(IsNull([0ecasa].[gfuera]),0,[0ecasa].[gfuera])+IIf(IsNull([0efuera].[gcasa]),0,[0efuera].[gcasa])+IIf(IsNull([0pcasa].[gfuera]),0,[0pcasa].[gfuera])+IIf(IsNull([0pfuera].[gcasa]),0,[0pfuera].[gcasa]) AS GContra
FROM (((((Equipos LEFT JOIN 0ECasa ON Equipos.IdEq = [0ECasa].Equipo) LEFT JOIN 0EFuera ON Equipos.IdEq = [0EFuera].Equipo) LEFT JOIN 0GCasa ON Equipos.IdEq = [0GCasa].Equipo) LEFT JOIN 0PFuera ON Equipos.IdEq = [0PFuera].Equipo) LEFT JOIN 0PCasa ON Equipos.IdEq = [0PCasa].Equipo) LEFT JOIN 0GFuera ON Equipos.IdEq = [0GFuera].Equipo WHERE (((Equipos.Div) = 1))
ORDER BY IIf(IsNull([0ECasa].[Partidos]),0,[0ECasa].[Partidos])+IIf(IsNull([0EFuera].[Partidos]),0,[0EFuera].[Partidos])+IIf(IsNull([0GCasa].[Partidos]),0,[0GCasa].[Partidos]*3)+IIf(IsNull([0GFuera].[Partidos]),0,[0GFuera].[Partidos]*3) DESC , Equipos.Variable, IIf(IsNull([0gcasa].[gcasa]),0,[0gcasa].[gcasa])+IIf(IsNull([0gfuera].[gfuera]),0,[0gfuera].[gfuera])+IIf(IsNull([0ecasa].[gcasa]),0,[0ecasa].[gcasa])+IIf(IsNull([0efuera].[gfuera]),0,[0efuera].[gfuera])+IIf(IsNull([0pcasa].[gcasa]),0,[0pcasa].[gcasa])+IIf(IsNull([0pfuera].[gfuera]),0,[0pfuera].[gfuera])-(IIf(IsNull([0gcasa].[gfuera]),0,[0gcasa].[gfuera])+IIf(IsNull([0gfuera].[gcasa]),0,[0gfuera].[gcasa])+IIf(IsNull([0ecasa].[gfuera]),0,[0ecasa].[gfuera])+IIf(IsNull([0efuera].[gcasa]),0,[0efuera].[gcasa])+IIf(IsNull([0pcasa].[gfuera]),0,[0pcasa].[gfuera])+IIf(IsNull([0pfuera].[gcasa]),0,[0pfuera].[gcasa])) DESC;
Set RcTabla = Bd.OpenRecordset("tabla")

UN saludo y 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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Control de Stock
- Quinigrama
- Copiar una celda, fila o columna

RE:error de compilacion y sintaxis

Publicado por deboh (12 intervenciones) el 15/10/2009 11:44:40
Hola ,
Según parece puede que te faalte ")" para cerrar el primer Openrecordset.

Segun lo que has puesto tienes :
Set RcClasificacion = Bd.OpenRecordset("SELECT DISTINCTROW ....;
verifica:
Set RcClasificacion = Bd.OpenRecordset("SELECT DISTINCTROW ....")

No se, es lo que me ha parecido ver.
Saludos
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