Docmd.Runsql更新按组选择最大记录

Question

我希望更新“Group_ID”列中每个组的“Points”列中的最高值。下面的代码更新了最高值的值，但不会通过DoCmd.RunSQL在VBA中运行的代码按组ID更新：

DoCmd.RunSQL "Update Bos Set Flag = 'x' WHERE Points = (SELECT Max(Points) From Bos)"

添加以下“分组依据”代码后，它会因语法错误而失败：

DoCmd.RunSQL "Update Bos Set Flag = 'x' WHERE Points = (SELECT Max(Points) From Group By Group_ID From Bos)" 

我确定小组是不正确但我不确定我的下一步。 任何帮助，将不胜感激。