我有一个员工招聘数据库。完成所有手续后,我单击一个按钮,基本数据将附加到(招聘的)员工数据库中。
我也有数据的轮班,招聘将工作:小时,工资率等。这将进入一个链接表。
要追加此数据,我需要知道招聘人员的主键。不看基础数据查找主键的表,如何自动追加数据?
我使用INSERT INTO。员工数据库包含主员工表和链接的班次表。
发布于 2013-05-27 16:44:36
如果"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中的保留字。
发布于 2013-05-27 22:06:35
我想我有一个解决方案。我可以像这样将主键检索到招聘数据库中:
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。其中将新到达的尼诺与已经具有尼诺的招聘数据库中的表格进行匹配。我已经设置了约束以确保NINO的是有效的。我还在招聘数据库中设置了一个查询,以便从主数据库中检索所有的NINO,这样新员工就不会两次添加到主数据库中。
https://stackoverflow.com/questions/16742121
复制相似问题