0

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

我也有新兵将工作的轮班数据：小时、工资率等。这进入链接表。

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

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

4

2 回答 2

0

认为我有一个解决方案。我可以像这样将 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 是我现在在招聘数据库中制作的一个表格，用于收集 PK 和 NINO。WHERE 将新到达的 NINO 与招聘数据库中已经有 NINO 的表格相匹配。我已经设置了约束来确保 NINO 是有效的。我还在招聘数据库中设置了一个查询，以从主数据库中检索所有 NINO，这样新员工就不会被添加到主数据库两次。

于 2013-05-27T14:06:35.030 回答
0

如果“主”表有一个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值用作相关表中的外键。

重新编辑：使用新值

根据您评论中的代码示例，请尝试以下操作：

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 中的保留字。

于 2013-05-27T08:44:35.593 回答