从当前表中的值创建新表中的表条目数

时间:2016-07-06 14:34:10

标签: ms-access ms-access-2013

我很好奇是否有一种方法可以在表中使用值来在第二个表中创建该数量的条目。例如,在第一个表中,您有零件装配的条目,每个零件都有一定数量的螺栓孔。在新表中,单元和组件名称应传递给每个相关的孔,以便用户可以为每个孔填充其他属性。因此,如果第一个表中有5个孔,则应创建5行,螺栓编号为1-5。谢谢!

1 个答案:

答案 0 :(得分:0)

没什么好用的,但这里有基础知识:

Public Sub CreateRandomRecords(ByVal lngRecords As Long)

    Dim wks     As DAO.Workspace
    Dim dbs     As DAO.Database
    Dim rst     As DAO.Recordset

    Dim lngLoop As Long

    Set wks = DBEngine(0)
    Set dbs = wks.Databases(0)
    Set rst = dbs.OpenRecordset("tblRandom")

    wks.BeginTrans
    With rst
        While lngLoop < lngRecords
            .AddNew
            .Update
            If Err.Number = 0 Then
                lngLoop = lngLoop + 1
            End If
        Wend
        .Close
    End With
    wks.CommitTrans

    Set rst = Nothing
    Set dbs = Nothing

End Sub

当然,如果你使用子表单,使用它的 RecordsetClone 作为记录集会更快更简单。