Access - Año y morosos

Hola y gracias a todos de antemano:

Estoy haciendo una BD de una asociación y ahora estoy con una consulta para saber que socios no han pagado su cuota en un año "X"

Para ello tengo hechas tres consultas con las que me salen las personas que no me han pagado ese año "X", pero si el socio fue dado de alta el año siguiente también me aparece como no pagado en ese año "X"

Las consultas son las siguientes:

1º TODOS LOS SOCIOS
SELECT socios.[Nº Socio], socios.Nombre, socios.[1º Apellido], socios.[2º Apellido], socios.[Fecha de alta]
FROM socios;

2º AÑO PAGADO/u]
SELECT [TODOS LOS SOCIOS].[Nº Socio], [TODOS LOS SOCIOS].Nombre, [TODOS LOS SOCIOS].[1º Apellido], [TODOS LOS SOCIOS].[2º Apellido], cuotas.Año, cuotas.Cantidad
FROM cuotas LEFT JOIN [TODOS LOS SOCIOS] ON cuotas.Nº_Socio = [TODOS LOS SOCIOS].[Nº Socio]
WHERE (((cuotas.Año)=[QUE AÑO]));

3º [u]FINAL
SELECT [TODOS LOS SOCIOS].[Nº Socio], [TODOS LOS SOCIOS].Nombre, [TODOS LOS SOCIOS].[1º Apellido], [TODOS LOS SOCIOS].[2º Apellido], [AÑO PAGADOS].Cantidad
FROM [TODOS LOS SOCIOS] LEFT JOIN [AÑO PAGADOS] ON [TODOS LOS SOCIOS].[Nº Socio]=[AÑO PAGADOS].[Nº Socio]
WHERE ((([AÑO PAGADOS].Cantidad) Is Null));

Espero que alguien pueda ayudarme con mi problema. Muchas gracias nuevamente.

Hola,

¿Me puedes decir las tablas y campos de esas tablas?

Saludos, Angeles

http://angelessebas.es/

Hola Angeles:

La base solo tiene dos tablas, socios y cuotas.

socios

Nº socio
Nombre
....
Fecha de alta
Fecha de baja

cuotas

Nº Socio
Año
Cantidad

Hola,

Yo lo haría de la siguiente forma.

Supongamos que las tablas Socios tiene los campos NumSocio, FechaAlta y FechaBaja y la tabla Cuotas: NumSocio, Año y Cuota.

Crearia otra tabla que llamo Estado con los campos NumSocio, Año y Pagado

Con un código llenaría esta tabla viendo los pagados y no pagados, así tendría todo en la misma tabla.

El código sería:

Function EstadoCuentas()

Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim vAño As Integer

Set db = CurrentDb

DoCmd.RunSQL "Delete * from Estado"

Set rs1 = db.OpenRecordset("Estado")

Set rs2 = db.OpenRecordset("Select * from socios where FechaBaja is null")

Do While Not rs2.EOF

vAño = Year(rs2!FechaAlta)

Do While vAño <= Year(Date)

If IsNull(DLookup("[NumSocio]", "[Cuotas]", "NumSocio='" & rs2!NumSocio & "' and Año=" & vAño & "")) = True Then

rs1.AddNew
rs1!NumSocio = rs2!NumSocio
rs1!Año = vAño
rs1!Pagado = "No"
rs1.Update

Else

rs1.AddNew
rs1!NumSocio = rs2!NumSocio
rs1!Año = vAño
rs1!Pagado = "Si"
rs1.Update

End If

vAño = vAño + 1
Loop

rs2.MoveNext
Loop

End Function

Saludos, Angeles

http://angelessebas.es/

Y, ¿cual es la función de la tabla Estado? Porque los campos son los mismos que la tabla "cuotas"

Hola,

La tabla Estado lo que te dice es, para un socio y año, los pagados o no. Por eso se genera nueva cada vez que pasas el código, ya que si te fijas, lo primero que hago es un DELETE de esa tabla.

Te explico el código:

Function EstadoCuentas()

'declaramos las variables

Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim vAño As Integer

'activamos la base de datos

Set db = CurrentDb

'Borramos la tabla Estado y la asociamos al recordset rs1

DoCmd.RunSQL "Delete * from Estado"

Set rs1 = db.OpenRecordset("Estado")

'Abrimos el recordset rs2 basado en la tabla socios que estén activos (es decir sin fecha de baja)

Set rs2 = db.OpenRecordset("Select * from socios where FechaBaja is null")

'Recorremos el recordset rs2

Do While Not rs2.EOF

'asociamos la variable vAño al año de la fecha de alta

vAño = Year(rs2!FechaAlta)

'Hacemos un bucle que se complete mientras esta variable sea menor o igual al año del día actual

Do While vAño <= Year(Date)

'con dlookup lo que hacemos es buscar en la tabla cuotas si existe algún registro para ese año y
'ese socio

If IsNull(DLookup("[NumSocio]", "[Cuotas]", "NumSocio='" & rs2!NumSocio & "' and Año=" & vAño & "")) = True Then

'si no existe es que no ha pagado e insertamos el registro en la tabla estado con pagado=No

rs1.AddNew
rs1!NumSocio = rs2!NumSocio
rs1!Año = vAño
rs1!Pagado = "No"
rs1.Update

Else

'si existe lo insertamos en la misma tabla, pero con pagado=Sí

rs1.AddNew
rs1!NumSocio = rs2!NumSocio
rs1!Año = vAño
rs1!Pagado = "Si"
rs1.Update

End If

vAño = vAño + 1
Loop

rs2.MoveNext
Loop

End Function

De este modo en la tabla Estado tienes todo lo que quieres, pagados y no pagados y sobre ella podrás hacer las consultas pertinentes.

Me cuentas, saludos Angeles

http://angelessebas.es/