ms訪問在父子表中插入多行

Question

嗨，我一直在嘗試去適應先前的堆棧溢出發佈到我的情況，但總結。我有一個父子關係中的2毫秒訪問表（一對多）。我試圖寫一些VBA插入1記錄到父表和多個記錄到子表中。我看到這篇文章做了一些與我想要的東西接近的東西，但它是一對一的關係。有人能給我提供一個如何在子表中使用多行的例子嗎？

How can I make new records cascade across a one to one relationship in MS Access?

我使用的MS Access 2010和我寫的VBA在MS Excel中的模塊2010

Answer 1

這一切都涉及到如何「多」的條目表連接到「一個」表。 （除非我失去了你的問題的地步。）這個例子的工作原理來說明：

Option Explicit 

Sub AddClassWithStudents() 
    Dim tblClass As Recordset 
    Dim tblStudents As Recordset 
    Dim db As database 
    Dim classID As Long 
    Dim newKids() As String 
    Dim kid As Variant 

    Set db = DBEngine(0).OpenDatabase("Database1.accdb") 
    Set tblClass = db.openrecordset("tblClasses", dbopendynaset) 
    Set tblStudents = db.openrecordset("tblStudents", dbopendynaset) 

    '--- add a new class 
    tblClass.AddNew 
    tblClass("Title").Value = "Calculus" 
    tblClass("Teacher").Value = "Einstein" 
    tblClass.Update 
    tblClass.Bookmark = tblClass.LastModified 'makes it the current record 
    classID = tblClass("ID").Value 

    '--- add some students 
    newKids = Split("Tom,Dick,Harry,Suzie,Mary", ",", , vbTextCompare) 
    For Each kid In newKids 
     tblStudents.AddNew 
     tblStudents("ClassID").Value = classID 
     tblStudents("StudentName").Value = kid 
     tblStudents.Update 
    Next kid 

    db.Close 
    Set tblStudents = Nothing 
    Set tblClass = Nothing 
    Set db = Nothing 
End Sub