Problem mit Group by in Access

[p80286]

Zitat von Delphi.Narium:

Auch wenn der Quelltext dadruch länger wird und es etwas mehr Schreibarbeit wird:

Delphi-Quellcode:

Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Clear;
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('SELECT Rollenlager.Lagerplatz')
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('FROM Materialrollen');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('LEFT JOIN Rollenlager');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('ON Rollenlager.Rollennummer = Materialrollen.Rollennummer');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('where Materialrollen.[Mat-Nr] = :MatNr');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('and Materialrollen.DatumAb is NULL');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Add('group by Rollenlager.Lagerplatz');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.Parameters.ParamByName('MatNr').Value := EditMaterialeingangMatNr.Text;

Vielleicht mal so in der Art probieren?

oder so:

Delphi-Quellcode:

Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.SQL.Text:='SELECT Rollenlager.Lagerplatz'+
   'FROM Materialrollen '+
   'LEFT JOIN Rollenlager '+
   'ON Rollenlager.Rollennummer = Materialrollen.Rollennummer '+
   'where Materialrollen.[Mat-Nr] = :MatNr ' +
   'and Materialrollen.DatumAb is NULL '+
   'group by Rollenlager.Lagerplatz');
Datamodule1.ADOQueryRollenJoinLagerplatzTabelle.Parameters.ParamByName('MatNr').Value := EditMaterialeingangMatNr.Text;

Gruß
K-H