使用条件 MS Access 制作序列序列的问题

如何解决使用条件 MS Access 制作序列序列的问题

大家好，很高兴来到这里。我在 MS Access 中制作带有条件的序列序列时遇到了一个问题。假设我有两班工作的机器数量。每个班次我都会收到一份关于每台机器停机时间的报告，同一班次中的同一台机器可能有多个问题。我的目标是计算这些问题并为其制作一个有序的连续剧。例如，我在 Excel 中使用 countifs 公式制作并运行良好 - 参见图片。 4 条件（PoNumber-Shift-MachineNumber-Zdate）

我在 Access 中尝试了我所知道的一切，但卡住了。我尝试了 Count(IIf()) 但没有得到想要的结果，实现它的方法是一个记录集函数，我没有能力做到这一点。任何帮助赞赏的家伙。

编辑 #1：我之前尝试过以下内容

SELECT TblDownTime.PONumber,TblDownTime.Zdate,TblDownTime.Shift,TblDownTime.MachineNumber AS MachineNum,Count(TblDownTime.Shift) AS CountOfShift
FROM TblDownTime
GROUP BY TblDownTime.PONumber,TblDownTime.MachineNumber
HAVING (((TblDownTime.PONumber)=[Forms]![FrmDownTime]![PONum]) AND ((TblDownTime.Zdate)=[Forms]![FrmDownTime]![Zzdate]) AND ((TblDownTime.Shift)=[Forms]![FrmDownTime]![Shift]) AND ((TblDownTime.MachineNumber)=[Forms]![FrmDownTime]![MachineNumber]));

这是一个查询，它应用我的条件并返回每个停机原因的最后一个序列作为表单中的变量 (Sr)。然后在表单 Me.Serial = Sr+1 中的 MachineNumber 字段中进行更新。这种方式可以很好地处理一条记录，但是当我尝试粘贴 20 条记录时，它计算错误并且有时会给我重复。所以这不是最好的方法。我需要一种可以在当时粘贴多条记录的方法。再次感谢。

编辑 #2 我使用生成的序列来格式化像这个“Num”&Serial 像 Num1,Num2 一样在下面的查询中使用

SELECT TblDownTime.PONumber,TblDownTime.MachineNumber,IIf([SerialFormat]="Num1" And [MachineNumber]=[MachineNumber],[ReasonCode],"") AS Code1,[Reason],"") AS Reason1,[DepartmentResponsible],"") AS Dept1,[StoppedFrom],"") AS From1,[StoppedTo],"") AS To1,[TotalDownTime/Min],"") AS TotalDownTime1
FROM TblDownTime
WHERE (((IIf([SerialFormat]="Num1" And [MachineNumber]=[MachineNumber],""))<>""));

明天我将在评论中尝试另一种方式，如果有人帮助我使用直接在表格上操作的记录集函数，我将不胜感激，我会在我的表单中的 OnClose 事件中使用它..非常感谢

>

解决方法

这是一个需要考虑的程序。从最能满足您需求的任何活动中致电。

Sub MakeNum()
Dim rs As DAO.Recordset,intS As Integer,strG As String
Set rs = CurrentDb.OpenRecordset("SELECT PONumber & MachineNumber & ZDate & Shift AS Grp,ReasonSerial " & _
                 "FROM tblDowntime WHERE ReasonSerial Is Null ORDER BY PONumber,MachineNumber,ZDate,Shift,ID")
strG = rs!grp
While Not rs.EOF
    If strG = rs!grp Then
        intS = intS + 1
        rs.Edit
        rs!ReasonSerial = intS
        rs.Update
        rs.MoveNext
    Else
        intS = 0
        strG = rs!grp
    End If
Wend
End Sub

它只编辑 ReasonSerial 为 Null 的新记录。如果您需要重新计算所有记录的序列，则在程序开始时包含一个 UPDATE：
CurrentDb.Execute "UPDATE tblDowntime SET ReasonSerial=Null"