dim strSql1 as string
Dim strSQL as string

strSql1=strSQL1=select F(Табл2.Value2) as Result from Табл2 
strSQL2=select (Табл1.ID) where (Табл1.Value1) in (strSQL1) 
CurrentDb.Execute strSQL

Dim qdTemp As QueryDef
Dim qdfName As String
Dim strSql1 as string
Dim strSQL as string

strSql1=strSQL1=select F(Табл2.Value2) as Result from Табл2

'Название временного запроса
qdfName = "tempNumber"

 'Создать временный запрос
Set qdTemp = CurrentDb.CreateQueryDef(qdfName, strSQL1)
'Закрыть TableDef
   qdTemp.Close

      strSQL = "Select Табл1.ID from Табл1"
      strSQL = strSQL & " INNER JOIN " & qdfName & " on Табл1.Value1="
      strSQL = strSQL & qdfName & ".Value2 "
      strSQL = strSQL & "SET tmpNewFiles.flagNew=true"

'Выполнить запрос и убить временый запрос
docmd.runsql(strSQL)
DoCmd.DeleteObject acQuery, qdfName