从访问表中提取数据并将其插入另一个表格中

时间:2016-08-11 07:17:57

标签: database ms-access

我在设计数据库方面遇到了一些麻烦。在microsoft Access中我有两个表。一个名为table1的表包含三个字段(Name,Surname和Birthdate)。另一个名为table2的表包含两个字段(Name和Surname)。我希望以下情况发生。如果我使用表单在table1中创建一个新记录,Name和Surname会自动传递/插入到table2。这样做的最佳方式是什么?我正在搞乱主键,但那似乎有效。因为我是初学者,所以我不知道从哪里开始。

提前感谢您的时间和efford!

2 个答案:

答案 0 :(得分:0)

刚刚弄明白我的问题!我使用了以下代码

Private Sub addNew_Click()
Dim db As Object
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("select * from Person", dbOpenDynaset)


rst.AddNew
    rst!PeopleSoftNr = tbPeopleSoftNr.Value
    rst!Name = tbName.Value
    rst!Birthday = tbBirthday.Value
rst.Update

Set rst2 = db.OpenRecordset("select * from Dental", dbOpenDynaset)

rst2.AddNew
    rst2!PeopleSoftNr = tbPeopleSoftNr.Value
    rst2!Dental = tbDental.Value
rst2.Update
End Sub

这允许我将数据写入多个表。

答案 1 :(得分:0)

在我看来,你所描述的最好的方法是创建一个个人数据表格,并包含一个子表格来分配人员的课程。

有关课程的详细信息应以自己的形式编辑。