現在のテーブルの値から新しいテーブルのテーブルエントリ数を作成する

Question

テーブル内の値を使って2番目のテーブルにその値のエントリを作成する方法があるかどうか不思議です。たとえば、最初のテーブルには部品アセンブリのエントリがあり、それぞれには特定の数のボルト穴が関連付けられています。新しいテーブルでは、ユニットとアセンブリ名を関連付けられた各穴に渡す必要があります。これにより、ユーザーは穴ごとに他の属性を記入できます。したがって、最初のテーブルに5つの穴がある場合、ボルト番号1〜5の5つの行が作成されます。ありがとう！

Answer 1

ないで動作するように多くのが、ここでは基本です：もちろん

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を使用することがはるかに高速かつ簡単になりますレコードセット。