Problemas con la función Dsum

   Buenos días
Estoy intentando hacer sumas en una tabla con las condiciones de Proveedor y Año de la factura.

Pongo esto

A = TB1![PROVEEDOR]
B = Year(Forms!EMISIONINFORMES!VFFDESDE)
FILTRO = "[PROVEEDOR] = '" & A & "' AND YEAR[FECHAFACT] = " & B
D = DSum("IMPORTE", "VENCIMIENTOS", FILTRO)

Al ejecutarlo me dice :

"Se ha producido el error 3075' en tiempo de ejecución.

Error de sintaxis (falta operador) en la expresión de la consulta ......

Muchas gracias de antemano.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
simonpru Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 24/Febrero/2009 Localización: España Estado: Sin conexión Puntos: 194	Opciones de entrada Responder Cita simonpru Informar de mensaje Gracias(0) Cita Respuesta Tema: Problemas con la función Dsum Enviado: 21/Febrero/2023 a las 11:45
	Buenos días Estoy intentando hacer sumas en una tabla con las condiciones de Proveedor y Año de la factura. Pongo esto A = TB1![PROVEEDOR] B = Year(Forms!EMISIONINFORMES!VFFDESDE) FILTRO = "[PROVEEDOR] = '" & A & "' AND YEAR[FECHAFACT] = " & B D = DSum("IMPORTE", "VENCIMIENTOS", FILTRO) Al ejecutarlo me dice : "Se ha producido el error 3075' en tiempo de ejecución. Error de sintaxis (falta operador) en la expresión de la consulta ...... Muchas gracias de antemano.

simonpru Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 24/Febrero/2009 Localización: España Estado: Sin conexión Puntos: 194	Opciones de entrada Responder Cita simonpru Informar de mensaje Gracias(0) Cita Respuesta Enviado: 21/Febrero/2023 a las 12:06
	Solucionado. Podeis cerrar hilo. La solución ha sido ponerlo asi FILTRO = "[PROVEEDOR] = '" & A & "' AND YEAR(FECHAFACT) = YEAR(FORMS!EMISIONINFORMES!VFFDESDE)" D = DSum("IMPORTE", "VENCIMIENTOS", FILTRO)

simonpru Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 24/Febrero/2009 Localización: España Estado: Sin conexión Puntos: 194	Opciones de entrada Responder Cita simonpru Informar de mensaje Gracias(0) Cita Respuesta Enviado: 21/Febrero/2023 a las 12:26
	Perdón por las molestias. Cuando esa suma es = o mayor de 3000, quiero pasar datos de esa tabla a una tabla temporal para crear un informe lo hago asi If D >= 3000 Then B = Year(Forms!EMISIONINFORMES!VFFDESDE) Set TB2 = CurrentDb.OpenRecordset("SELECT * FROM VENCIMIENTOS WHERE [PROVEEDOR] = '" & A & "' AND Year([FECHAFACT]) = B") Do Until TB2.EOF TB3.AddNew TB3![PROVEEDOR] = TB2![PROVEEDOR] TB3![NUMFACT] = TB2![NUMFACT] TB3![FECHAFACT] = TB2![FECHAFACT] TB3![BASEIMPONIBLE] = TB2![BASEIMPONIBLE] TB3![IVA] = TB2![IVA] TB3![IMPORTE] = TB2![IMPORTE] TB3.Update TB2.MoveNext Loop End If pero al ejecutar la orden de seleccionar la tabla para incorporar registros me salta y me dice "pocos parámetros. Se esperaba 1. No veo donde está el error. Gracias de antemano.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 21/Febrero/2023 a las 17:27
	Pon un punto de interrupción y comprueba el valor de: "SELECT * FROM VENCIMIENTOS WHERE [PROVEEDOR] = '" & A & "' AND Year([FECHAFACT]) = B"
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

simonpru Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 24/Febrero/2009 Localización: España Estado: Sin conexión Puntos: 194	Opciones de entrada Responder Cita simonpru Informar de mensaje Gracias(0) Cita Respuesta Enviado: 21/Febrero/2023 a las 21:08
	Se puede cerrar hilo. Todo solucionado.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 21/Febrero/2023 a las 21:58
	Y el problema era???
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es