Private sub Sverka()
const tbl1$="table1"
const tbl2$="table2"
const Prostav$="777": const stolb&=7
Dim rst1 as recordset, rst2 as recordset
Set rst1=CurrentDb.OpenRecordset((tbl1, dbOpenDynaset)' тут будем проставлять в столбце 8 цифры 777
if rst1.absoluteposition=-1 then exit sub
Set rst2=CurrentDb.OpenRecordset((tbl2, dbOpenSnapshot)
if rst2.absoluteposition=-1 then exit sub
with rst1
 .movefirst
   do until .EOF
' ищем совпадение
        rst2.findfirst "[Stolbec7]=" & .fields(6) ' если это число, если это текст нужнодобавить скобки
         If rst2.nomatch then ' совпадений нет
         .edit
           .fields(stolb)=Prostav
           .update
         end if
  .movenext
Loop
end with
end sub