Tienes Razon casimiro, como se me fue a olvidar jejejeje
que tal vez si intentas con un if
Código Delphi
[-]
if (desdefamilia.text='') then
begin
DMList.QApuntes.Close;DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (familia = null)';
DMList.QApuntes.Open;
end
else
begin
DMList.QApuntes.Close;DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (familia >= '+ QuotedStr(DesdeFamilia.Text)+') and (familia <= '+ QuotedStr(HastaFamilia.Text)+')';DMList.QApuntes.Open;
end;