Hola tengo otro error raro porque lo parentesis estan bien. Si alguien me pudiera ayudar se lo agradeceria, gracias.
Se ha producido un error 3075 en el tiempo de ejecucion: Sobra un parantesis de cierre ) en la expresion de la consulta ' (([Proveedores una Cuenta].[Clave banco]) <> '00000000')
And ((PAGOS.Transfer) = [Forms]![cuadro fechas transfer]![TransfN]) And ((PAGOS.Vencimiento) =# fecvencinto #)
And ((PAGOS.Correcta) = 'C') And ((PAGOS.Pagado) = No) And ((PAGOS.[Forma de pago]) = 'TR') And ((PAGOS.Estado) <> 'A') And ((PAGOS.Banco) ="[Forms]![cuadro fechas transfer]![Banco]')
And (([Proveedores una Cuenta].Bloqueo) <> 'BLOQUEO') And ((PAGOS.Cesión) = 0)) '
1 STRSQL = "SELECT DISTINCTROW Pagos.EnEuros, [Proveedores una Cuenta].nombre as Proveedor, [Proveedores una Cuenta].CIF, [Proveedores una Cuenta].Calle, [Proveedores una Cuenta].Población AS Pobla, "
2 STRSQL = STRSQL & "Pagos.[Su factura], [Proveedores una Cuenta].[Clave banco] AS ClaBan, [Proveedores una Cuenta].[Nº de cuenta] AS CTA, Pagos.Total, [Bancos propios].Bank, "
3 STRSQL = STRSQL & "[Bancos propios].Coco, IIf(IsNull([DC]) Or [DC]='',' ',[DC]) AS DICO FROM ([Bancos oficinas para relaciones] INNER JOIN [Proveedores una Cuenta] ON "
4 STRSQL = STRSQL & "[Bancos oficinas para relaciones].[Clave para relaciones] = [Proveedores una Cuenta].[Clave banco]) INNER JOIN ([Bancos propios] INNER JOIN Pagos ON "
5 STRSQL = STRSQL & "[Bancos propios].[Clave cuenta] = Pagos.Banco) ON ([Proveedores una Cuenta].CLA_ENT = Pagos.CLA_ENT) AND ([Proveedores una Cuenta].COD_ENT = Pagos.COD_ENT) WHERE ((([Proveedores una Cuenta].[Clave banco]) <> '00000000') "
6 STRSQL = STRSQL & "And ((PAGOS.Transfer) =" & [Forms]![cuadro fechas transfer]![TransfN] & ") And ((PAGOS.Vencimiento) =#" & fecvencinto & "#) "
7 STRSQL = STRSQL & "And ((PAGOS.Correcta) = 'C') And ((PAGOS.Pagado) = No) And ((PAGOS.[Forma de pago]) = 'TR') And ((PAGOS.Estado) <> 'A') And ((PAGOS.Banco) ='" & [Forms]![cuadro fechas transfer]![Banco] & "') "
8 STRSQL = STRSQL & "And (([Proveedores una Cuenta].Bloqueo) <> 'BLOQUEO') And ((PAGOS.Cesión) = 0)) ORDER BY [Proveedores una Cuenta].nombre;"
9 Set Origen = PAGOS.OpenRecordset(STRSQL)
(Aqui me sale el error)