Question

我正在使用Access中的MakeTable查询。我想这样做，以便创建表中的一个字段将是2015年1月1日至2015年11月30日期间按时间顺序排列的日期列表。如何在Access查询设计视图中完成此操作？

Answer 1

您可以创建查询：

SELECT DISTINCT 
    Abs([id] Mod 10) AS N
FROM 
    MsysObjects;

将其另存为qdxNumber10

现在使用笛卡尔加入（乘法）创建一个查询以生成日期：

SELECT 
    DateAdd("d",[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100,#2/1/2015#) AS [Date]
FROM 
    qdxNumber10 AS qdxNumber10_0, 
    qdxNumber10 AS qdxNumber10_1, 
    qdxNumber10 AS qdxNumber10_2
WHERE 
    DateAdd("d",[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100,#2/1/2015#) <= #11/30/2015#;

在创建表格时将其用作源。

要生成当前年份的所有日期，请使用：

SELECT 
    DateAdd("d",[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100,DateSerial(Year(Date()),1,1)) AS [Date]
FROM 
    qdxNumber10 AS qdxNumber10_0, 
    qdxNumber10 AS qdxNumber10_1, 
    qdxNumber10 AS qdxNumber10_2
WHERE 
    DateAdd("d",[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100,DateSerial(Year(Date()),1,1)) <= DateSerial(Year(Date()),12,31);

或直接使用DateSerial：

SELECT 
    DateSerial(Year(Date()),1,1+[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100) AS [Date]
FROM 
    qdxNumber10 AS qdxNumber10_0, 
    qdxNumber10 AS qdxNumber10_1, 
    qdxNumber10 AS qdxNumber10_2
WHERE 
    DateSerial(Year(Date()),1,1+[qdxNumber10_0].[N]+[qdxNumber10_1].[N]*10+[qdxNumber10_2].[N]*100) <= DateSerial(Year(Date()),12,31);

Answer 2

我创建一个包含三个字段的表：

[Snapshot Date]   date
[CountA]          number
[CountB]          number

使用各种日期（包括您的日期）填写Snapshot Date列 - 您可以通过代码执行此操作，也可以只从电子表格中剪切/粘贴。

然后保存类似于此的交叉表查询：

TRANSFORM Avg([All Dates].[CountB]) AS DeleteMe
SELECT [All Dates].[CountA]
FROM [All Dates]
WHERE [All Dates].[Snapshot Date] Between #1/2/2015# and #11/30/2015#
GROUP BY [All Dates].[CountA]
PIVOT [All Dates].[Snapshot Date];

（保存此查询后，您应该可以切换到设计视图并查看设计器的外观）

假设上面的交叉表查询名为All Dates Crosstab，您可以：

select *
into [My New Table]
from [All Dates Crosstab]

在Access Query中创建日期列表

2 个答案: