Dim DB As DAO.Database, RSI As DAO.Recordset, RSO As DAO.Recordset
Dim sq$, ul
  Set DB = CurrentDb
  DB.Execute "DELETE * FROM выход"
  sq = "SELECT * FROM вход ORDER BY КЛЮЧ"
  Set RSI = DB.OpenRecordset(sq, dbOpenSnapshot)
  sq = "SELECT * FROM выход"
  Set RSO = DB.OpenRecordset(sq, dbOpenDynaset)
  ul = Null
  Do Until RSI.EOF
    If Not IsNull(RSI!УЛИЦА) Then ul = RSI!УЛИЦА
    If Not (IsNull(RSI!ДОМ) Or IsNull(ul)) Then
      RSO.AddNew
      RSO!КЛЮЧ = RSI!КЛЮЧ: RSO!УЛИЦА = ul: RSO!ДОМ = RSI!ДОМ
      RSO.Update
    End If
    RSI.MoveNext
  Loop
  RSI.Close: RSO.Close
  Set RSI = Nothing: Set RSO = Nothing: Set DB = Nothing