Access 2013 - 没有自动编号的顺序编号

Question

此站点的新用户和访问权限。 我正在尝试创建一个数据库来跟踪主日志。在顺序编号方面需要帮助。我目前有以下表格。

采购订单表 POID - 自动编号（PK）
PODate - 日期/时间
供应商 - 字符串

项目表 ItemID - 自动编号(PK)
POID - Ingeter(FK)
ItemDescription - 字符串
数量 - 整数

MasterLog 表 MasterLogID - 自动编号 (PK)
ItemID - 整数 (FK)
PieceNumber - 整数 (1,2,3 .. .etc)
MFG - 字符串
进程 - 字符串
长度 - 整数
MfgIDNum - 字符串 (ABD123XTY-1234)

我正在尝试自动化 PieceNumber 字段的数据输入。因此，当您输入新的采购订单并向其中添加项目时，一旦收到。它将在 masterlog 表中添加一行，从第 1 条开始，直到我们拥有多少条。我们根据我们购买的物品对这些物品进行编号。（即，我们购买了 100 件物品。所以我将物品 1 件从 1 到 100。）然后我们可以将其他数据添加到表中。只是试图减少一些数据输入时间并避免在该字段的编号中出现一些错误。

有什么想法吗？

Answer 1

这样的事情将是一种非常简单的方法。您必须有一个名为 Numbers 的预定义表格，其中包含从 1 到您可能拥有的数量的整数：

INSERT INTO MasterLog (ItemID, PieceNumber)
SELECT Item.ItemID, Numbers.Number
FROM Item, Numbers
WHERE (Item.ItemID = Forms!Items!ItemID) AND 
   (Numbers.Number <= Item.Quantity) 
ORDER BY Numbers.Number 

如果您想逐个添加片段，您可以在相关表单上默认 PieceNumber 字段。确保您也使用默认 MasterLog.ItemID：

=Nz(DMax("[PieceNumber]","[MasterLog]","[ItemID] = " & Forms!Items!ItemID), 0) + 1

对于 VBA 解决方案，请尝试以下操作：

Dim db As Database
Dim strSQL As String
Dim frm As Form
Dim i As Integer

    Set db = CodeDb()
    Set frm = Forms!Items

    If frm!Quantity > 0 Then
        For i = 1 To frm!Quantity
            strSQL = "INSERT INTO MasterLog (ItemID, PieceNumber) " & _
                "SELECT " & frm!Item & " AS ItemID, " & _
                i & " AS PieceNumber"
            db.Execute strSQL, dbFailOnError
        Next i
    End If

    Set db = Nothing

所有这些都假定一个显示您当前项目的表单，称为 Items。