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