MS Access 折线图为 X 轴创建值

Question

我在 MS Access 中有一个结构如下的表（示例）

零件号	测试时间	清洁度 class A	清洁度 class B
乙	2021-06-12 15:22:22.00	20	30
一个	2021-06-14 13:04:22.00	400	50
一个	2021-06-14 13:28:28.00	200	60
一个	2021-06-14 14:17:5.00	300	11
乙	2021-06-17 09:25:7.00	18	5
乙	2021-06-17 09:37:7.00	21	17
一个	2021-06-25 11:53:18.00	150	70
C	2021-06-26 18:01:01.00	210	30

如您所见，不同部件的清洁度没有特定顺序进行测试。

我的目标是创建每个清洁度 class 的清洁度折线图，其中包含我选择的包含所有零件编号的列表的零件编号，同时还选择了一个时间范围。

测试时间

起初我有两个文本框，您可以在其中放置开始日期和结束日期。 使用以下代码，我进行查询，仅选择这些日期之间的行。

Private Sub Befehl11_Click()
'Dates
Dim Anfang As Variant
Dim Ende As Variant

Text5.SetFocus
Anfang = Text5.Text

Text7.SetFocus
Ende = Text7.Text

Dim dbs As DAO.Database
Dim qdf As QueryDef
Dim strSQL As String
Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef("DatumGefiltert")
Application.RefreshDatabaseWindow
'SELECT-Statement bauen Build Select Statement 
strSQL = "SELECT * FROM dbo_Cleanliness WHERE Format(dbo_Cleanliness.Date_of_Analysis,'yyyy-MM-dd hh:mm:ss') >= Format("""
strSQL = strSQL & Anfang & " 00:00:00"""
strSQL = strSQL & ",""yyyy-MM-dd hh:mm:ss"") AND Format(dbo_Cleanliness.Date_of_Analysis,'yyyy-MM-dd hh:mm:ss') <= Format("""
strSQL = strSQL & Ende & " 23:59:00"" , ""yyyy-MM-dd hh:mm:ss"")"
Text9.SetFocus
Text9.Text = strSQL

qdf.SQL = strSQL

End Sub 

列表

下一步是创建一个可以选择多个零件编号的列表。 首先，我创建了一个查询，它只使用 SELECT DISTINCT 选择列“部件号”

| 零件号 |
|:--|
|一个 |
|B |
|C|
然后我在一个表单中创建了一个列表框，该查询作为源并启用了多选
列表框带有一个按钮，运行以下代码来构建和执行查询

Private Sub Befehl4_Click()

Dim ctlSource As Control
Dim strItems As String
Dim intCurrentRow As Integer

'My listbox
Set ctlSource = Liste2

'The objects of the WHERE clause
For intCurrentRow = 0 To ctlSource.ListCount - 1
If ctlSource.Selected(intCurrentRow) Then

strItems = strItems & " " & "Nummer = " & ctlSource.Column(0, intCurrentRow) & " Or "
 End If
 Next intCurrentRow
 
'Get rid of the last OR

strItems = Left(strItems, Len(strItems) - 4)

'Build the Query
        Dim dbs As DAO.Database
        Dim qdf As DAO.QueryDef
        Dim strSQL As String

        Set dbs = CurrentDb
        Set qdf = dbs.CreateQueryDef("myQuery2")
        Application.RefreshDatabaseWindow

      strSQL = "SELECT * FROM DatumGefiltert "
      strSQL = strSQL & "WHERE "
      strSQL = strSQL & strItems
'Order By part number(Nummer) and time of testing(Datum)
      strSQL = strSQL & " ORDER BY Nummer, Datum"

'RUN Query

   qdf.SQL = strSQL

'CLEAR the variables
      '  qdf.Close
'        Set qdf = Nothing
'        Set dbs = Nothing

End Sub

如果我想得到列表框中的 select A 和 B。

零件号	测试时间	清洁度 class A	清洁度 class B
一个	2021-06-14 13:04:22.00	400	50
一个	2021-06-14 13:28:28.00	200	60
一个	2021-06-14 14:17:5.00	300	11
一个	2021-06-25 11:53:18.00	150	70
乙	2021-06-12 15:22:22.00	20	30
乙	2021-06-17 09:25:7.00	18	5
乙	2021-06-17 09:37:7.00	21	17

现在我想为每个包含零件号的清洁度等级创建一个折线图。

所需图表

我现在的问题是：

• 如果我将分析日期用作 x 轴的值，则不会连接线

我的想法是添加一个新列，其中包含该部件的测试次数。

零件号	测试时间	清洁度 class A	清洁度 class B	测试编号
一个	2021-06-14 13:04:22.00	400	50	1
一个	2021-06-14 13:28:28.00	200	60	2
一个	2021-06-14 14:17:5.00	300	11	3
一个	2021-06-25 11:53:18.00	150	70	4
乙	2021-06-12 15:22:22.00	20	30	1
乙	2021-06-17 09:25:7.00	18	5	2
乙	2021-06-17 09:37:7.00	21	17	3

列测试编号中的这些值可用作 X 轴。

但不幸的是我不知道该怎么做？

或者有没有更简单的方法来实现我的线图？

提前致谢。 如果有不清楚的地方，请要求澄清。

问候阿里洪

Answer 1

我有 Access 2010，只能使用经典的 MSGraph，不能使用 ModernChart。

以下假设有一个唯一 ID 字段（如果没有，可以轻松添加自动编号类型），否则使用 [测试时间] 字段作为唯一标识符。

构建并保存 Query1（将Data替换为您的表或查询名称）：

SELECT ID, [part number], [time of testing], [cleanliness class A] AS Cleanliness, 
      "A" AS Class, 
      DCount("*","Data","[part number]='" & [part number] & "' AND ID<=" & [ID]) AS [Test Number] 
      FROM Data
UNION 
SELECT ID, [part number], [time of testing], [cleanliness class B], "B", 
      DCount("*","Data","[part number]='" & [part number] & "' AND ID<=" & [ID]) 
      FROM Data;

可以使用相关子查询代替 DCount() 来计算组序列号，查看每个组的访问查询计数器

使用 RecordSource 构建表单或报告：
SELECT "A" AS Class FROM Data UNION SELECT "B" FROM Data;
创建一个名为 tbxClass 的文本框并将其绑定到 Class 字段。 Label 说明Cleanliness Class:

使用 RowSource 创建图表：

PARAMETERS [tbxClass] Text ( 255 ); 
TRANSFORM Sum(Cleanliness) AS Clean 
SELECT [Test Number] FROM Query1 
WHERE [Class]=[tbxClass] 
GROUP BY [Test Number] 
PIVOT [part number];

我无法为 ContinuousView 设置表单（错误“如果表单包含...绑定图表...，则无法将其视为连续表单”） - 以前从未遇到过，但从未使用过带有动态参数的 CROSSTAB 查询行源。 如果您希望同时查看这两个图，那么代替 WHERE 子句中的动态参数，构建两个图对象并对 Class 字段WHERE Class="A"使用 static 标准。

但是，动态参数化的 CROSSTAB RowSource 可以很好地用于报表。

强烈建议不要在命名约定中使用空格或标点符号/特殊字符，最好是： TimeOfTesting或TestTime 。