时间戳

首页 > 解决方案 > 创建与表字段值相等的记录数

ms-access - 创建与表字段值相等的记录数

问题描述

我有一张带有ID, product number, product description,qty字段的表格。

现在我想创建一个新表，其中包含qty父表字段给出的一定数量的记录。

例如，如果父表在子表中有一条记录，qty = 6则它应该创建6序列号从 1 到 6 的记录。

标签： ms-accessvba

解决方案

您可以使用这样的简单循环：

Dim rs As DAO.Recordset
Dim Record As Integer
Dim Records As Integer

Set rs = CurrentDb.OpenRecordset("Select * From YourTable")
' Count of records - use value from your quantity field:
Records = 5 

For Record = 1 To Records
    rs.AddNew
        rs!SomeID.Value = Record
        rs!Field1.Value = SomeValue
        rs!Field2.Value = SomeOtherValue
        rs!Field3.Value = YetAnotherValue
   rs.Update
Next
rs.Close

Set rs = Nothing

推荐阅读