Question

我有一个员工招聘数据库。完成所有手续后，我点击一个按钮，基本数据将附加到（已招募的）员工数据库中。

我也有新兵工作班次的数据：小时，工资率等。这会进入一个链接表。

要附加此数据，我需要知道新兵的主键。如何在不查看基本数据查找PK的表的情况下自动附加数据？

我正在使用INSERT INTO。员工数据库包含主要员工表和链接的班次表。

Answer 1

如果“main”表有一个AutoNumber字段作为其主键，那么在执行INSERT INTO语句后，您可以使用这样的代码来检索刚刚插入的PK值：

Dim rst AS DAO.Recordset, newPK as Long
Set rst = CurrentDb.OpenRecordset("SELECT @@IDENTITY", dbOpenSnapshot)
newPK = rst(0).Value
rst.Close
Set rst = Nothing

然后，您可以在相关表中使用newPK值作为外键。

编辑re：使用新值

根据评论中的代码示例，请尝试以下方式：

strSQL = _
        "INSERT INTO tblShifts (StartDt, [To], Hours, StaffLookup) " & _
        "IN ""C:\__tmp\Staff.accdb"" " & _
        "SELECT qryAdd.DateStarted, qryAdd.To, qryAdd.Hours, " & newPK & " AS StaffLookup FROM qryAdd"

如果[tblShifts]确实是一个链接表，那么您不需要使用IN (mydatabase)子句，因为在这种情况下链接表的行为就像本地表一样。请注意语法的更正，尤其是[To]的包围，这是Access中的保留字。

Answer 2

想想我有一个解决方案。我可以像这样将PK检索到招募数据库中：

DoCmd.RunSQL "INSERT INTO tblCBSStaffLookup ( StaffLookupCBS, NINO ) " & _
             "SELECT tblStaff.ID, tblStaff.NINO " & _
             "FROM tblStaff IN 'C:\Users\Peter.Home-PC\Documents\NEMS\Databases\Frontends\Staff.accdb' " & _
             "WHERE (((tblStaff.NINO)=[Forms]![frmSuccess]![NINO])) "

tblCBSStaffLookup是我现在在招募db中收集PK和NINO的表。 WHERE将新到达的NINO与已经拥有NINO的招募数据库中的表单进行匹配。我已设置约束以确保NINO有效。我还在招募数据库中设置了一个查询来从主数据库中检索所有NINO，这样新招募的人员就不会在主数据库中添加两次。

在不知道主表的主键的情况下将数据附加到链接表

2 个答案:

编辑re：使用新值