当字段名称是动态时vba制作表格

Question

我有一个交叉表查询，它使用动态日期函数来生成列标题和字段名称。 例如：ForecastPeriod:DateAdd("m",[Period],[StartDate]) 这意味着每次运行交叉表查询时，我最终都会得到不同的字段名称。 我需要获取此交叉表的结果，并将其与其他 3 个类似交叉表的结果相结合以创建一个新表。 现在我使用一个 make table 查询和 3 个追加查询。 我这样做的原因是在预测期间的范围内为每个物料项目包含 4 个不同类别的数据。

结果如下所示：

材料类别 Per1 值 ...Per2 值 ...... Per24 值

MatA 需求 0 ... 10 ....... 0

MatA 需求美元 $0 ... $10 .... ... $0

MatA Forecast 10 ... 20 ....... 50

MatA Forecast Dollars $10 ... $20 ....... $50

问题是 make 表查询已经根据以下结果构建当前的交叉表查询。 当我下个月运行交叉表时，结果将具有不同的字段名称。 因此，我不得不手动更改 make 表查询设计中的周期，删除不再出现在结果中的周期并添加新的周期。

有没有办法使用 VBA 创建新表，直到交叉表运行后才知道字段名称？

或者有没有办法对字段名称进行编码或在运行后从交叉表中提取它们？

如果我使用如下代码： strSQL = "选择 tblForecast.Material, tblForecast.Category, tblForecast.X " & _ “INTO tblTemp” & _ “来自 tblForecast；”

我真的不知道 tblForecast.X 实际上会被称为什么。 可能是 11/1/08 或 12/1/08 等。

如果我声明一个变量来保存字段名称并使用日期代码来更改它，如何将其添加到表中？ 我会使用 Alter Table 吗？

我确信这是可以做到的，我只是不知道如何去做，所以任何帮助将不胜感激！ 谢谢！

Answer 1

VBA 创建镜像查询列的表：

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim SourceField As DAO.Field

Set db = CurrentDb

'Create a new tabledef
Set tdf = New DAO.TableDef

'Reference existing, saved querydef
Set qdf = db.QueryDefs("Query1")

tdf.Name = "Table2"

'iterate fields in the query and create fields in the new tabledef
For Each SourceField In qdf.Fields
    Set fld = tdf.CreateField(SourceField.Name, SourceField.Type, SourceField.Size)
    tdf.Fields.Append fld
Next

'Table is created and saved when the tabledef is appended to the current db
db.TableDefs.Append tdf

Answer 2

可以使用您自己的交叉表标题，例如：

ColHead:"Month" & DateDiff("m",[SaleDate],Forms!frmForm!txtSomeDate)

这将产生名为“Month”的列标题和 txtSomeDate 的偏移量。

还可以使用 vba 构建新查询。