Query 1:
"SELECT Key, Postcode FROM table WHERE Postcode LIKE '* *'"
get that into a recordset in VBA, then do
Dim rs as DAO.RecordSet
Set rs = CurrentDB.OpenRecordset("SELECT Key, Postcode FROM table WHERE Postcode LIKE '* *'")
With rs
While not .EOF
CurrentDB.Execute "UPDATE...