如何插入到在 Access 中链接在一起的两个不同表

Question

我有两个这样的table

第一桌

colID |列 1 |上校

第二个table

ColID | ColIDFirstTable |列..

我希望当我首先单击一个按钮以从我的表单中插入第一个 table，然后在第一个 table 中插入后获取第一个 table 的 ID，即主键并插入到第二列的第二个 table 中。像这样

 CurrentDb.Execute " INSERT INTO FirstTable(Col2,vol3)" VALUES  ('" & Txt1.Value & "', '" &Txt2.Value & "')"

  CurrentDb.Execute " INSERT INTO SecondTabkle(Col2,vol3)" VALUES  ('" & IDFirstTbale& "', '" &Txt5.Value & "')"

但我不知道如何从第一个 Table 中获取 ID 并插入第二个 Table..

提前致谢

Answer 1

使用我在评论中发送的示例，您的代码可以如下所示：

Dim db1 As DAO.Database
Dim id1 As Long

Set db1 = CurrentDb

db1.Execute "INSERT INTO FirstTable(Col2,vol3) VALUES ('" & Txt1.Value & "', '" & Txt2.Value & "')", dbFailOnError

id1 = db1.OpenRecordset("SELECT @@IDENTITY")(0)

db1.Execute "INSERT INTO SecondTable(Col2,vol3) VALUES (" & id1 & ", '" & Txt5.Value & "')", dbFailOnError

如何插入到在 Access 中链接在一起的两个不同表

How to insert into two different tables that are linked together in Access

vba

ms-access-2010