Select registros master según nº de líneas de detalle

[[poliburro]]

Entonces pruebalo así

Código SQL [-]


 
With DM.IBDSAlumnos Do  Begin    
    SelectSQL.Text :=
      '    Select Maestro.CODIALUMNO, Count(*) ' +
      '      From ALUMNOS As Maestro ' +      ' Left Join FALTAS As Faltas   ' +
      '        On Maestro.CODIALUMNO = Faltas.CALUMNO ' +
      '  Group By Maestro.CODIALUMNO ' +
      ' Having Count(*) between ' + EDesde.Text + ' And ' + EHasta.Text;  
End;