How to write code to delete record based on field value?

[VAer]

Dim dbs As Database

Set dbs = CurrentDb

'Step 1: Identify those records from TableGroup, and copy them to TableGroupDeleted, those two tables have similar data structure, except last field (add the current date)
'Step 2: Delete any records from TableGroup which do not have administrator in the group.

dbs.Execute "DELETE * FROM TableGroup WHERE there is not administrator in the group;"


Me.Refresh
dbs.Close

I have two tables: TableGroup & TableGroupDeleted

TableGroup: A group can have one or multiple administrators, or NO administrator.

Take attached two screenshots for example, in first screenshot TableGroup, I would like to delete any groups which do not have administrator. For this screenshot, I will need to need Group3, and there are two records associated with Group3; therefore, the last two records will need to be deleted. But before being deleted, those two records will need to be copied to TableGroupDeleted, which has similar data structure except last field (Copy 5 fields and add current date for last field DateDeleted).

How can I write the code?

Thanks.